Datum in textbox omzetten

[Doofenshmirt]

Hoi,

In een textbox komt een datum , deze wil ik graag omzetten .

Datum in textbox 1   dd-mm-yyyy     dit moet worden
textbox 2  mm-dd-yyyy

 

[pasan]

Private Sub TextBox1_Change()
TextBox2 = Format(TextBox1, "mm-dd-yyyy")
End Sub

op het moment dat je begint te typen in textbox 1 verschijnt er al een datum in textbox2
of je zet deze achter een knop

Private Sub TextBox1_AfterUpdate()
TextBox2 = Format(TextBox1, "mm-dd-yyyy")
End Sub

met deze typ je een datum en als je dan op enter drukt verschijnt de datum in textbox2

 

[Doofenshmirt]

Hoi Pasan,
Bedankt voor het meedenken.

Had dit gevonden , komt bijna op zelfde neer.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = str2date1(TextBox1.Text)
    End Sub
    Function str2date1(ByVal strInputText As String) As String
        Dim dt As Date = strInputText
        Return (Format(dt, "MM-dd-yyyy"))
    End Function