รบกวนหน่อยนะครับ

[Thanaluk]

คือผมต้องการรับค่า1.01แล้วนำไปคำนวนแยกครับ
เช่น 1.01 = 1*1440 = 1440 , 0.01 *60*10 =60 แล้วนำมาบวกกัน เป็น 1440+60 = 1500 ครับ

[cheapache]

จำนวนไม่กำหนดใช่มั๊ยครับ แต่กำหนดตำแหน่งที่จะเอาไปใช้ ? อาจจะเป็น 2.01 3.01 ในตำแหน่งจำนวนเต็ม
และ 1.03, 1.07 ประมาณนี้ใช่มั๊ยครับ ?

[Thanaluk]

ใช่ครับ

[cheapache]

ประกาศตัวแปรเป็น int 1 ตัว Decimal 1 ตัวนะครับ
โดยที่เอา 1.01 ใส่ลงในตัวแปร int และ decimal

แล้วนำมา Mod เพื่อหาเศษ และนำไปลบค่าคตัวแปร decimal เพื่อให้ได้จำนวนเต็มนะครับ เช่น

Code: Select all

Dim V1 As Integer
Dim V2 As Decimal
Dim V3 As Decimal

V1 = Textbox1.Text
V2 = Textbox1.Text

Textbox2.Text = V2 Mod V1
V3 = Textbox2.Text
Textbox3.Text = V2 - V3

ตามตัวอย่างนี้ หากใส่ 1.01 ที่ Textbox1 จะได้ 0.01 ที่ Textbox2 และ 1 ที่ Textbox 3 นะครับ หรือใน ตัวแปร V1 เราก็จะได้ เลขจำนวนเต็มเช่นกัน

หวังว่าจะเป็นประโยชน์นะครับ

[Thanaluk]

ขอบคุณครับ