Schleife mit Datum
09.08.2018 21:20:33
heinzs
folgende Funktion soll die Dauer von Anfangzeit bis Endezeit in Sekunden ermitteln; weil später noch andere Bedingungen hinzukommen können keine Zeitfunktionen verwendet werden.
Anfangszeit und Endzeit sind im Format tt.mm.yyyy hh:mm:ss vorhanden.
Eventuell fehlt bei for i1 = anfangszeit to endezeit ein step in sekunden.
Hat jemand eine Idee?
Public Function dauer(anfangszeit As Date, endezeit As Date) As Integer
gn_1 = 0
anfangszeit = anfangszeit
endezeit = endezeit
For i1 = anfangszeit To endezeit
gn_1= gn_1+ 1
Next i1
dauer = gn_1
End Function
Danke für Hilfe!
MfG
Heinz