So berechnen Sie den Zeitunterschied in VBA?

Brauche ich zur Berechnung der Differenz von zwei verschiedenen Zeiten.

Beispielsweise 

time1 = 6:45 AM
time2 = 7:30 AM

Dann brauche ich für die Konvertierung in Stunden (integer)

So, in den Grundrechenarten, das ist:

timediff = time2 - time1
timediff = 0:45

timediff(in hrs) = 0 + (45/60)
timediff(in hrs) = 0.75

Muss ich dazu in VBA. Kann mir jemand helfen?
Vielen Dank!

InformationsquelleAutor xtina1231 | 2015-02-12
  1. 5

    DateDiff() berechnet diese (n zeigt Minuten):

    ?DateDiff("n", "6:45", "7:30") / 60
 0.75
    InformationsquelleAutor Alex K.
  2. 1

    War dies der erste Treffer, den ich habe über eine google-Suche für VBA-timediff: http://www.ozgrid.com/forum/showthread.php?t=45698&p=231656#post231656

    Ich glaube, es sollte das tun, was Sie wollen, mit minimalen änderungen.

    Den UDF-Definition in diesem post ist:

    Function TimeDiff(StartTime As Date, StopTime As Date) 
    TimeDiff = abs(StopTime-StartTime) * 86400 
End Function
    InformationsquelleAutor eirikdaude
  3. 0

    Dieser arbeitete für mich. Nach einer Reihe von Passungen und beginnt, es scheint so einfach zu sein.
    Das Ergebnis mit dem Wert dtDuration (eigentlich ein Doppelzimmer) ist auch zum aktualisieren einer Stunden (Doppel -) Feld in einer Tabelle.

    Dim dtDuration As Double
dtDuration = DateDiff("s", CDate(strStarTime), CDate(strCompTime))

Me.txtCalcHours.SetFocus
Me.txtCalcHours.Text = dtDuration / 3600
    InformationsquelleAutor John H Funk
Schreibe einen Kommentar