01.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
02. Dim DateBirth As Date = date_birthday.Text
03. Dim DateCalc As Date = date_now.Text
04.
05. Dim DateTemp As Date
06.
07. Dim d, m, y As Integer
08.
09. If DateBirth > DateCalc Then
10.
11. MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
12.
13. End If
14.
15.
16.
17. y = DateCalc.Year - DateBirth.Year
18.
19. DateTemp = DateAdd(DateInterval.Year, y, DateBirth)
20.
21. y = y + (DateTemp > DateCalc)
22.
23.
24.
25. DateBirth = DateAdd(DateInterval.Year, y, DateBirth)
26.
27. m = DateDiff(DateInterval.Month, DateBirth, DateCalc)
28.
29. m = m + (DateAdd(DateInterval.Month, m, DateBirth) > DateCalc)
30.
31.
32.
33. DateBirth = DateAdd(DateInterval.Month, m, DateBirth)
34.
35. d = DateDiff(DateInterval.Day, DateBirth, DateCalc)
36.
37. d = d + (DateAdd(DateInterval.Day, d, DateBirth) > DateCalc)
38.
39. TextBox1.Text = "อายุตอนนี้ : " & y & " ปี " & m & " เดือน " & d & " วัน "
40.
41.
42. Dim d4 As Date = CDate(date_birthday.Text)
43. d4 = d4.AddYears(60)
44. date_retire.Text = CStr(d4)
45.
46.
47.
48. Dim Year1 As Integer
49. Dim Month1 As Integer
50. Dim Day1 As Integer
51. Dim Date3 As Date
52.
53. Dim dYear1 As String
54. Dim dMonth1 As String
55. Dim dDay1 As String
56.
57. Year1 = DateDiff("yyyy", date_now.Text, date_retire.Text)
58. Date3 = DateAdd("yyyy", Year1, date_now.Text)
59. If Date3 > date_retire.Text Then
60. Date3 = DateAdd("yyyy", -1, Date3)
61. Year1 = Year1 - 1
62. End If
63. Month1 = DateDiff("m", Date3, date_retire.Text)
64. Date3 = DateAdd("m", Month1, Date3)
65. If Date3 > date_retire.Text Then
66. Date3 = DateAdd("m", -1, Date3)
67. Month1 = Month1 - 1
68. End If
69. Day1 = DateDiff("d", Date3, date_retire.Text)
70.
71. If Year1 = 0 Then
72. dYear1 = ""
73. Else
74. dYear1 = Year1 & " ปี "
75. End If
76. If Month1 = 0 Then
77. dMonth1 = ""
78. Else
79. dMonth1 = Month1 & " เดือน "
80. End If
81. If Day1 = 0 Then
82. dDay1 = ""
83. Else
84. dDay1 = Day1 & " วัน"
85. End If
86.
87. TextBox2.Text = "เหลืออีก : " & dDay1 & dMonth1 & dYear1
88.
89.
90. End Sub
