[VB.NET] การคำนวณภาษีมูลค่าเพิ่ม ทั้งแบบรวม (Vat Include) และแบบแยก (Vat Exclude)

thongkorn

จัดโค้ดเบาๆในการคำนวณภาษีมูลค่าเพิ่ม ทั้งแบบรวม (Vat Include) และแบบแยก (Vat Exclude) พร้อมกับนำเสนอเทคนิคในการเขียนโค้ด เพื่อดักจับความผิดพลาด (Trap Error) ก่อนที่จะนำค่าไปทำการคำนวณผล ...

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Public Class frmVatCalc
   
2. 
   
3.     Private Sub frmVatCalc_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         With cmbVatType
   
5.             .Items.Add("ไม่คิดภาษี")
   
6.             .Items.Add("รวมภาษี")
   
7.             .Items.Add("แยกภาษี")
   
8.             .SelectedIndex = 1
   
9.         End With
   
10.         txtVatRate.Text = 7
    
11.         txtVatRate.MaxLength = 2
    
12.         '// Initial Value.
    
13.         txtPrice.Text = 100
    
14.         txtPrice.MaxLength = 9
    
15.     End Sub
    
16. 
    
17.     Private Sub btnVatCal_Click(sender As System.Object, e As System.EventArgs) Handles btnVatCal.Click
    
18.         '// ตรวจสอบหากเป็นค่าว่าง ให้กำหนดตัวเลขลงแทน ป้องกันการเกิด ERROR หรือคำนวณผิดพลาด
    
19.         If txtVatRate.Text.Trim.Length = 0 Or txtVatRate.Text.Trim = "" Then txtVatRate.Text = 7
    
20.         If txtPrice.Text.Trim.Length = 0 Or txtPrice.Text.Trim = "" Then txtPrice.Text = 100
    
21. 
    
22.         '// ตรวจสอบ Vat Type ... 0 = ไม่คิดภาษี, 1 = รวมภาษี, 2 = แยกภาษี
    
23.         Select Case cmbVatType.SelectedIndex
    
24.             Case 0
    
25.                 txtTotal.Text = Format(CDbl(txtPrice.Text), "#,##0.00")
    
26.                 txtVat.Text = 0
    
27.                 txtNetTotal.Text = Format(CDbl(txtPrice.Text), "#,##0.00")
    
28. 
    
29.             Case 1
    
30.                 txtTotal.Text = Format(CDbl(txtPrice.Text) / 1.07, "#,##0.00")
    
31.                 '// คำนวณหาราคาสินค้าจริงก่อน CDbl(txtPrice.Text) / 1.07 แล้วค่อยนำไปลบออกจากสินค้าราคาเต็ม ก็จะได้ภาษีรวมใน
    
32.                 '// *** การหารมี Priority สูงกว่าการลบ ก็เลยทำ CDbl(txtPrice.Text) / 1.07 ก่อน โดยไม่ต้องใส่วงเล็บก็ได้ ***
    
33.                 '// เช่น ราคารวม VAT = 100 ... จะได้ราคาขายจริง 93.46 ลบราคาสินค้า 100 ก็จะได้ภาษี 6.54 บาท
    
34.                 txtVat.Text = Format(CDbl(txtPrice.Text) - CDbl(txtPrice.Text) / 1.07, "#,##0.00")
    
35.                 txtNetTotal.Text = Format(CDbl(txtTotal.Text) + CDbl(txtVat.Text), "#,##0.00")
    
36.                 '// หรือ txtNetTotal.Text = Format(CDbl(txtPrice.Text), "#,##0.00")
    
37. 
    
38.             Case 2
    
39.                 txtTotal.Text = Format(CDbl(txtPrice.Text), "#,##0.00")
    
40.                 '// หรือใช้บัญญัติไตรยางค์ ... ราคาสินค้า * ภาษี / 100
    
41.                 txtNetTotal.Text = Format(CDbl(txtPrice.Text) * 1.07, "#,##0.00")
    
42.                 txtVat.Text = Format(CDbl(txtNetTotal.Text) - CDbl(txtTotal.Text), "#,##0.00")
    
43.         End Select
    
44.     End Sub
    
45. 
    
46.     Private Sub txtPrice_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrice.KeyPress
    
47.         If e.KeyChar = Chr(13) Then
    
48.             e.Handled = True
    
49.             SendKeys.Send("{TAB}")
    
50.         Else
    
51.             '// ตรวจสอบ Handle หากถูกรีเทิร์นค่า False กลับมา แสดงว่ายอมรับการกดคีย์ตัวเลข และจุดทศนิยมได้เพียงหลักเดียว
    
52.             e.Handled = CheckCurrency(Asc(e.KeyChar), txtPrice.Text)
    
53.         End If
    
54.     End Sub
    
55. 
    
56.     Private Sub txtVatRate_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtVatRate.KeyPress
    
57.         If Asc(e.KeyChar) = Keys.Enter Then
    
58.             e.Handled = True
    
59.             SendKeys.Send("{TAB}")
    
60.         Else
    
61.             '// ตรวจสอบ Handle หากถูกรีเทิร์นค่า False กลับมา แสดงว่ายอมรับการกดคีย์ตัวเลข
    
62.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
    
63.         End If
    
64.     End Sub
    
65. 
    
66.     '// ตรวจสอบการหลุดโฟกัส (ย้ายเคอร์เซอร์ไป Control ตัวอื่น) หากเป็นค่าว่าให้กำหนดค่าใหม่ เพื่อป้องกัน Error
    
67.     Private Sub txtVatRate_LostFocus(sender As Object, e As System.EventArgs) Handles txtVatRate.LostFocus
    
68.         If txtVatRate.Text.Trim.Length = 0 Or txtVatRate.Text.Trim = "" Then txtVatRate.Text = 7
    
69.     End Sub
    
70. 
    
71.     '// ตรวจสอบการหลุดโฟกัส (ย้ายเคอร์เซอร์ไป Control ตัวอื่น) หากเป็นค่าว่าให้กำหนดค่าใหม่ เพื่อป้องกัน Error
    
72.     Private Sub txtPrice_LostFocus(sender As Object, e As System.EventArgs) Handles txtPrice.LostFocus
    
73.         If txtPrice.Text.Trim.Length = 0 Or txtPrice.Text.Trim = "" Then txtPrice.Text = 100
    
74.     End Sub
    
75. 
    
76.     ' / ----------------------------- F U N C T I O N -------------------------------
    
77.     ' / --------------------------------------------------------------------------------
    
78.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น
    
79.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
80.         Select Case index
    
81.             Case 48 To 57 ' เลข 0 - 9
    
82.                 CheckDigitOnly = False
    
83.             Case 8, 13 ' Backspace = 8, Enter = 13
    
84.                 CheckDigitOnly = False
    
85.             Case Else
    
86.                 CheckDigitOnly = True
    
87.         End Select
    
88.     End Function
    
89. 
    
90.     ' / --------------------------------------------------------------------------------
    
91.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขและทศนิยมได้ตัวเดียวเท่านั้น
    
92.     Function CheckCurrency(index As Integer, tmpStr As String) As Boolean
    
93.         CheckCurrency = False
    
94.         Select Case index
    
95.             Case 48 To 57 ' เลข 0 - 9
    
96.                 ' Allowed "."
    
97.             Case 46
    
98.                 ' can present "." only one
    
99.                 If InStr(tmpStr, ".") Then CheckCurrency = True
    
100. 
     
101.             Case 8, 13 ' Backspace = 8, Enter = 13
     
102.             Case Else
     
103.                 CheckCurrency = True
     
104.         End Select
     
105.     End Function
     
106. 
     
107. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2010) ... ได้ที่นี่ ...

outhai1992

ขอบคุณครับ