Dim ts As TimeSpan
      Dim dtp As New DateTimePicker With {.Value = CDate("13.3.2012 9:05")}
      Dim tbo_time As New TextBox With {.Text = "12:30"}
      If TimeSpan.TryParse(tbo_time.Text, ts) Then
         dtp.Value = dtp.Value.Date + ts
      End If

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 08.04.14 um 03:20:55 editiert.