Uhrzeit Rest Min und Sec

[himitsu]

Zitat:

Zitat von sx2008 (Beitrag 1238121)

STUNDEN_PRO_TAG

Falls jemand nicht weiß was wieviel ist und sich daher keine eigene Konstannte erstellen kann:
http://docwiki.embarcadero.com/VCL/X...ls.HoursPerDay

Es gibt tausende Wege, welche man ganz leicht selber rausfinden kann, wenn man allein nur mal paar Minuten land die Units SysUtils und DateUtils ansieht oder allgemein nach Zeitfunktionen in der OH sucht.

Delphi-Quellcode:

ZeitBisMitternacht := IncDay(DateOf(Now)) - Now;
ZeitBisMitternacht := IncDay(Date) - Now;
ZeitBisMitternacht := Tomorrow - Now;
ZeitBisMitternacht := 1 - Time;
...

[Perlsau]

Zitat:

Zitat von himitsu (Beitrag 1238130)

Es gibt tausende Wege, welche man ganz leicht selber rausfinden kann, wenn man allein nur mal paar Minuten land die Units SysUtils und DateUtils ansieht oder allgemein nach Zeitfunktionen in der OH sucht.

:thumb: Genau das wollte ich zum Ausdruck bringen: Wenn man ein wenig eigenständig denken und rechnen kann, ist so eine Aufgabe ein Klacks, auch ganz ohne SysUtils und DateUtils. Als ich vor 20 Jahren mit TurboPascal anfing, baute ich mir auch meine eigenen Units für solche Sachen, die mußten dann überall mit :wink:

Es ist schon bezeichnend, daß man nicht mal fragen darf, wo da das eigentliche Problem sei, ohne gleich zur Vor- und Rücksicht ermahnt zu werden.

@alle: Ihr könnt ja eine Abstimmung starten, wenn ihr mich als unerwünscht betrachtet, kein Problem, abgemeldet ist man schnell. Das paßt dann schon ...

[Furtbichler]

Zitat:

Zitat von Perlsau (Beitrag 1238133)

@alle: Ihr könnt ja eine Abstimmung starten, wenn ihr mich als unerwünscht betrachtet, kein Problem, abgemeldet ist man schnell. Das paßt dann schon ...

Sei nicht so empfindlich, bist doch keine Perlsissi. :-D

[Patrick Star]

Au Weia

Es war nur eine Frage. Wollte hier keine Lawine lostreten.

SORRY das war nicht meine Absicht gewesen. :roll:
Danke trotzdem an alle die Helfen wollten.

Patrick

[p80286]

@Himitsu
Danke für die Anregung

Ich hätte es mit DecodeTime gelöst.

Gruß
K-H

[sx2008]

Ich hab da noch ein Demo auf meinem Github-Account liegen...
https://github.com/sx2008/Delphi-Tes...PeriodicAction
Es verwendet einen Timer um sekündlich die ablaufende Restzeit in Minuten und Sekunden anzuzeigen.
Wenn die Sollzeit erreicht ist wird eine Aktion ausgelöst (ein Beep+Fensterblitzer) und die neue Sollzeit in der Zukunft wird errechnet.
Vielleicht sollte man zuerst die neue Sollzeit ausrechnen und dann die Aktion starten damit es genauer wird.
Einfach die Zeilen

Delphi-Quellcode:

DoAktion;

und

Delphi-Quellcode:

CalcNextAction;

vertauschen.

[himitsu]

Zitat:

Zitat von p80286 (Beitrag 1238184)

@Himitsu
Danke für die Anregung

Ich hätte es mit DecodeTime gelöst.

Ist auch garnicht so weit weg, wo meinen Vorschlägen. :angle:

Zitat:

Delphi-Quellcode:

function Now: TDateTime;
{$IFDEF MSWINDOWS}
var
  SystemTime: TSystemTime;
begin
  GetLocalTime(SystemTime);
  with SystemTime do
    Result := EncodeDate(wYear, wMonth, wDay) +
      EncodeTime(wHour, wMinute, wSecond, wMilliseconds);
end;
{$ENDIF MSWINDOWS}

Aber, wie gesagt, es gibt noch unzählige andere Wege, welche zum Ziel führen.

TSystemTime, TDateTime, jeder Teil in einem eigenen Integer (ala wYear, wMonth, ...) usw.
Es gibt viele Zeittypen, Funktionen und Rechenweisen, die man ganz gut mischen kann.

[Patrick Star]

Hallo

habe es nun so gelöst. Zumindest tut es das was ich möchte.
Logo kann man das bestimmt noch verbessern. Also mich nicht gleich "Zerreissen".Ich freue mich das es funzt.:)

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var stunde, minute, sekunde, msec,XStunde,XSekunde : word;

begin
decodeTime (NOW, stunde, minute, sekunde, msec);

    labelA.caption:= 'Zeit  ' + timeTostr(now);      // aklt. Uhrzeit
     labelB.Caption:= 'Stunde  ' + intTostr(stunde);  // atkl. Stunde
      labelC.Caption:= 'Minute  ' + intTostr(minute);  // aktl. Minute
       labelD.Caption:= 'Sekunde  ' + intTostr(sekunde); // aktl. Sekunde

        XStunde:= 60 - minute;
         LabelAktlMinute.Caption := intTostr(XStunde);

        XSekunde:= 60 - sekunde;
         LabelAktlSekunde.Caption := intTostr(XSekunde);

          RestStunde.Caption := '-  ' + intTostr(XStunde)+ ':' + intTostr(XSekunde);
end;

end.

So geht es mal wie schon gesagt.

Danke an alle die mir ein paar Tips gaben.

Patrick

[himitsu]

Nja, zumindestens bei der Codeformatierung könntest du noch ein bissl was verbessern, also vorallem die Einrückung.

Eine einheitliche Namenskonvention macht einem das Leben auch etwas einfacherer.
Abgesehn von der Groß-&Kleinschreibung, aber "RestStunde" springt da schon etwas aus der Reihe, gegenüber den anderen Labels.

Und wenn du labelA bis labelD "ordenliche" Namen gibst, dann währen diese Kommentare im Code auch nicht notwendig. :zwinker:

PS: Mit [DELPHI]...[/DELPHI] sieht es im Forum auch netter aus. (der Button mit dem Helm)

Zitat:

Zitat von Patrick Star (Beitrag 1238327)

Logo kann man das bestimmt noch verbessern. Also mich nicht gleich "Zerreissen".Ich freue mich das es funzt.:)

Wieso zerreißen?
Der Code macht das, was er soll. Mit den Werten/Variablen, welche du verwendest, harmoniert auch perfekt die Funktion DecodeTime.

Abgesehn davon, daß auf deiner GUI einige Informationen "doppelt" vorhanden sind, was man aber nicht beurteilen kann, da wir Diese nicht kennen,
isses eigentlich ganz OK.

[p80286]

Zitat:

Zitat von himitsu (Beitrag 1238330)

...isses eigentlich ganz OK.

Sicher dat?

Delphi-Quellcode:

xStunde:=59-Stunde;
xMinute:=59-minute;
xSekunde:=60-Sekunde;

Ist glaube ich besser

Gruß
K-H