Letzter Tag im Monat (Datum) ermitteln

[merlin17]

hallo,

Delphi-Quellcode:

function GetLastDayofMonth (const DT: TDateTime): TDateTime;
var
   D, M, Y: Word;
begin
   DecodeDate (DT, Y, M, D);
   case M of
      2:
      begin
         if IsLeapYear (Y) then
            D := 29
         else
            D := 28;
      end;
      4, 6, 9, 11: D := 30
      else
         D := 31;
   end;
   Result := EncodeDate (Y, M, D) + Frac (DT);
End;

function IsLeapYear (Year: Word): Boolean;
begin
   Result := ((Year and 3) = 0) and ((Year mod 100 > 0) or (Year mod 400 = 0))
End;

:-) thomas

[edit=Admin]Delphi-Tags eingefügt. Mfg, Daniel[/edit]