[求助]如何从文本框中输入出生日期及自动求出当前年龄(岁数)?

[此贴子已经被作者于2007-10-19 23:31:12编辑过]

三楼版主太厉害了,一时看不明白,回去慢慢研究.
这段代码是在
private sub text1_change()

end sub
过程中吗?
另:CDate()函数没见过,不知什么意思?

Const conDateInterval = "/"
Const conDateFormat = "yyyymmdd"
Const conDateFormat1 = "####/##/##"

Private Sub Form_Load()
Text1 = ""
Text2 = 0
Text1.MaxLength = 10
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Text2.SetFocus
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> vbKeyBack And KeyAscii <> 47 And KeyAscii <> 45 Or KeyAscii = vbKeyReturn Then KeyAscii = 0
End If
End Sub

Private Sub Text1_LostFocus()
If IsDate(ChangeDateFormat(Text1)) Then
Text1 = ChangeDateFormat(Text1)
Text2 = DateDiff("yyyy", Text1, Date)
Else
MsgBox "请输入正确的日期格式"
Text1.SetFocus
End If
End Sub
Private Function ChangeDateFormat(ByVal lsInputDate As String) As String
If Len(lsInputDate) >= 8 Then
If Len(lsInputDate) = 8 Then
lsInputDate = Left(lsInputDate, 4) & conDateInterval & Mid(lsInputDate, 5, 2) & conDateInterval & Right(lsInputDate, 2)
End If
If Len(lsInputDate) = 10 Then
If IsDate(lsInputDate) Then
If Format(lsInputDate, conDateFormat) <= Format(Date, conDateFormat) Then
ChangeDateFormat = Format(Format(lsInputDate, conDateFormat), conDateFormat1)
Else
ChangeDateFormat = lsInputDate
End If
Else
ChangeDateFormat = lsInputDate
End If
End If
Else
ChangeDateFormat = lsInputDate
End If
End Function