Commit 92b20316 authored by Dorchies David's avatar Dorchies David
Browse files

feat: remove leap year handling

Fix #8
parent 4e9527bf
No related merge requests found
Showing with 8 additions and 27 deletions
+8 -27
...@@ -832,7 +832,7 @@ procedure Ici_EcritureParametresLacs(var ZFic:text); ...@@ -832,7 +832,7 @@ procedure Ici_EcritureParametresLacs(var ZFic:text);
write(ZFic,' ',YNomDebit[YTypeDebit],YRangLac,' : '); write(ZFic,' ',YNomDebit[YTypeDebit],YRangLac,' : ');
for XNPivot:=1 to YNbPivot[YRangLac,YTypeDebit] do for XNPivot:=1 to YNbPivot[YRangLac,YTypeDebit] do
begin begin
write(ZFic,'si T>= ',B_dateclaire(2001,YQuantPivot[YRangLac,YTypeDebit,XNPivot])); write(ZFic,'si T>= ',B_dateclaire(YQuantPivot[YRangLac,YTypeDebit,XNPivot]));
write(ZFic,' : Q',YRangFormule[YRangLac,YTypeDebit,XNPivot]); write(ZFic,' : Q',YRangFormule[YRangLac,YTypeDebit,XNPivot]);
if XNPivot<YNbPivot[YRangLac,YTypeDebit] then if XNPivot<YNbPivot[YRangLac,YTypeDebit] then
write(ZFic,' ; '); write(ZFic,' ; ');
......
...@@ -46,7 +46,7 @@ function B_MinLongInt (ZD1,ZD2:longint):longint; ...@@ -46,7 +46,7 @@ function B_MinLongInt (ZD1,ZD2:longint):longint;
function B_MaxDouble (ZD1,ZD2:Bprecis1) :Bprecis1; function B_MaxDouble (ZD1,ZD2:Bprecis1) :Bprecis1;
function B_MinDouble (ZD1,ZD2:Bprecis1) :Bprecis1; function B_MinDouble (ZD1,ZD2:Bprecis1) :Bprecis1;
function B_Longmois (ZMois:integer):integer; function B_Longmois (ZMois:integer):integer;
function B_DateClaire (ZAnnee,ZQuant:integer):BChai5; {date en clair partir du quantieme} function B_DateClaire (ZQuant:integer):BChai5; {date en clair partir du quantieme}
function B_Quantieme (Zjour,Zmois:integer):integer; function B_Quantieme (Zjour,Zmois:integer):integer;
function B_QuantiemeNonBiss(ZDate:longint):integer; function B_QuantiemeNonBiss(ZDate:longint):integer;
function B_Tjour (ZAn,ZMois,ZJour:longint):longint; function B_Tjour (ZAn,ZMois,ZJour:longint):longint;
...@@ -102,10 +102,7 @@ function B_MinDouble (ZD1,ZD2:Bprecis1) :Bprecis1; ...@@ -102,10 +102,7 @@ function B_MinDouble (ZD1,ZD2:Bprecis1) :Bprecis1;
{----------------------------------------------------------------------------} {----------------------------------------------------------------------------}
function B_Longmois(ZMois:integer):integer; function B_Longmois(ZMois:integer):integer;
{donne le nombre de jours du mois Mois de l'annee An, en tenant compte pour } {donne le nombre de jours du mois en anne de 365 jours }
{fvrier du caractre bissextile ou non de l'anne. Une anne est bissextile}
{si elle est multiple de 4 et non divisible par 100, ou bien si elle est }
{multiple de 400. }
var XL : integer; var XL : integer;
begin begin
B_LongMois:=BLong[ZMois]; B_LongMois:=BLong[ZMois];
...@@ -113,7 +110,7 @@ function B_Longmois(ZMois:integer):integer; ...@@ -113,7 +110,7 @@ function B_Longmois(ZMois:integer):integer;
{----------------------------------------------------------------------------} {----------------------------------------------------------------------------}
function B_DateClaire(ZAnnee,ZQuant:integer):BChai5; function B_DateClaire(ZQuant:integer):BChai5;
{---Calcul de la date en format jj.mm partir du quantime annuel, pour ---} {---Calcul de la date en format jj.mm partir du quantime annuel, pour ---}
{---anne bissextile ou non. ---} {---anne bissextile ou non. ---}
var var
...@@ -161,29 +158,13 @@ function B_QuantiemeNonBiss(ZDate:longint) : integer; ...@@ -161,29 +158,13 @@ function B_QuantiemeNonBiss(ZDate:longint) : integer;
{----------------------------------------------------------------------------} {----------------------------------------------------------------------------}
function B_Tjour(ZAn,ZMois,ZJour:longint):longint; function B_Tjour(ZAn,ZMois,ZJour:longint):longint;
{calcul du nombre de jours couls depuis le 31/12/1599 (nombre = 0), --} {calcul du nombre de jours couls depuis le 01/01/0000 (nombre = 1), --}
{partir de l'anne, du mois et du jour. le calcul est valable partir --} {partir de l'anne, du mois et du jour. le calcul est valable partir --}
{01/01/1600 (nombre = 1). --} {en anne non bissextiles --}
{--obsolte--Calcule le numero du jour compt depuis le 31/12/1899 (1er jour).
An est entr en anne sur 4 chiffres. Le calcul est valable de 1901 2099.
Remarquer que 1900 n'est pas bissextile}
{--obsolte--corrig 2000}
const const
XN: array[1..12] of integer = (0,31,59,90,120,151,181,212,243,273,304,334); XN: array[1..12] of integer = (0,31,59,90,120,151,181,212,243,273,304,334);
var XDeb: longint;
begin begin
ZAn:=Zan-1600; B_Tjour := XN[ZMois]+Zjour+ZAn*365;
{XDeb:= XN[ZMois]+Zjour+1+ZAn*365+ ((ZAn-1) div 4);}
XDeb:= XN[ZMois]+Zjour+ZAn*365
+ (B_maxin(0,ZAn-1)) div 4
- (B_maxin(0,Zan-1)) div 100
+ (B_maxin(0,Zan-1)) div 400;
if Zan>0 then
XDeb:=Xdeb+1;
if ((ZAn mod 4) = 0) and (ZMois > 2) then
if ( ((Zan mod 100)<>0) or((Zan mod 400)=0) ) then
XDeb:=XDeb+1;
B_Tjour := XDeb;
end; end;
{----------------------------------------------------------------------------} {----------------------------------------------------------------------------}
......
...@@ -118,7 +118,7 @@ procedure Ici_Effacement; ...@@ -118,7 +118,7 @@ procedure Ici_Effacement;
begin begin
write(YFicSortie,'date : '); write(YFicSortie,'date : ');
for Yj:=(Yi-1)*4+1 to B_minin(4*Yi,YNbQXObj-1) do for Yj:=(Yi-1)*4+1 to B_minin(4*Yi,YNbQXObj-1) do
write(YFicSortie,' ',B_DateClaire(2001,YDateObj[Yj])); write(YFicSortie,' ',B_DateClaire(YDateObj[Yj]));
writeln(YFicSortie); writeln(YFicSortie);
write(YFicSortie,'debit : '); write(YFicSortie,'debit : ');
for Yj:=(Yi-1)*4+1 to B_minin(4*Yi,YNbQXObj-1) do for Yj:=(Yi-1)*4+1 to B_minin(4*Yi,YNbQXObj-1) do
......
Supports Markdown
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