01.Sub CalculateInterest()
02. Dim month, b_month, year As String
03. Dim rate, b_rate, interest, b_interest, savingdep, plus As Double
04. Dim i As Integer
05. Dim id As Integer
06.
07.
08.
09. strsql = " SELECT * FROM EMPLOYEEDT INNER JOIN EMPLOYEE ON EMPLOYEE.MEMP = EMPLOYEEDT.MEMP WHERE EMPLOYEE.STATUS = 'YES'"
10. dtAdapter = New SqlDataAdapter(strsql, myConn)
11. dtAdapter.Fill(dt3)
12.
13. For i = 0 To dt3.Rows.Count - 1
14. id = dt3.Rows(i)("MEMP")
15. savingdep = dt3.Rows(i)("SAVINGDEP")
16.
17.
18.
19. b_month = SplitB_Month(dateInput.Text)
20.
21. Select Case b_month
22. Case "มกราคม"
23. b_rate = 0.666667
24. Case "กุมภาพันธ์"
25. b_rate = 1.333333
26. Case "มีนาคม"
27. b_rate = 2.0
28. Case "เมษายน"
29. b_rate = 2.666667
30. Case "พฤษภาคม"
31. b_rate = 3.333333
32. Case "มิถุนายน"
33. b_rate = 4.0
34. Case "กรกฎาคม"
35. b_rate = 4.666667
36. Case "สิงหาคม"
37. b_rate = 5.333333
38. Case "กันยายน"
39. b_rate = 6.0
40. Case "ตุลาคม"
41. b_rate = 6.666667
42. Case "พฤศจิกายน"
43. b_rate = 7.333333
44. Case "ธันวาคม"
45. b_rate = 8.0
46. End Select
47. b_interest = savingdep * b_rate / 100
48.
49.
50. month = SplitMonth(dateInput.Text)
51. Select Case month
52. Case "มกราคม"
53. rate = 0.666667
54. Case "กุมภาพันธ์"
55. rate = 1.333333
56. Case "มีนาคม"
57. rate = 2.0
58. Case "เมษายน"
59. rate = 2.666667
60. Case "พฤษภาคม"
61. rate = 3.333333
62. Case "มิถุนายน"
63. rate = 4.0
64. Case "กรกฎาคม"
65. rate = 4.666667
66. Case "สิงหาคม"
67. rate = 5.333333
68. Case "กันยายน"
69. rate = 6.0
70. Case "ตุลาคม"
71. rate = 6.666667
72. Case "พฤศจิกายน"
73. rate = 7.333333
74. Case "ธันวาคม"
75. rate = 8.0
76. End Select
77. interest = savingdep * rate / 100
78.
79.
80. plus = interest - b_interest
81. plus = Math.Round(plus, 2)
82.
83.
84. strsql = " UPDATE EMPLOYEEDT SET AINTEREST = AINTEREST + '" + plus + "' WHERE MEMP = '" + id + "' " 'ERROR ที่บรรทัดนี้ค่ะ
85. cmd = New SqlCommand(strsql, myConn)
86. cmd.ExecuteNonQuery()
87. Next
88.
89. End Sub
