مشکل در گرد کردن اعداد

[maryammb66]

با سلام خدومت دوستان
من یه برنامه برای محاسبه نیروی جت نوشتم که با این فرمول محاسبه میشه ((p * (q ^ 2)) * (1 - Round(Cos(t)))) / a
اما تابعcosدرست کار نمیکنه یعنی خیلی دقیق حساب میشه مثلا cos120باید -0.5 باشه که اگه از تابع intاستفاده کنم 0میاره در غیر اینصورت یه عدد اعشاری بزرگمیاره.میشه لطفا راهنماییم کنید.
با تشکر

[IamOverlord]

میاره 0.500000015470041 که خطاش در زوایای مختلف زیادم بد نیست.
اما اگه می خواید فقط از n رقم اول اعشار یه عدد اعشاری استفاده کنید، از این تابع استفاده کنید:

Public Function MyRound(Number, n)
MyRound = Int(Number * (10 ^ n)) / 10 ^ n
End Function

[ali shabani fard]

چرا از تابع round استفاده نمیکنی؟
Round(0.50000000125421226521, 1)
مثلا در بالا چون پارامتر دوم رو 1 در نظر گرفتیم تا یک رقم بعد اعشار رو بر میگردونه
موفق باشی