Clever-Excel-Forum - Text in Uhrzeit wandeln

Hallo,

ich habe ein Form in das ich Uhrzeiten (Arbeitszeiten) eingebe.

wenn ich die Felder auslese, bekomme ich den Inhalt als Text(in Hochkommas)

Um mit den Werten rechne zu können brauche ich die Werte als Uhrzeit.

Code:
Private Sub aze_Click()

'    azende = Date

'    azende = Format(Time, "hh:nn")

'    frmzeiterfassung.txtaze = azende

    'Berechnungen

    azbegin = frmzeiterfassung.txtazb

    azbegin = CDate(azbegin)

    azbegin = Format(azbegin, "hh:nn")

    azende = frmzeiterfassung.txtaze

    azende = CDate(azende)

    azende = Format(azende, "hh:nn")

    pbegin = frmzeiterfassung.txtpb

    pbegin = CDate(pbegin)

    pbegin = Format(Time, "hh:nn")

    pende = frmzeiterfassung.txtpe

    pende = CDate(pende)

    pende = Format(Time, "hh:nn")

    gesaz = azende - azbegin

    gesaz = Format(gesaz, "hh:nn")

    gesp = pende - pbegin

    gesp = Format(gesp, "hh:nn")

    gestag = gesaz - gesp

    gestag = Format(gestag, "hh:nn")

    frmzeiterfassung.txtgesaz = gestag

End Sub

zum Verständnis.

die auskommentierten Zeilen geben mir die Systemzeit an. Zu Testzwecken habe ich die Text felder mit werten belegt.
azbegin = Arbeitszeit Beginn
azende = Arbeitszeit Ende
pbegin = Pausen Beginn
pende = Pausen Ende
gesaz = Gesamtarbgeitszeit
gesp = Gesamt Pausenzeit
gestag = Gesamtarbeitszeit des Tages

Alle Variablen sind als Variant deklariert. Mit Date und Time kam ich nicht zum Ziel. Huh

ich möchte nur den Wert aus den Textfeldern in Uhrzeit wandeln.

Ich hoffen eine(r) von euch hat eine Lösung für mich und bedanke mich im voraus.

LG
Wilfried

Hi

hiermit kannst Du rumspielen

Code:
Option Explicit

Sub Zeit()

   Dim Kommt As String, Geht As String

   Dim Anwesend As Date

   Kommt = "07:35"

   Geht = "18:25"

   Anwesend = TimeValue(Geht) - TimeValue(Kommt)

   MsgBox Anwesend

End Sub

Hallo Winny,

zunächst einmal vielen Dank für deinen Tipp.

Durch TimeValue kann ich sogar mit Strings rechnen.

LG
Wilfried