Excel Forum

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)

Code: Select all

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

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()