Countdown

[Sierra]

Hi!
Ich bin gerade dabei einen Countdown zu programmieren.
Das funktioniert auch soweit ganz gut.
Jetzt habe ich lediglich das Problem, dass ich diesen in zwei Versionen anbieten will.
Einer soll ganz normal bis zu einem bestimmten Datum runterzählen (das funktioniert schon).
Ein anderer soll das gleiche tun, jedoch soll dieser alle Wochenende bei der Zählung rauslassen.
Also praktisch:

Delphi-Quellcode:

if not (Wochentag='Samstag') or (Wochentag='Sonntag') then
  {Countdown-Methode};

Nur wie stelle ich das genau an?
Also man könnte ja zum Beispiel ermitteln, ob heute (Now) ein Samstag oder Sonntag ist.
Aber das bringt mir ja nicht so viel.
Ich müsste doch theoretisch dann alle Tage bis zum genannten Zieldatum ermitteln, die keine Wochentage sind oder geht das einfacher?
Vielen Dank,

Sierra.

[mkinzler]

Delphi-Quellcode:

DayOfWeek( <datum>)

liefert die den Tag als Zahl

[Sierra]

Danke für die schnelle Antwort, aber das habe ich ja schon oben angeführt.
Es ist deshalb schwierig, da wenn ich z.B. ein Jahr als Countdown hätte, ich 52 Wochenende manuell eingeben müsste oder nicht?

[mkinzler]

Du muust nur für jedes Datum abfragen ob es eine tag am Wochenende ist und nur dann in die Zählung einfließen lassen.

[Klaus01]

Warum denn das?

DayOfWeek liefert für Sonntag eine 1 und für Samstag eine 7.
Da muß manuell eigentlich nichts gemacht werden.

Grüße
Klaus

[stifflersmom]

Zitat:

Zitat von Sierra

Danke für die schnelle Antwort, aber das habe ich ja schon oben angeführt.
Es ist deshalb schwierig, da wenn ich z.B. ein Jahr als Countdown hätte, ich 52 Wochenende manuell eingeben müsste oder nicht?

Nein,

pack das ganze in eine Schleife:
Also von Zieldatum das Startdatum abziehen, dann erhältst Du die Anzahl der Tage
Dann gehst Du in einer Schleife ausgehend von Deinem Startdatum bis Startdatum+Anzahltage durch
und wenn DayAofWeek() dann ungleich 7 und 1 ist, dann mach was damit

Moin

[Sierra]

Danke!
Das hat alles wunderbar geklappt so.

Sierra.

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.