VB.Net通过身份证号计算生日的方法
VB.Net通过身份证号计算生日的方法
是不是得先转为农历的生日,再看今年农历那天的阳历是多少号
[解决办法]
身份证中的生日是阳历的,不用再转换了,取出来直接用就行。
第二代身份是18位的,前6位是省市区的标识,从第7位开始就是8位的生日,格式是YYYYMMDD。
可以用String的SubString函数取就可以了。
[解决办法]
Private Shared Function GetBirthday(ByVal id As String) As String Dim birthday As Integer If String.IsNullOrEmpty(id) = True Then Return "" End If If id.Length <> 18 Then Return "" End If birthday = id.Substring(6, 8) Return birthdayEnd Function