Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Zeitdifferenz berechnen
Autor: Werner Wagner (---.dip0.t-ipconnect.de)
Datum:   27.08.20 07:29

Moin,
vielen Dank für die Infos!!!! Manchmal hat man beim Lesen der Hilfe Tomaten auf den Augen! :-D

Hier eine ebenfalls interessante Lösung (die hab ich im Forum entdeckt und etwas angepasst):

 Proc DeltaZeit
 Parameters Z1$,Z2$
 declare z1%,z2%,h1%,h2%,h3%,m1%,m2%,m3%,zd%,h1&,h3$,m3$,out$
 h1%=@val(@Left$(Z1$,2))
 m1%=@val(@Right$(Z1$,2))
 h2%=@val(@Left$(Z2$,2))
 m2%=@val(@Right$(Z2$,2))
 z1% = (h1% * 60) + m1%
 if h2% < h1%
 z2% = ((h2%+24) * 60) + m2%'falls Endzeit die 23:59 überschreitet
 else
 z2% = (h2% * 60) + m2%
 endif
 zd% = z2% - z1%
 h3% = INT(zd%/60)
 m3% = zd% - h3% * 60
 h3$=@Str$(h3%)
 m3$=@Str$(m3%)
 case len(h3$)=1: h3$="0" + h3$
 case len(m3$)=1: m3$="0" + m3$
 out$=h3$,":",m3$
 Return out$
 EndProc
 


Profan ist wie eine Familie.

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Zeitdifferenz berechnen  Neu
Werner Wagner 24.08.20 19:20 
 Re: Zeitdifferenz berechnen  Neu
Arndt Lindner 25.08.20 08:33 
 Re: Zeitdifferenz berechnen  Neu
Werner Wagner 25.08.20 10:11 
 Re: Zeitdifferenz berechnen  Neu
Werner Wagner 25.08.20 11:00 
 Re: Zeitdifferenz berechnen  Neu
Arndt Lindner 25.08.20 17:17 
 Re: Zeitdifferenz berechnen  Neu
Michael Wodrich 26.08.20 15:18 
 Re: Zeitdifferenz berechnen  Neu
Werner Wagner 27.08.20 07:29 
 Re: Zeitdifferenz berechnen  Neu
Heinz Brill 27.08.20 18:22 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org