Einzelnen Beitrag anzeigen

Blackheart

Registriert seit: 4. Mai 2005
846 Beiträge
 
Delphi 7 Enterprise
 
#12

Re: Delphi - Code Hilfe

  Alt 26. Feb 2007, 19:14
Zitat von shmia:
Die Schaltjahrermittlung ist in der VCL schon enthalten.
In der Unit SysUtils gibt es die Funktion IsLeapYear().
Hier der Sourcecode dazu:
Delphi-Quellcode:
function IsLeapYear(Year: Word): Boolean;
begin
  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;
Bitte lies dir nochmals die 1. Anwort den Unwissenden durch!
Er hat lang und breit erklärt, wie du deine Fragen stellen sollst, aber mir scheint, das ist noch nicht ganz angekommen.
Delphi-Quellcode:
if IsLeapYear(2007) then Caption:='Schaltjahr'
  else Caption:='Kein Schaltjahr';
Blackheart
  Mit Zitat antworten Zitat