Page 1 of 1

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

Posted: Tue Jun 20, 2017 2:49 pm
by Thanaluk
คือผมต้องการรับค่า1.01แล้วนำไปคำนวนแยกครับ
เช่น 1.01 = 1*1440 = 1440 , 0.01 *60*10 =60 แล้วนำมาบวกกัน เป็น 1440+60 = 1500 ครับ

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

Posted: Tue Jun 20, 2017 4:50 pm
by cheapache
จำนวนไม่กำหนดใช่มั๊ยครับ แต่กำหนดตำแหน่งที่จะเอาไปใช้ ? อาจจะเป็น 2.01 3.01 ในตำแหน่งจำนวนเต็ม
และ 1.03, 1.07 ประมาณนี้ใช่มั๊ยครับ ?

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

Posted: Tue Jun 20, 2017 5:53 pm
by Thanaluk
ใช่ครับ

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

Posted: Tue Jun 20, 2017 6:51 pm
by 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 เราก็จะได้ เลขจำนวนเต็มเช่นกัน

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

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

Posted: Wed Jun 21, 2017 9:40 am
by Thanaluk
ขอบคุณครับ