|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim str As String
Dim i As Integer
str = TextBox1.Text
i = Mid(str, 17, 1)
If i Mod 2 Then TextBox2.Text = "男" Else TextBox2.Text = "女"
TextBox3.Text = Mid(str, 7, 4) & "-" & Mid(str, 11, 2) * 1 & "-" & Mid(str, 13, 2) * 1
TextBox4.Text = DateDiff("yyyy", DateValue(Format(TextBox3.Text, "yyyy-mm-dd")), Date)
End Sub
这段程序只能自动生成年龄,性别,出身年月,不能生成户口所在地。如果要生成户口所在地,必须预定义才行。 |
|