รบกวนช่วยดู Code เกี่ยวกับการเปรียบเทียบค่าใน Textbox ครับ

[niwat2811]

รบกวนช่วยดู Code เกี่ยวกับการเปรียบเทียบค่าใน Textbox ครับ
จากไฟล์ที่แนบมา กดปุ่ม OpenForm แล้วใส่ค่าในช่องยกมา ช่องข้อมูลที่ 1 และช่องข้อมูลที่ 2
แล้วให้เปรียบเทียบว่า ข้อมูลที่ 1 หรือข้อมูลที่ 2 ถ้าข้อมูลใดน้อยกว่าให้นำไปลบกับข้อมูลในช่องยกมา
แล้วแสดงค่าที่ช่องคงเหลือครับ เช่น
ยกมา 2,000,000
ข้อมูลที่1 1,000,000
ข้อมูลที่2 500,000
คงเหลือ 1,500,000
แต่ว่า Code ที่ได้แนบมานั้นคำตอบออกมาที่ 1,000,000 ซึ่งผิด ไม่ทราบว่าควรปรับ Code ยังไง
รบกวนท่านอาจารย์หรือผู้รู้ช่วยแนะนำด้วยครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub txtcl_Change()
    If txtcl.Value = "" Then Exit Sub
    If txtpvcl.Value = "" Then Exit Sub
    If CDbl(txtcl.Value) < CDbl(txtpvcl.Value) Then
        txtbeforepv = Format(txtbl.Value - txtcl.Value, "###,##0.00")
        Else
        txtbeforepv = Format(txtbl.Value - txtpvcl.Value, "###,##0.00")
    End If
End Sub
Private Sub txtpvcl_Change()
    If txtcl.Value = "" Then Exit Sub
    If txtpvcl.Value = "" Then Exit Sub
    If CDbl(txtpvcl.Value) < CDbl(txtcl.Value) Then
        txtbeforepv = Format(txtbl.Value - txtpvcl.Value, "###,##0.00")
        Else
        txtbeforepv = Format(txtbl.Value - txtcl.Value, "###,##0.00")
    End If
End Sub

[niwat2811]

ขอบคุณมากครับ Code ที่ให้มาใช้ได้ตรงความต้องการเลยครับ ถ้าไม่เป็นการรบกวนอยากสอบถามว่า CDbl ใส่เพิ่มเข้าไปเพื่ออะไรหรือครับ

[snasui]

เป็นการ Convert Data Type จาก String ให้เป็น Double ครับ ดูเพิ่มเติมที่นี่ครับ http://office.microsoft.com/en-us/excel ... 29018.aspx

[niwat2811]

ครับ ขอบคุณท่านอาจารย์มากครับ