1.
Dim
d
As
Double
2.
d = Convert.ToDouble(TextBox1.Text)
3.
4.
If
(d
Mod
1) >= 0.5
Then
' หาเอาเศษมาเช็ค ค่ามากกว่าหรือเท่ากับ 0.5 หรือไม่
5.
TextBox2.Text =
String
.Format(
"{0:0.0}"
, System.Math.Ceiling(d))
' ปัดเศษขึ้น
6.
Else
' หากค่าเศษอยู่ระหว่าง 0.0 - 0.4 ไม่ต้องปัดเศษ
7.
, d)
8.
End
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
