Rechnung/Formel von Arbeitszeiten

[Kaeru Gaman]

Also wie wäre es wenn ihr einfach die date()-Funktion nutzt.

Ich würde ohnehin mit Timestamps in Sekunden rechnen weil man dann die Date-Funktionen einfach benutzen kann...

@KeyKon:
Das funktioniert so nicht da ich Minutengenau rechnen möchte also keine Sekundenangaben brauche.

du siehst, es wird wohl nicht gewünscht.

[Toshy]

Ich weiß, aber ich hoffe noch, daß er darauf kommt, da 60 Sekunden ne Minute ergeben *grins*

Also noch mal an den Hilfesucher, die date()-funktion ist genau dafür da, egal ob sekunden, minuten, stunden, Tage oder jahregenau. du muß ja nicht mal mit sekunden rechnen. Alles andere als die date()-Funktion ist Blödsinn für das was du suchst.
Nebenbei mal angemerkt, Arbeitszeiten können auch über den Tageswechsel, also 0 uhr laufen, daß beachtet die date()-funktion schon, ganz einfache Eigene nicht.

Da die Lösung schon zweifach kam kann man den Thread wohl schließen

[Kaeru Gaman]

hier wurden noch nie threads geschlossen, nur weil was beantwortet war...

[Kaeru Gaman]

> Alles andere als die date()-Funktion ist Blödsinn für das was du suchst.

> über den Tageswechsel, also 0 uhr laufen, daß beachtet die date()-funktion schon, ganz einfache Eigene nicht.

nur weil du lieber eine Aufwendige Funktion aufruft anstatt einen winzigen Algorithmus selber zu schreiben,
heißt das nicht, das es nicht ginge oder das es ungemein kompliziert wäre.

kleine demo:
man braucht nur zwei Ifs um die jeweiligen Overflows zu berücksichtigen:
einmal den Tageswechsel und einmal den Stundenwechsel.
eine unbedingte und zwei bedingte subtraktionen...
also, ich finde das weder kompliziert noch Blödsinn.

Code: Alles auswählen

OpenConsole()
Repeat
  ;*****************************
  PrintN("")
  Print("Startzeit: ")
  TimeOn$ = Input()
  PrintN("")
  If LCase(TimeOn$) = "quit"
    Break
  EndIf
  TimeOn = Val(TimeOn$)
  ;*****************************
  PrintN("")
  Print("Endezeit: ")
  TimeOff$ = Input()
  PrintN("")
  If LCase(TimeOff$) = "quit"
    Break
  EndIf
  TimeOff = Val(TimeOff$)
  ;*****************************
  ;* Dauer berechnen
  TimeDur  = TimeOff - TimeOn
  ;* 24h overflow
  If TimeOff < TimeOn
    TimeDur + 2400
  EndIf
  ;* 60min overflow
  If (TimeOff % 100) < (TimeOn % 100)
    TimeDur -40
  EndIf
  ;* zu string umformen
  TimeDur$ = Str(TimeDur)
  ;*****************************
  PrintN("")
  PrintN("Zeitdifferenz: " + TimeDur$)
  PrintN("")
ForEver

[KeyKon]

Auch wenn es nicht kompliziert is, ist es meiner Meinung nach doch komplizierter als einfach die Date-Funktion zu nutzen...
Aber das soll er machen wie er will, seinen Ansatz fand ich dennoch ziemlich bitter... Ich halt mich hier jetz raus...