Einzelnen Beitrag anzeigen

Benutzerbild von rhodan
rhodan

Registriert seit: 4. Okt 2005
Ort: Hamburg
150 Beiträge
 
Delphi 7 Personal
 
#1

LastDayofCurrentMonth problem

  Alt 28. Mai 2014, 19:01
hi!

ich möchte in einem Label die letzten verfügbaren arbeitstage des aktuellen monats anzeigen lassen, einschliesslich des aktuellen tages. das klappt soweit auch ganz gut, sprich in einem monat mit 31 tagen wird am 30. "2 resttage diesen monat" angezeigt. allerdings wird dies auch beim letzten tag angezeigt..ich hab versucht es so zu lösen:

Code:
var
  tage: Integer;
  datum1: TDate;
.
.
.

datum1 := now;

  if datum1 = LastDayOfCurrentMonth then
  begin
  tage  := DaysBetween(datum1, LastDayOfCurrentMonth)+1;
  datumlabel.caption.text:=FormatDatetime('d. mmmm yyyy - ', Now)+(inttostr(tage)+' Resttage diesen Monat!')
  end
  else
  begin
  tage  := DaysBetween(datum1, LastDayOfCurrentMonth)+2;
  datumlabel.caption.text:=FormatDatetime('d. mmmm yyyy - ', Now)+(inttostr(tage)+' Resttage diesen Monat!');
  end;
der code in der "else" schleife ist der den ich ursprünglich ausführte und der bis auf den letzten tag funktionierte. allerdings wird "datum1 = LastDayOfCurrentMonth" nicht so ausgeführt bzw erkannt wie ich es mir erhofft habe, es wird immer die else schleife ausgeführt..auch am letzten tag...hat jemand nen tip was ich falsch mache?

danke

Geändert von rhodan (28. Mai 2014 um 19:04 Uhr)
  Mit Zitat antworten Zitat