2013-01-08 21 views
0

我需要解決這個小問題。TextBox到DateTimePicker

在我的國家(塞爾維亞),我們有JMBG(即公民身份號碼的公民身份號碼) JMBG包含13個號碼,前7個號碼是出生日期。 例子: 我JMBG是2911990710 *** 29月29日,11月爲990,併爲一年,現在1990

,我的問題是,當我寫我JMBG我需要找回我的生日的價值DateTimePicker在窗體中的文本框,如何做到這一點?

編輯:我不知道這是爲什麼遷移從編程到計算器,當我需要代碼示例

+0

它可能解析一個字符串來獲取值並將它們傳遞給日期時間對象。 – 2013-01-08 13:46:25

+0

我知道,但我需要代碼示例。 – Hoh

+0

解析字符串http://msdn.microsoft.com/en-us/library/aka44szs.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2&創建日期時間http:// msdn .microsoft.com/en-us/library/system.datetime.aspx – 2013-01-08 13:54:45

回答

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 

讓我知道你是否需要更多。