从身份证号获取生日 [英] get birthday from ID card number

问题描述

我需要从斯里兰卡身份证中提取生日.我很努力.请参阅以下内容.  

将dts设置为Date = TextBox1.text

TextBox2.Text = dts.DayOfYear 

通过此代码，

我可以将一天(1992.07.21)输入到TextBox1，并在TextBox2中获取输出(203).  但这不是我想要的.

i can input a day (1992.07.21) to TextBox1 and get output (203) in TextBox2.  BUT this is not i wanted.

我想输入年份(203)并获得输出(1992.07.21).

提前感谢.

  Ex- 922030863V 

92          203              0863V年 

         一年中的一天     

年份(203)------->就像这样.7月21日7月21日.

推荐答案

这似乎可行.没有像leap年那样检查.

This seems to work. Did not check much like leap year.

Option Strict On
Imports System.ComponentModel

Public Class Form9

    Private Sub Form9_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim theDate As Date = DaysToDate(203)

        MsgBox(theDate.ToLongDateString)
    End Sub

    Private Function DaysToDate(theDays As Integer) As Date
        DaysToDate = New DateTime(DateTime.Today.Year, 1, 1).AddDays(theDays - 1)

    End Function

End Class

这篇关于从身份证号获取生日的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！