|
Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
Delphi 3 Professional
|
Re: Anzahl Tage eines Jahres ermitteln
24. Aug 2009, 10:10
Hallo,
oder:
Delphi-Quellcode:
function DaysInYaer(Yaer: Word): Word;
begin
Result := Trunc(EncodeDate(Yaer,12,13) - EncodeDate(Yaer - 1,12,31));
end;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|