Uhrzeit Rest Min und Sec

[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.

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

Zitat von Patrick Star:

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 von himitsu:

...isses eigentlich ganz OK.

Sicher dat?

Delphi-Quellcode:

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

Ist glaube ich besser

Gruß
K-H

[himitsu]

59 oder 60 .... wenn schon, dann doch überall gleich?

60 ist rechnerisch schon richtig, aber, jetzt wo du es sagst, (60 - sekunde) mod 60 wäre dann wohl richtiger.