หาข้อมูลแล้วเจอกะทู้นี้ ก็เลยมาตอบไว้ เผื่อคนที่ค้นหาต่อไปครับ
ปรับตัวเลขทศนิยมเป็นจำนวนเต็ม [font=Verdana]ปรับเศษขึ้นอย่างเดียว[/font]
Dim number As Double
number = Math.Ceiling(1.5) ' ค่าที่ได้คือ 2
number = Math.Ceiling(1.4) ' ค่าที่ได้คือ 2
Dim number As Double
number = Math.Round(1.5) ' ค่าที่ได้คือ 2
number = Math.Round(1.4) ' ค่าที่ได้คือ 1
2. ปรับตัวเลขทศนิยมเป็นจำนวนเต็ม ปรับเศษขึ้นอย่างเดียว
Dim number As Double
number = Math.Ceiling(1.5) ' ค่าที่ได้คือ 2
number = Math.Ceiling(1.4) ' ค่าที่ได้คือ 2
3. ปรับตัวเลขทศนิยมเป็นจำนวนเต็ม ปรับเศษลงอย่างเดียว
Dim number As Double
number = Math.Floor(1.5) ' ค่าที่ได้คือ 1
number = Math.Floor(1.4) ' ค่าที่ได้คือ 1
4. Mod หารเอาเศษ
Dim number As Double
number = 5 Mod 3 ' ค่าที่ได้คือ 2
number = 5 Mod 5 ' ค่าที่ได้คือ 0