====== PRG.ITA ====== ===== Descrizione ===== Area italiana dedicata alla programmazione in generale. =====Messaggi interi ===== ====Pasqua ==== = MSDOS\Programmatori (2:331/318.3) ================================== PRG.ITA = Msg : #580 [25] - 516 + 708 Uns From : Franco Milani 2:333/308 Wed 18 Mar 92 12:53 To : William Brioschi Subj : Pasqua ================================================================================ .EID:a307 187266bc Ciao William > Come si fa a sapere in che giorno cade la Pasqua? Puoi usare l'algoritmo di Clavio. Ti riporto un metodo, valido per lo meno fino all'anno 9005. INT indica la parte intera, MOD il resto della divisione intera. Dato l'anno A, B=(A MOD 19)+1 C=INT(A/100)+1 D=INT(3*C/4) E=INT((8*C+5)/25) F=INT(5*A/4)-D+2 G=44-((11*B+27+E-D) MOD 30) IF (G=19 AND B>11) OR (G=20) THEN G=G-1 IF G<21 THEN G=G+30 G=G+7-((F+G) MOD 7) A questo punto se G>31 allora Pasqua e' il G-31 aprile, altrimenti e' il G marzo. --- * Origin: Bit Linker - Padova 049-8642029 (2:333/308) SEEN-BY: 242/2 331/101 104 108 109 110 111 201 301 302 304 306 307 SEEN-BY: 331/308 315 318 .3 320 332/2 333/100 102 111 203 300 302 SEEN-BY: 333/304 307 308 312 314 400 501 603 334/0 335/4 5 .PATH: 333/308 300 100 331/101 306 301 318 ===== Perle ===== * devo lavorare in Thru Color (32 o 64000)