Pääsiäissunnuntain päivämäärä lasketaan näin:
function CalcEasterSunday(Year:Integer):TDatetime;
var
C,N,K,I,J,L,M,D : Integer;
begin
C := Year DIV 100;
N := Year MOD 19; // N := Year - 19 * (Year DIV 19);
K := (C - 17) DIV 25;
I := C - C DIV 4 - (C - K) DIV 3 19 * N 15;
I := I - 30 * (I DIV 30);
I := I - (I DIV 28) * (1 - (I DIV 28) * (29 DIV (I 1)) * ((21 - N) DIV 11));
J := Year Year DIV 4 I 2 - C C DIV 4;
J := J MOD 7; // J := J - 7 * (J DIV 7);
L := I - J;
M := 3 (L 40) DIV 44;
D := L 28 - 31 * (M DIV 4);
Result := EncodeDate(Year, M, D);
end;
----
Tämän pitäisi toimia kaikilla Delphin versioilla. JOS ei toimi delphi 1:llä, kokeile muuttaa kokonaislukujen tyyppi Integer -> longint.
Huomaa: TDatetime -tyypin määrittely vaihtui Delphi 2.0:ssa Delphi 1:een verrattuna. Delphi 1 laski vuodet luvusta 1, mutta Delphi 2.0:ssa ja uudemmissa vuosi enkoodataan TDatetime -tyyppiin samoin kuin eräissä Microsoftin ohjelmistoissa.
Vihje: Pääsiäissunnuntain laskukaava Delphillä
Delphiguru
0
81
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Onks sulle väliä, jos jokin kaivattusissa
ei ole täydellistä? Esim. venytysmerkit, arvet, selluliitti, epäsymmetriset rinnat, vinot hampaat jne?834507- 1213886
Shokkiyllätys! 31-vuotias Hai asuu vielä "kotona" - Anna-vaimon asenne ihmetyttää: "No ei tämä..."
Hmmm, mitenhän sitä suhtautuisi, jos aviomies/aviovaimo asuisi edelleen lapsuudenperheensä kanssa? Tuore Ensitreffit-vai332451Eikö Marin ollut oikeassa kokoomuksen ja persujen toiminnasta
Ennen vaaleja Marin kertoi mitä kokoomus tulisi hallituksessa tekemään ja tietysti persut suostuu kaikkeen, mitä kokoomu1931454Wiisaat Lappajärvellä iät.
Nyt nimiä listaan menneistä ja nykyisistä Wiisaista Lappajärveläisistä. Itseäkin voi tuoda esille kaikessa Wiisaudessa.121276Missä Steffe hiihtää?
Missä reppuli luuraa? Ei ole Seiskassa mitään sekoiluja ollut pariin viikkoon? Onko jo liian kylmä skulata tennistä ulko221233Olet elämäni rakkaus
On ollut monia ihastumisia ja syviäkin tunteita eri naisia kohtaan, mutta sinä olet niistä kaikista ihmeellisin. Olet el361168Ratkaiseva tekijä kiinnostuksen heräämisessä
Mikä tekee deittikumppanista kiinnostavan? Mitä piirrettä arvostat / et arvosta?621157Milloin nainen, milloin?
Katselet ja tiedän, että myös mieli tekee. Voisit laittaa rohkeasti viestin. Tiedät, että odotan. Ehkä aika ei ole vielä611133Olen menettänyt yöunet kokonaan
Nytkin vain tunnin nukkunut. En tiedä johtuuko se sinusta vai tästä palstasta. Olis mukava nähdä oikeasti eikä arvuutel171035