1,在text1中输入职工出生日期,格式为"年年年年-月月-日日",中间的短横自动生成.
2.在text2中自动显示出年龄,即多大岁数.
自己研究了一下午也弄出来,请提供帮助.不盛感激

Text2.Text = Val(Format(CDate(Format(Now, "YYYY-MM-DD")) - CDate(Text1.Text), "YYYY")) - 1900

测试:
输入:1986-05-01
输出:21

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

On Error GoTo st
If Len(Text1) = 8 And Mid(Text1, 5, 1) <> "-" And Mid(Text1, 8, 1) <> "-" Then
Text1 = Left(Text1, 4) + "-" + Mid(Text1, 5, 2) + "-" + Right(Text1, 2)
Text2.Text = Format(CDate(Format(Now, "YYYY-MM-DD")) - CDate(Text1.Text), "YYYY") - 1900
ElseIf Not (Len(Text1) = 10 And Mid(Text1, 5, 1) = "-" And Mid(Text1, 8, 1) = "-") Then
st: MsgBox ("职工出生日期输入有误,请检查更正!")
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Else
Text1 = Format(CDate(Text1.Text))
Text2.Text = Format(CDate(Format(Now, "YYYY-MM-DD")) - CDate(Text1.Text), "YYYY") - 1900
End If

[此贴子已经被作者于2007-10-20 0:57:56编辑过]

日期格式问题可以使用MonthView控件,保证输入正确格式的日期

谢谢楼上两位,我试试.

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

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

最好放在按钮单击过程中,因为你放在private sub text1_change()中,每有变化就激发事件,比较麻烦.
CDate()没看过? 那CInt看过没?

关键是日期型数据可以进行运算。

关键是text1文本框的输入过程,我在其他应用程序中见过很多,都是直接输入如:"19780512",显示"1978-05-12",不可能再按其他按钮的.
我的教材上只有Date()函数"返回系统当前日期",Int()函数"正数取整",不知前面加上"C"什么意思?

转换！