0

この小さな問題を解決する必要があります。

私の国（セルビア）には、JMBG（市民の一意の番号、別名市民ID番号）があります。JMBGには13の番号が含まれ、最初の7つの番号は生年月日です。例：私のJMBGは、29日は2911990710 ***、11月は11、1990年は990です。

さて、私の問題は、JMBGを作成するときに、次のTextBoxのDateTimePickerで誕生日の値をフォームに戻す必要があるということです。これを行うにはどうすればよいですか。

編集：コード例が必要なときに、なぜこれがプログラミングからStackOverFlowに移行されるのかわかりません

4

1 に答える 1

1

私は非常に高速なコードを使用しています（いくつかのことについては、自分で確認する必要があります）：

    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

さらに何か必要な場合はお知らせください。

于 2013-01-08T16:32:42.863 に答える