1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Imports System.Globalization
Public Class Form1
Function CalculateAge(ByVal vDate1 As Date, ByVal vdate2 As Date) As String
Dim vYears As Integer, vMonths As Integer, vDays As Integer
vMonths = DateDiff("m", vDate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
End If
vYears = vMonths \ 12
vMonths = vMonths Mod 12
CalculateAge = vYears & "Year " & " " & vMonths & "Month " & " " & vDays & "Day"
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.Text = DateTime.Now.Date
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim textbox1Date, textbox2Date As DateTime
If DateTime.TryParseExact(TextBox1.Text, "dd/MM/yyyy", New CultureInfo("de-DE"), DateTimeStyles.None, textbox1Date) AndAlso _
DateTime.TryParseExact(TextBox2.Text, "dd/MM/yyyy", New CultureInfo("de-DE"), DateTimeStyles.None, textbox2Date) Then
TextBox3.Text = CalculateAge(textbox1Date, textbox2Date)
End If
If TextBox1.Text = "" Then
TextBox3.Text = ""
End If
End Sub
End Class |
Partager