vb.net - 文本框到日期时间选择器

Question

我需要解决这个小问题。

在我的国家（塞尔维亚），我们有 JMBG（即唯一公民号码，也就是公民身份证号码），JMBG 包含 13 个数字，前 7 个数字是出生日期。示例：我的 JMBG 是 2911990710*** 29 代表 29 日，11 代表 11 月，990 代表 1990 年。

现在，我的问题是，当我编写 JMBG 时，我需要在文本框下方的 DateTimePicker 中取回我的生日值，该怎么做？

编辑：当我需要代码示例时，我不知道为什么要从编程迁移到 StackOverFlow

Answer 1

我在 harry 这么快的代码（你必须自己检查一些东西）：

    Dim sJMBG As String = TextBox1.Text
    Dim sBDate = sJMBG.Substring(0, 7)
    Dim sThous As String = sBDate(4) 'The number specifying if we are in 2000 or in 1900
    Dim iThous As Integer
    iThous = Integer.Parse(sThous)
    sBDate = If(iThous = 9, sBDate.Insert(4, 1), sBDate.Insert(4, 2))

    Dim dat As New Date(sBDate.Substring(4, 4), sBDate.Substring(2, 2), sBDate.Substring(0, 2))
    DateTimePicker1.Value = dat

如果您需要更多信息，请告诉我。