Commit 14dc2c8b authored by Dorchies David's avatar Dorchies David
Browse files

feat: remove leap year handling

- fix bugs introduced in 4e9527bf

Fix #8
parent 92b20316
......@@ -128,8 +128,7 @@ function B_DateClaire(ZQuant:integer):BChai5;
{----------------------------------------------------------------------------}
function B_Quantieme(Zjour,Zmois:integer): integer;
{--calcul du quantime partir du jour, du mois et de l'anne, pour une --}
{--anne bissextile ou non. --}
{--calcul du quantime partir du jour et du mois pour une anne de 365 jours--}
var Xi,XS:integer;
begin
Xs:=0;
......@@ -172,11 +171,7 @@ function B_Tjour(ZAn,ZMois,ZJour:longint):longint;
function B_Date(ZRang:longint):string;
{--calcul de la date en clair partir du nombre de jours couls depuis --}
{--le 31/12/1599 (nombre = 0). --}
{--obsolte--calcul de la date en clair partir du jour compt depuis le 31/12/1899.}
{--obsolte--Le calcul est valable partir de 1901.}
{--obsolte--corrig 2000}
{--le 01/01/0000 (nombre = 1). --}
var
Xi,Xj,Xk :integer;
......@@ -184,27 +179,14 @@ function B_Date(ZRang:longint):string;
XS1,XS2,XS3 : string[4];
XDuree :longint;
{- - - - - - - - - - - - - - - - - - - - - - - -}
function XNombjour(Zi:integer):integer;
begin
{if (Zi mod 4)=0 then XNombjour:=366}
if ((Zi mod 4)=0) and (((Zi mod 100)<>0)or((Zi mod 400)=0)) then
XNombjour:=366
else XNombjour:=365;
end;
{- - - - - - - - - - - - - - - - - - - - - - - -}
begin
{Xi:=1899;}
Xi:=1599;
Xi:=-1;
XDuree:= 0;
while XDuree< ZRang do
begin
Xi:=Xi+1; XDuree:=XDuree+XNombjour(Xi);
Xi:=Xi+1; XDuree:=XDuree+365;
end;
XDuree:=XDuree-XNombjour(Xi);
XDuree:=XDuree-365;
Xj:=0;
while XDuree<ZRang do
begin
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment