17-04-17, 06:40 AM
PHP كود :
Public Sub Name_(TXtone As String, CboZCAT As String, CBoze As String)
Dim ZC, ZE As Integer
Try
ZC = Integer.Parse(CboZCAT)
ZE = Integer.Parse(CBoze)
If ZC = 1 And ZE = 1 Then
TXtone = (1500 * 35) / 100.ToString
ElseIf ZC = 1 And ZE = 2 Then
TXtone = (1520 * 35) / 100.ToString
ElseIf ZC = 1 And ZE = 3 Then
TXtone = (1540 * 35) / 100.ToString
ElseIf ZC = 2 And ZE = 1 Then
TXtone = (1560 * 35) / 100.ToString
ElseIf ZC = 2 And ZE = 2 Then
TXtone = (1580 * 35) / 100.ToString
ElseIf ZC = 2 And ZE = 3 Then
TXtone = (1600 * 35) / 100.ToString
ElseIf ZC = 3 And ZE = 1 Then
TXtone = (1620 * 35) / 100.ToString
ElseIf ZC = 3 And ZE = 2 Then
TXtone = (1640 * 35) / 100.ToString
ElseIf ZC = 3 And ZE = 3 Then
TXtone = (1660 * 35) / 100.ToString
ElseIf ZC = 4 And ZE = 1 Then
TXtone = (1680 * 35) / 100.ToString
ElseIf ZC = 4 And ZE = 2 Then
TXtone = (1700 * 35) / 100.ToString
ElseIf ZC = 4 And ZE = 3 Then
TXtone = (1745 * 35) / 100.ToString
ElseIf ZC = 5 And ZE = 1 Then
TXtone = (1790 * 35) / 100.ToString
ElseIf ZC = 5 And ZE = 2 Then
TXtone = (1850 * 35) / 100.ToString
ElseIf ZC = 5 And ZE = 3 Then
TXtone = (1910 * 35) / 100.ToString
ElseIf ZC = 6 And ZE = 1 Then
TXtone = (1970 * 35) / 100.ToString
ElseIf ZC = 6 And ZE = 2 Then
TXtone = (2040 * 35) / 100.ToString
ElseIf ZC = 6 And ZE = 3 Then
TXtone = (2100 * 35) / 100.ToString
ElseIf ZC = 7 And ZE = 1 Then
TXtone = (2170 * 35) / 100.ToString
ElseIf ZC = 7 And ZE = 2 Then
TXtone = (2240 * 35) / 100.ToString
ElseIf ZC = 7 And ZE = 3 Then
TXtone = (2300 * 35) / 100.ToString
ElseIf ZC = 8 And ZE = 1 Then
TXtone = (2380 * 35) / 100.ToString
ElseIf ZC = 8 And ZE = 2 Then
TXtone = (2460 * 35) / 100.ToString
ElseIf ZC = 8 And ZE = 3 Then
TXtone = (2530 * 35) / 100.ToString
ElseIf ZC = 9 And ZE = 1 Then
TXtone = (2610 * 35) / 100.ToString
ElseIf ZC = 9 And ZE = 2 Then
TXtone = (2700 * 35) / 100.ToString
ElseIf ZC = 9 And ZE = 3 Then
TXtone = (2780 * 35) / 100.ToString
ElseIf ZC = 10 And ZE = 1 Then
TXtone = (2850 * 35) / 100.ToString
ElseIf ZC = 10 And ZE = 2 Then
TXtone = (2920 * 35) / 100.ToString
ElseIf ZC = 10 And ZE = 3 Then
TXtone = (2990 * 35) / 100.ToString
ElseIf ZC = 10 And ZE = 4 Then
TXtone = (3060 * 35) / 100.ToString
ElseIf ZC = 11 And ZE = 1 Then
TXtone = (3070 * 35) / 100.ToString
ElseIf ZC = 11 And ZE = 2 Then
TXtone = (3130 * 35) / 100.ToString
ElseIf ZC = 11 And ZE = 3 Then
TXtone = (3190 * 35) / 100.ToString
ElseIf ZC = 11 And ZE = 4 Then
TXtone = (3250 * 35) / 100.ToString
ElseIf ZC = 12 And ZE = 1 Then
TXtone = (3320 * 35) / 100.ToString
ElseIf ZC = 12 And ZE = 2 Then
TXtone = (3380 * 35) / 100.ToString
ElseIf ZC = 12 And ZE = 3 Then
TXtone = (3450 * 35) / 100.ToString
ElseIf ZC = 12 And ZE = 4 Then
TXtone = (3530 * 35) / 100.ToString
ElseIf ZC = 13 And ZE = 1 Then
TXtone = (3540 * 35) / 100.ToString
ElseIf ZC = 13 And ZE = 2 Then
TXtone = (3640 * 35) / 100.ToString
ElseIf ZC = 13 And ZE = 3 Then
TXtone = (3730 * 35) / 100.ToString
ElseIf ZC = 13 And ZE = 4 Then
TXtone = (3830 * 35) / 100.ToString
ElseIf ZC = 14 And ZE = 1 Then
TXtone = (3920 * 35) / 100.ToString
ElseIf ZC = 14 And ZE = 2 Then
TXtone = (4000 * 35) / 100.ToString
ElseIf ZC = 14 And ZE = 3 Then
TXtone = (4080 * 35) / 100.ToString
ElseIf ZC = 14 And ZE = 4 Then
TXtone = (4160 * 35) / 100.ToString
ElseIf ZC = 14 And ZE = 5 Then
TXtone = (4240 * 35) / 100.ToString
ElseIf ZC = 15 And ZE = 1 Then
TXtone = (4340 * 35) / 100.ToString
ElseIf ZC = 15 And ZE = 2 Then
TXtone = (4430 * 35) / 100.ToString
ElseIf ZC = 15 And ZE = 3 Then
TXtone = (4520 * 35) / 100.ToString
ElseIf ZC = 15 And ZE = 4 Then
TXtone = (4620 * 35) / 100.ToString
ElseIf ZC = 15 And ZE = 5 Then
TXtone = (4720 * 35) / 100.ToString
ElseIf ZC = 16 And ZE = 1 Then
TXtone = (4820 * 35) / 100.ToString
ElseIf ZC = 16 And ZE = 2 Then
TXtone = (4920 * 35) / 100.ToString
ElseIf ZC = 16 And ZE = 3 Then
TXtone = (5020 * 35) / 100.ToString
ElseIf ZC = 16 And ZE = 4 Then
TXtone = (5120 * 35) / 100.ToString
ElseIf ZC = 16 And ZE = 5 Then
TXtone = (5220 * 35) / 100.ToString
ElseIf ZC = 17 And ZE = 1 Then
TXtone = (5340 * 35) / 100.ToString
ElseIf ZC = 17 And ZE = 2 Then
TXtone = (5450 * 35) / 100.ToString
ElseIf ZC = 17 And ZE = 3 Then
TXtone = (5560 * 35) / 100.ToString
ElseIf ZC = 17 And ZE = 4 Then
TXtone = (5690 * 35) / 100.ToString
ElseIf ZC = 17 And ZE = 5 Then
TXtone = (5810 * 35) / 100.ToString
ElseIf ZC = 18 And ZE = 1 Then
TXtone = (5930 * 35) / 100.ToString
ElseIf ZC = 18 And ZE = 2 Then
TXtone = (6060 * 35) / 100.ToString
ElseIf ZC = 18 And ZE = 3 Then
TXtone = (6190 * 35) / 100.ToString
ElseIf ZC = 18 And ZE = 4 Then
TXtone = (6320 * 35) / 100.ToString
ElseIf ZC = 18 And ZE = 5 Then
TXtone = (6450 * 35) / 100.ToString
ElseIf ZC = 19 And ZE = 1 Then
TXtone = (6580 * 35) / 100.ToString
ElseIf ZC = 19 And ZE = 2 Then
TXtone = (6720 * 35) / 100.ToString
ElseIf ZC = 19 And ZE = 3 Then
TXtone = (6860 * 35) / 100.ToString
ElseIf ZC = 19 And ZE = 4 Then
TXtone = (7000 * 35) / 100.ToString
ElseIf ZC = 19 And ZE = 5 Then
TXtone = (7140 * 35) / 100.ToString
ElseIf ZC = 20 And ZE = 1 Then
TXtone = (7300 * 35) / 100.ToString
ElseIf ZC = 20 And ZE = 2 Then
TXtone = (7460 * 35) / 100.ToString
ElseIf ZC = 20 And ZE = 3 Then
TXtone = (7620 * 35) / 100.ToString
ElseIf ZC = 20 And ZE = 4 Then
TXtone = (7780 * 35) / 100.ToString
ElseIf ZC = 20 And ZE = 5 Then
TXtone = (7940 * 35) / 100.ToString
ElseIf ZC = 0 And ZE = 0 Then
TXtone = 0.ToString
End If
Catch ex As Exception
End Try
End Sub
