Frage zu Zeitrechnung

[Manni]

Hallo

versuche es mal mit folgendem Code :

Delphi-Quellcode:

function IsLeapYear( nYear: Integer ): Boolean;
begin
Result := (nYear mod 4 = 0) and ((nYear mod 100 <> 0) or (nYear mod 400 = 0));
end;

function MonthDays( nMonth, nYear: Integer ): Integer;
const
DaysPerMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysPerMonth[nMonth];
if (nMonth = 2) and IsLeapYear(nYear) then Inc(Result);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Year, Month, Day, Hour : Word;
begin
DecodeDate(Now, Year, Month, Day);
edit1.text := inttostr(monthDays(Month, Year));
end;

Sollten weiter Fragen zur Zeitberechnung bestehen bitte melden.

Gruß Manni

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