Difference between revisions of "leap year/de"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting; deleted category included in page template) |
|||
Line 1: | Line 1: | ||
{{leap year}} | {{leap year}} | ||
− | + | ||
− | Zurück zur Seite [[code examples/de|Code Beispiele]]. | + | |
− | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. | |
− | Dieses Beispiel prüft, ob das Jahr ein (christliches) Schaltjahr ab dem Jahr 1582 ist. | + | |
− | Alternativ gibt es dazu in der Unit Sysutils die Funktion leap year (leap year = Schaltjahr). | + | |
− | + | Dieses Beispiel prüft, ob das Jahr ein (christliches) Schaltjahr ab dem Jahr 1582 ist. | |
− | <syntaxhighlight> | + | |
+ | Alternativ gibt es dazu in der Unit Sysutils die Funktion leap year (leap year = Schaltjahr). | ||
+ | |||
+ | <syntaxhighlight lang=pascal> | ||
function funIstSchaltjahr(wrdJahr: word): integer; | function funIstSchaltjahr(wrdJahr: word): integer; | ||
const | const | ||
Line 33: | Line 36: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | |||
− | |||
− | |||
+ | == See also == | ||
− | + | [[Talk:leap year/de]] | |
− | [[ | ||
− |
Latest revision as of 02:27, 19 February 2020
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
Dieses Beispiel prüft, ob das Jahr ein (christliches) Schaltjahr ab dem Jahr 1582 ist.
Alternativ gibt es dazu in der Unit Sysutils die Funktion leap year (leap year = Schaltjahr).
function funIstSchaltjahr(wrdJahr: word): integer;
const
conKalenderumstellung = 1583;
conFehler = -1;
conFalsch = 0;
conWahr = 1;
begin
Result := conFehler;
// Prüft auf die Richtigkeit des Kalenderjahres
if wrdJahr < conKalenderumstellung then
exit;
Result := conFalsch;
if (wrdJahr mod 4) = 0 then
Result := conWahr;
if (wrdJahr mod 100) = 0 then
Result := 0;
if (wrdJahr mod 400) = 0 then
Result := conWahr;
end;