رند کردن اعشار فقط به بالا [بایگانی]

azadich

سه شنبه 14 آبان 1392, 20:55 عصر

با سلام خدمت اساتید،چکار کنم که فقط اعداد اعشاری داخل کوئری به بالا رند بشه.ممنون

Abbas Amiri

سه شنبه 14 آبان 1392, 22:37 عصر

با سلام خدمت اساتید،چکار کنم که فقط اعداد اعشاری داخل کوئری به بالا رند بشه.ممنون

اگر منظورتون تبدیل آنها به عدد صحیح است ، از تابع زیر استفاده کنید در این صورت هر عدد اعشاری که مانتیس آن صفر نباشد به یک عدد بالاتر تبدیل می شود.
Function Round(n As Single) As Integer
If Int(n) = n Then
Round = n
Else
Round = Int(n) + 1
End If
End Function

'Round(12.000001)=13
Round(12.99999999)=13
Round(12)=12