Das deutsche QBasic- und FreeBASIC-Forum

[gandro]

Ich denke der Titel sagt alles. In der QB Monster FAQ steht zwar etwas über die Differenz zwischen zwei Uhrzeiten, aber das funktioniert nicht über Mitternacht.

Ich möchte eine Funktion, welche die Zeit anzeigt, die man bereits im Programm ist, und zwar auf die Sekunde genau.
Kann mir jemand sagen wie ich das in ungefähr machen müsste. Ich peils irgendwie net, hatte vorhin ne Uptime von -11 Sekunden

[Leader4]

Über das Schlüsselwort TIMER klappt es immer, nur nicht über Mitternacht. Aber ehrlich gesagt: Es dürfte doch nicht allzu oft vorkommen, dass ein Programm genau über Mitternacht benutzt wird.

Ganz einfach wäre es also (nur ein kleines Beispiel):

A = Timer 'muss demnach am Programmanfang stehen
Do
Print Int (Timer - A)
Loop



Über Mitternacht wirds komplizierter. Ich würde es vielleicht so machen:



A$ = Left$(Date$,2) 'ließt aktuelles Datum ein
Timer = A1

[...] 'Programm

Sub Kotrolle
If Left$(Date$,2) <> A$ = Then Summe = Summe + (Timer-A1) ' 1)
Timer = A2
End Sub

Gesamtzeit = Summe + (Timer - A2) '2)
System



1) Rechnet die Zeit bis Mitternacht aus
2) Addiert zur Gesamtzeit die Zeit nach Mitternacht


Im ganzen Programm musst du dann immer wieder zu dieser Sub zugreifen, damit das Programm möglichst schnell registriert, dass ein neuer Tag angebrochen ist.
Dies sind nur kurze Beispielprogramme, ob sie funktionieren hab ich nicht ausprobiert.
_________________
Ein richtiger Programmierer muss so richtig faul sein und sich den ganzen Tag mit der Frage beschäftigen, wie man mal wieder etwas einfacher machen kann.

[gandro]

Danke für die Antwort...

Aber wenn ich das richtig verstanden habe, funktioniert diese Methode auch nur max. 47h 59min lang richtig...
Bei meinem Programm wird aber schon dazu kommen, dass es länger laufen wird...
Gibt es keinen Workaround mit dem ich z.B. am Anfang das Datum und die Uhrzeit speichere und dass das Programm jedesmal wenn ich die Uptime wissen will ausrechnet wie lange es schon läuft?

[dreael]

Gehe auf meine Seite

http://www.dreael.ch/Deutsch/Download/DatumBerechnung.html

und downloade die dortigen Datumsarithmetik-Routinen. Nun würde ich das Ganze wie folgt einbinden:

[dreael]

QB kennt im Gegensatz zu allen heutigen Betriebssystemen und Programmiersprachen keinen Timestamp-Datentyp, wie ich ihn oben definiert habe. Vor allem ist es nicht möglich, Datum und Uhrzeit als sog. atomare Operation auslesen. QB kann hier übrigens nichts dafür, denn dies rührt bereits von MS-DOS her, wo man für das Auslesen der Zeit auch zwei separate CALL INTERRUPTs (INT 21h/AH=2Ah für Datum, INT 21h/AH=2Ch) benötigt.

Warum dies ein Problem werden kann: Nehmen wir einmal an, dass die Ausführung der Operation

[gandro]

Vielen Dank für die Antworten, ich glaub jetzt sollte es klappen

[stef]

Und wieder einen neuen Befehl gelernt, denn bisher kannte ich CDBL nicht. Man lernt hier doch immer wieder neues.

Auch wenn es scheinbar zu spät ist will ich mal trotzdem meine Funktion zum Berechnen von Zeitdifferenzen hier reinstellen:
Einfach zum Programmstart Datum und Zeit speichern:
Uhrzeit$ = TIME$
Datum$ = DATE$


Und dann mit der Funktion später die Zeitdifferenz in Sekunden berechnen:
PRINT ZeitDiff (Datum$, Uhrzeit$, DATE$, TIME$)

Die Funktion berrechnet die Zeitdifferenz immer korrekt, selbst wenn dazwischen Jahrhunderte liegen:

[gandro]

danke steff, ich hab jetzt deine variante genommen, da meine eigene immer noch nicht 100%ig funktioniert hat...

PS: ist schon ok, wenn ich sie zusammen mit meinem Programm unter die GPL setze? (solltest du nicht wissen was das ist: siehe hier und hier)