สอบถามการปรับเศษทศนิยม

[buncha2522]

ต้องการปรับเศษทศนิยมครับ ไม่ทราบต้องเขียน code อย่างไรครับ เช่น เรากรอกราคาสินค้า 5820
จะได้ราคา I-CARE 436.5 บาท ต้องการปัดเศษเป็น 437 บาทครับ

[buncha2522]

Code: Select all

Dim salary, vat, sum As String
        salary = InputBox("คิดราคา I-CARE", "By Cha", 0)
        If salary >= 100000 Then
            vat = salary * 0.077
        ElseIf salary >= 80000 Then
            vat = salary * 0.076
        ElseIf salary >= 50000 Then
            vat = salary * 0.075
        Else
            vat = salary * 0.075
        End If
        sum = vat + salary
        MessageBox.Show( "ราคา I-CARE =" & vat)

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

MessageBox.Show( "ราคา I-CARE =" & Match.Round(vat,2).ToString())

[buncha2522]

ไม่ได้ครับอาจารย์ ขึ้น error

[snasui]

ในเครื่องผมไม่ Error ครับ

ที่บอกว่า Error นั้นช่วยจับภาพมาให้ดูด้วยว่า Error ฟ้องว่าอย่างไร จะได้หาวิธีช่วยเหลือต่อไปครับ

[snasui]

ผมสังเกตว่ามีการประกาศตัวแปร vat เป็น String ทำให้ใช้ฟังก์ชั่น Round ไม่ได้

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

MessageBox.Show("ราคา I-CARE =" & Math.Round(CDbl(vat), 2).ToString())

[buncha2522]

ยังปัดเศษทศนิยมไม่ได้เหมือนเดิมครับ อาจารย์

[snasui]

ในเครื่องผมปัดได้ปกติครับ

[buncha2522]

คำตอบที่ต้องการคือ 35173
ไม่ใช่ 35172.75 ปัดเศษขึ้นครับไม่ต้องการทศนิยมครับอาจารย์

[snasui]

ลบโพสต์ที่เกินจำเป็น เขียนให้อยู่ในโพสต์เดียวครับ

[snasui]

เกิน 10 นาทีแล้วจะลบไม่ได้ ด้านบนนี้ผมลบให้แล้วครับ

สำหรับการปัดเศษโดยไม่เอาทศนิยมให้เปลี่ยนเลข 2 ใน Code ที่ผมตอบไปให้เป็นเลข 0 หมายถึงปรับเป็นทศนิยม 0 ตำแหน่ง หรือไม่เอาทศนิยมครับ

[buncha2522]

เข้าใจครับ แต่สิ่งที่ต้องการคือ ทศนิยม .1 ถึง .9 ปัดเศษขึ้นเป็น 1 บาท
เช่น 4190*7.5% = 314.25 คำตอบที่ต้องการคือ 315 บาท
แต่คำตอบที่ได้เป็น 314 บาท ครับอาจารย์

[snasui]

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

Math.Ceiling(CDbl(vat)).ToString()

[buncha2522]

ปรับแล้วครับ ไม่ขึ้นตัวเลขใดๆๆ เลยครับ

Code: Select all

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim salary, vat, sum As String
        salary = InputBox("ราคา I-CARE", "By Cha", 0)
        If salary >= 100000 Then
            vat = salary * 0.077
        ElseIf salary >= 80000 Then
            vat = salary * 0.076
        ElseIf salary >= 50000 Then
            vat = salary * 0.075
        Else
            vat = salary * 0.075
        End If
        sum = vat + salary
        MessageBox.Show("ราคา I-CARE =" & Math.Ceiling(CDbl(vat)).ToString()

[snasui]

ไม่ขึ้นเลขใดก็ดูที่การคีย์ตัวเลขเข้าไปและลำดับการทำงานของ Code ที่เขียน ในเครื่องผมแสดงตัวเลขได้ปกติครับ

สิ่งที่จะต้องทราบให้ชัดคือ ต้องการจะแสดงอะไร แสดงยอดก่อน vat หรือ แสดง vat หรือแสดงยอดที่รวม vat แล้ว

ผมปรับให้เป็นตัวอย่างเป็นการแสดงเฉพาะยอดตัวแปร vat ซึ่งจะต้องมีค่าเสียก่อน ลองไล่ทีละ Step ดูว่าผิดพลาดขั้นตอนไหน สิ่งที่ผมตอบไปมุ่งที่ประเด็นการปัดเศษเท่านั้น ไม่ได้ดูว่าเขียนมาถูกผิดอย่างไรครับ

[buncha2522]

ได้แล้วครับอาจารย์ขอบคุณมากครับ

[buncha2522]

อาจารย์ครับผมจะสร้างตัว Setup แต่ผมหา.. Other Project Types ไม่เจอ ครับ

[snasui]

ไปยังเมนู File > New > Project แล้วมองไปที่เมนูด้านซ้าย อยู่อยู่ตรงล่าง ๆ ครับ

[buncha2522]

no.png

[buncha2522]

หาแล้วไม่มีครับอาจารย์