Hallo liebe Leute,
Ich bin gerade dran VBA kennen zu lernen und bin über ein eigentlich simples Problem gestolpert, welches ich nicht zu lösen weiß.
Ich möchte einfach nur 3 Minuten auf Me!ERF_Zeitgesammt addieren, quasi für alle nachfolgenden Zeiten dann auch.
Dim varStartZeit As Date, varEndeZeit As Date
Dim varDauerMin As Double, varDauerStd As Double
varStartZeit = Me!ERF_StartDatum1 & " " & Me!ERF_StartUhrzeit1
varEndeZeit = Me!ERF_EndeDatum & " " & Me!ERF_EndeUhrzeit
varDauerMin = DateDiff("n", varStartZeit, varEndeZeit)
varDauerStd = varDauerMin / 60
varDauerStd = Round(varDauerStd, 2)
Me!ERF_ZeitGesammt = Format$((varDauerMin \ 60) Mod 350, "00") & ":" & Format$(varDauerMin Mod 60, "00")
Me!ERF_ZeitGesammtMaStd = varDauerStd
Kann mir da jemand weiterhelfen?
mfG Damokles |