ขอ คำสั่ง ตัดเศษ หน่อยครับ หาไม่เจอ T0T

แบบ เลขที่เรามีคือ

10.1 หรือ 13.12 


ตัดเศษทิ้ง จะได้
10 กับ 13

ช่วยทีครับ กด F1 แล้วหาไม่เจอเลย T^T

ตอนนี้ผมใช้คำสั่ง StringLeft อยู่ครับ
ปล. ขอบคุณครับ

เอาจำนวนเต็มใช้คำสั่ง int ครับ

Code:

$a =InputBox("ใส่เศษ","เป็นตัวเลขทศนิยม")

$b= Int($a)

MsgBox(0,"",$a&" = "&$b)

ขอบคุณครับ

 แล้วถ้าจะไม่ให้มัน ติด ลบ
ต้องใช้คำสั่งไรหรอครับ

ผมใช้ if อยุ่ แต่ บรรทัดมันเยอะ นานไป กลัวงง เองอะครับ

Global $UUU = -15
If $UUU<0 then
$UUU *= -1
EndIf

ปล.ขอบคุณอีกครั้งครับ