สอบถามเกี่ยวกับเรื่องโค้ดค่าไฟ
Private Sub cmdCalElectric_Click() Dim FirstUnit As Double ' ไม่เกิน 150 หน่วย (150 หน่วยแรก) Dim SecondUnit As Double ' มากกว่า 150แต่ไม่เกิน400 (หรือ400 - 150 = 250 หน่วย) Dim ThirdUnit As Double ' มากกว่า 400 หน่วยขึ้นไป Dim SumElectricCost As Double ' (1) ผลรวมของค่าไฟมาตรฐาน Dim SumFT As Double ' (2). ค่า FT คูณจำนวนหน่วย Dim Vat As Double ' (3). เอา 1 + 2 แล้วหาค่าภาษี7% Dim TotalAmount As Double ' (4) เอา1 + 2 + 3 คืออัตราไฟฟ้าทั้งหมด If txtUnit.Text = 0 Or IsNull(txtUnit.Text) Then Exit Sub If txtFT.Text = "" Or IsNull(txtFT.Text) Then txtFT.Text = "0" txtSummary.Text = "" ' กรณีแรกใช้ไฟฟ้าระหว่าง 0 - 150 หน่วย If Val(txtUnit.Text) <= 150 Then FirstUnit = Val(txtUnit.Text) * 1.8047 ' บวกค่าบริการด้วย SumElectricCost = FirstUnit + FeePaid SumFT = Val(txtUnit.Text) * Val(txtFT.Text) Vat = ((SumElectricCost + SumFT) * 7) / 100 TotalAmount = SumElectricCost + SumFT + Vat txtSummary.Text = "==================" & vbCrLf & _ .......ฯลฯ
คืออยากทราบว่า จากบรรทัดนี้ If Val(txtUnit.Text) <= 150 Then FirstUnit = Val(txtUnit.Text) * 1.8047 ค่า1.8047 คืออะไร
|