Zeit bis zu bestimmter Zeit zählen

Reply to Zeit bis zu bestimmter Zeit zählen on Sat, 01 Mar 2008 17:07:28 GMT

TDateTime — Sat, 01 Mar 2008 17:07:28 GMT

Hallo,

ich möchte gerne in einem label anzeigen, wie lange es noch dauert, bis es 12 Uhr mittags ist.
Also, wenn es genau 8 Uhr ist, dann soll 04:00:00 angezeigt werden.
Wenn es 13 Uhr ist, dann sol 23:00:00 angezeigt werden.
Die anzeige soll sekündlich aktualisiert werden.

Leider habe ich keine Zeit, wie ich den Zeitunterschied berechnen kann.
Die aktuelle zeit bekomme ich mit Now()

Bitte um Hilfe

Reply to Zeit bis zu bestimmter Zeit zählen on Sat, 01 Mar 2008 17:47:26 GMT

2XS TDateTime — Sat, 01 Mar 2008 17:47:26 GMT

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	double offset = TDateTime::CurrentDateTime().Val - (int) TDateTime::CurrentDateTime().Val > 0.5 ? offset = 1.5 : offset = 0.5;
	Label1->Caption = TDateTime(TDateTime((int) TDateTime::CurrentDateTime().Val + offset) - TDateTime::CurrentDateTime()).TimeString();
}
//---------------------------------------------------------------------------

Reply to Zeit bis zu bestimmter Zeit zählen on Sat, 01 Mar 2008 18:03:16 GMT

TDateTime — Sat, 01 Mar 2008 18:03:16 GMT

Danke, aber wie genau funktioniert das jetzt?
Wo steht da die 12 Uhr?

Ich habe es wärenddessen so probiert:

AnsiString heute = StrToDate(Now().DateString());
        morgens->DateTime = heute+" 07:30:00";
        label_morgens->Caption = AnsiString((morgens->DateTime - Now()).TimeString());
        mittags->DateTime = heute+" 12:30:00";
        label_mittags->Caption = AnsiString((mittags->DateTime - Now()).TimeString());
        abends->DateTime = heute+" 18:30:00";
        label_abends->Caption = AnsiString((abends->DateTime - Now()).TimeString());

Aber, wenn 12:30 (mittags) schon vorbei ist, dann zeigt er die Zeit bis 12:30 Uhr (nachts).
Wie kann ich das noch ändern?

Reply to Zeit bis zu bestimmter Zeit zählen on Sat, 01 Mar 2008 18:12:01 GMT

TDateTime — Sat, 01 Mar 2008 18:12:01 GMT

Ok, es hat sich erledigt, ich habe es dochnoch hinbekommen:

AnsiString heute = StrToDate((Now()+1).DateString());
        morgens->DateTime = heute+" 07:30:00";
        label_morgens->Caption = AnsiString((morgens->DateTime - Now()).TimeString());
        mittags->DateTime = heute+" 12:30:00";
        label_mittags->Caption = AnsiString((mittags->DateTime - Now()).TimeString());
        abends->DateTime = heute+" 18:30:00";
        label_abends->Caption = AnsiString((abends->DateTime - Now()).TimeString());

Reply to Zeit bis zu bestimmter Zeit zählen on Sat, 01 Mar 2008 21:04:57 GMT

Alexander Kempf — Sat, 01 Mar 2008 21:04:57 GMT

Hallo,

die Hin- und Herkonvertiererei mit StrToDate() würde ich besser vermeiden.
Hier schlagen u.U. die Windows-Einstellungen zu.

Mein Vorschlag sieht so aus:

TDateTime zwoelfUhr = RecodeTime(Now(), 12, 0, 0, 0);  // heute zwölf Uhr
   if (Now() > zwoelfUhr) {  // schon nach zwölf heute?
      zwoelfUhr = RecodeTime(Tomorrow(), 12, 0, 0, 0);  // dann nehmen wir morgen zwölf Uhr
   }
   TDateTime zeitBisZwoelfUhr = zwoelfUhr - Now();
   Label1->Caption = TimeToStr(zeitBisZwoelfUhr);

Gruß

Alexander

Reply to Zeit bis zu bestimmter Zeit zählen on Sat, 01 Mar 2008 22:26:49 GMT

al_b — Sat, 01 Mar 2008 22:26:49 GMT

Noch eine andere Lösung:

Label1->Caption = (TTime(1.5)-TTime((Now().Val-static_cast(Now().Val)))).TimeString();