User Tools

Site Tools


fidonet:prg.ita

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)
fidonet/prg.ita.txt · Last modified: 20/12/2021 05:08 by lrosa