// Hiermit kann man ermitteln, wieviel Tage ein Monat hat.

// Getestet mit D4 unter WinME


// Variante 1:

function MonatsTage(Monat, Jahr: Word): Word;  
var year, month: Word;  
begin  
 decodedate(incmonth(encodedate(Jahr, Monat, 1), 1) - 1, year, month, result);  
end;

// Variante 2:

function MonatsTage(monat, jahr: word): word; 
begin 
  result := MonthDays[IsLeapYear(jahr), monat] 
end;

// Beispielaufruf: Wieviel Tage hatte der Februar 1996 ?
procedure TFormx.Button8Click(Sender: TObject); 
var Tage: Word; 
begin 
 Tage := MonatsTage(2, 1996); 
 label1.caption := inttostr(Tage); 
end;