Tijd converteren

[stonechest]

Ik heb verschillende textboxen waar een tijd ingevuld moet worden.
Ik heb de keypress zo ingesteld dat er alleen getallen van 0 t/m 9 ingevuld kunnen worden.
Wanneer er een tijd ingevoerd is wil ik dat er automatisch een datum opmaak van gemaakt word.

BV:

1330 moet 13:30 worden.

Hoe kan ik dit doen?

 

[WarnedGraph]

Als je VB.NET gebruikt:


Deze code werkt op voorwaarde dat de minuten uit 2 digits bestaan!

Dim tijd As String = "1300"
tijd = tijd.Insert(tijd.Length - 2, ":")
MessageBox.Show(tijd)

 

[Pizara]

Dit lijkt me de makkelijkste optie om te converten.

Public Class Form1

    Private Sub DateTextboxes_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    Handles TextBox1.KeyPress, TextBox2.KeyPress

        sender.MaxLength = 5
        If sender.TextLength < 5 Then
            Select Case Asc(e.KeyChar)
                Case 48 To 57 '0 to 9
                    If sender.TextLength = 2 Then
                        sender.AppendText(":")
                    End If
                Case 8 'Backspace

                Case Else
                    e.KeyChar = ""
            End Select
        End If

    End Sub


    Private Sub DateTextboxes_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles TextBox1.TextChanged, TextBox2.TextChanged

        If sender.TextLength = 5 Then
            MsgBox(TimeSerial(sender.Text.Substring(0, 2), sender.Text.Substring(3, 2), 0))
        End If

    End Sub

End Class