|
Registriert seit: 17. Nov 2005
Ort: Hamburg
1.041 Beiträge
Delphi XE2 Professional
|
AW: Tagesanzahl Februar eines Jahres
14. Dez 2020, 13:23
Geht aber kürzer  Days := IfThen(IsLeapYear(Year),29,28); oder noch kürzer
Days:=28+Ord(IsLeapYear(Year));
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
|