Public t As New Termin
Public ds_termin As New DataSet
Public tabtermin As New DataTable
Public terminkontakt, termindatum, termintext, termingesamt As String
Public termindate, terminzeit, terminges As Date
Public terminh, terminmin As Integer
Public terminh1, terminmin1, terminzeit1 As String
Public Sub dtp_termin_date_ValueChanged(ByVal sender As System.Object,   _
  aaaByVal e As System.EventArgs) Handles dtp_termin_date.ValueChanged
        t.SetDateTime_date(InstForm1)
End Sub
Public Sub dtp_termin_zeit_ValueChanged(ByVal sender As System.Object, aaaByVal _
  e As System.EventArgs) Handles dtp_termin_zeit.ValueChanged
        t.SetDateTime_zeit(InstForm1)
End Sub
Public Sub SetDateTime_date(ByVal InstForm1)
        t.dtp_date_Format(InstForm1)
        termindate = Form1.InstForm1.dtp_termin_date.Value
        termindatum = CStr(termindate)
        termindatum = Left(termindatum, 10)
        Form1.InstForm1.Label89.Text = termindatum
    End Sub
    Public Sub SetDateTime_zeit(ByVal InstForm1)
        t.dtp_zeit_Format(InstForm1)
        terminh = Form1.InstForm1.dtp_termin_date.Value.Hour
        terminmin = Form1.InstForm1.dtp_termin_date.Value.Minute
        terminh1 = CStr(terminh)
        terminmin1 = CStr(terminmin)
        terminzeit1 = terminh1 & ":" & terminmin1
        Form1.InstForm1.Label90.Text = terminzeit1
    End Sub