VB编写，输入身份证号，输出年月日

作者: | 日期: 2010 年 09 月 27 日 | 围观: 7551次+ | 没有评论

Private Sub Command1_Click()
Dim nian, yue, ri As Integer
Dim sfzh As String
sfzh = Text1.Text
nian = Mid(sfzh, 7, 4)
yue = Mid(sfzh, 11, 2)
riri = Mid(sfzh, 13, 2)

[……]

继续阅读

第 1 页，共 1 页1