diff --git a/src/CALCULS1.PAS b/src/CALCULS1.PAS
index 37323cba28c33470f9fbe55a7def0103f0423bd2..16d5167d62cc115e5210d088fc2d382649a40630 100644
--- a/src/CALCULS1.PAS
+++ b/src/CALCULS1.PAS
@@ -378,9 +378,9 @@ procedure C1_LectureObjectif;
begin
val(copy(XChai,6,length(XChai)-5),XQ,XCode);
if XCode=0 then
- if (XMois>0) and (XMois<13) and (XJour>0) and (XJour<=B_longMois(2001,XMois)) and (XQ>=0) then
+ if (XMois>0) and (XMois<13) and (XJour>0) and (XJour<=B_longMois(XMois)) and (XQ>=0) then
begin
- XNouvelleDate:= B_Quantieme(XJour,XMois,2001);
+ XNouvelleDate:= B_Quantieme(XJour,XMois);
if XNouvelleDate>YDateObj[YNbQXobj] then
begin
YNbQXobj:=YNbQXobj+1;
@@ -997,7 +997,7 @@ Procedure C1_QRefRes(ZChrono : boolean; ZType,ZRangLac:integer;
val(copy(ZChaiDate,1,2),XJour,Xcode);
val(copy(ZChaiDate,4,2),XMois,Xcode);
val(copy(Zchaidate,7,4),XAn,XCode);
- XQuantieme:=B_Quantieme(XJour,XMois,2001);
+ XQuantieme:=B_Quantieme(XJour,XMois);
if (XMois=2) and (XJour=29) then
Xquantieme:=XQuantieme-1;
for Xi:=0 to 1 do
diff --git a/src/CALCULS2.PAS b/src/CALCULS2.PAS
index c5c780c052181fe883507ab0319d1375e97b62f9..62e564b84431667201e9d550869132b860e76ae2 100644
--- a/src/CALCULS2.PAS
+++ b/src/CALCULS2.PAS
@@ -263,7 +263,7 @@ PROCEDURE C2_ISOFREQ (ZDateDebutFichier, ZDateDebut, ZDateFin:longint;
begin
{--BOUCLE SUR LES JOURS DU MOIS (en ann‚e non bissextile)--}
- for XJour:=1 to B_LongMois(2001,XMois) do
+ for XJour:=1 to B_LongMois(XMois) do
begin
{--calcul pour le jour courant, de la premiŠre et de la derniŠre--}
diff --git a/src/CALCULS3.PAS b/src/CALCULS3.PAS
index b116fa9c2110dc6199e0b20cd8f192043ae527a0..45d92e45129b69134534c26ca655367e1a6808e2 100644
--- a/src/CALCULS3.PAS
+++ b/src/CALCULS3.PAS
@@ -60,7 +60,7 @@ procedure Ici_Calcul_Quantile_QMN(Zfreq: double);
begin
{--BOUCLE SUR LES JOURS DU MOIS (en ann‚e non bissextile)--}
- for XJour:=1 to B_LongMois(2001,XMois) do
+ for XJour:=1 to B_LongMois(XMois) do
begin
XQuant:=XQuant+1;
diff --git a/src/INTERFAS.PAS b/src/INTERFAS.PAS
index 1ae500743148938489874855ff3517a08337090a..eef3ce5c4cea066715f76e88c3a5e21b0416b3eb 100644
--- a/src/INTERFAS.PAS
+++ b/src/INTERFAS.PAS
@@ -304,7 +304,7 @@ procedure A_Saisidate(var Zjour,Zmois,Zan:integer; var ZDada:string; ZDadamin,ZD
val(copy(ZDada,1,2),Zjour,Bcode1); val(copy(ZDada,4,2),Zmois,Bcode2);
val(copy(ZDada,7,4),Zan,Bcode3);
XBon:=((Bcode1=0) and (Bcode2=0) and (Bcode3=0) and (Zmois>0) and (Zmois<13) and
- (Zjour>0) and (Zjour<=B_longmois(ZAn,ZMois)) and
+ (Zjour>0) and (Zjour<=B_longmois(ZMois)) and
((Zjour+100*ZMois+10000.0*ZAn)<=XMatouvu) and ((Zjour+100*ZMois+10000.0*ZAn)>=XMinizup))
or (ARangTouchSpecial<>0);
if not XBon then
diff --git a/src/PARAM.PAS b/src/PARAM.PAS
index 8c1fffd5f978248f135c9dfcad1a48f952edb23b..59a8a3f91d68427e27b46b9d7c4385596e588e5d 100644
--- a/src/PARAM.PAS
+++ b/src/PARAM.PAS
@@ -135,7 +135,7 @@ procedure P_DatesLuesSurFichier;
if (YCode=0) and (YMois[0]>0) and (Ymois[0]<13) then
begin
val(copy(YDat1,1,2),YJour[0],YCode);
- if (YCode=0) and (YJour[0]>0) and (YJour[0]<=B_LongMois(YAn,YMois[0])) then
+ if (YCode=0) and (YJour[0]>0) and (YJour[0]<=B_LongMois(YMois[0])) then
begin
YDateDebut:=B_maxlongInt(YmeilleurDebut,B_minlongInt(B_TJour(YAn,YMois[0],YJour[0]),YMeilleurFin-3*365));
end;
@@ -148,7 +148,7 @@ procedure P_DatesLuesSurFichier;
if (YCode=0) and (YMois[0]>0) and (Ymois[0]<13) then
begin
val(copy(YDat2,1,2),YJour[0],YCode);
- if (YCode=0) and (YJour[0]>0) and (YJour[0]<=B_LongMois(YAn,YMois[0])) then
+ if (YCode=0) and (YJour[0]>0) and (YJour[0]<=B_LongMois(YMois[0])) then
YDateFin:=B_minlongInt(B_maxlongInt(YDateDebut+3*365,B_TJour(YAn,Ymois[0],YJour[0])),YmeilleurFin);
end;
end;
diff --git a/src/UTILIT.PAS b/src/UTILIT.PAS
index 3fc57211a1bc84fc5798e3bf345d8d04492601da..dbfecad0a547773a719245d7b6b8bc52ebc099c6 100644
--- a/src/UTILIT.PAS
+++ b/src/UTILIT.PAS
@@ -45,9 +45,9 @@ function B_MaxLongInt (ZD1,ZD2:Longint):longint;
function B_MinLongInt (ZD1,ZD2:longint):longint;
function B_MaxDouble (ZD1,ZD2:Bprecis1) :Bprecis1;
function B_MinDouble (ZD1,ZD2:Bprecis1) :Bprecis1;
-function B_Longmois (ZAn,ZMois:integer):integer;
+function B_Longmois (ZMois:integer):integer;
function B_DateClaire (ZAnnee,ZQuant:integer):BChai5; {date en clair … partir du quantieme}
-function B_Quantieme (Zjour,Zmois,ZAnnee:integer):integer;
+function B_Quantieme (Zjour,Zmois:integer):integer;
function B_QuantiemeNonBiss(ZDate:longint):integer;
function B_Tjour (ZAn,ZMois,ZJour:longint):longint;
function B_Date (ZRang:longint):string;
@@ -101,20 +101,14 @@ function B_MinDouble (ZD1,ZD2:Bprecis1) :Bprecis1;
{----------------------------------------------------------------------------}
-function B_Longmois(ZAn,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 }
{f‚vrier du caractŠre bissextile ou non de l'ann‚e. Une ann‚e est bissextile}
{si elle est multiple de 4 et non divisible par 100, ou bien si elle est }
{multiple de 400. }
var XL : integer;
begin
- XL:=BLong[ZMois];
- {if (ZMois=2) and ((ZAn mod 4) = 0) then XL:=XL+1;}
- if (ZMois=2) and
- ((Zan mod 4) = 0) and
- (((Zan mod 100) <> 0) or ((Zan mod 400) = 0)) then
- XL:=XL+1;
- B_LongMois:=XL;
+ B_LongMois:=BLong[ZMois];
end;
{----------------------------------------------------------------------------}
@@ -128,21 +122,21 @@ function B_DateClaire(ZAnnee,ZQuant:integer):BChai5;
begin
XS:=0;Xi:=0;
repeat
- Xi:=Xi+1; XS:=XS+B_LongMois(Zannee,Xi);
+ Xi:=Xi+1; XS:=XS+B_LongMois(Xi);
until XS>=ZQuant;
- str((ZQuant-XS+B_LongMois(ZAnnee,Xi)+Xi/100):5:2,XC); if XC[1]=' ' then XC[1]:='0';
+ str((ZQuant-XS+B_LongMois(Xi)+Xi/100):5:2,XC); if XC[1]=' ' then XC[1]:='0';
B_DateClaire:=XC;
end;
{----------------------------------------------------------------------------}
-function B_Quantieme(Zjour,Zmois,ZAnnee:integer): integer;
+function B_Quantieme(Zjour,Zmois:integer): integer;
{--calcul du quantiŠme … partir du jour, du mois et de l'ann‚e, pour une --}
{--ann‚e bissextile ou non. --}
var Xi,XS:integer;
begin
Xs:=0;
- for Xi:=1 to ZMois-1 do Xs:=XS+B_LongMois(ZAnnee,Xi);
+ for Xi:=1 to ZMois-1 do Xs:=XS+B_LongMois(Xi);
B_Quantieme:=XS+Zjour;
end;
@@ -161,7 +155,7 @@ function B_QuantiemeNonBiss(ZDate:longint) : integer;
XChaineDate:=B_Date(ZDate);
val(copy(XChaineDate,1,2),XJour,XCode);
val(copy(XChaineDate,4,2),XMois,XCode);
- B_QuantiemeNonBiss:=B_Quantieme(XJour,XMois,2001);
+ B_QuantiemeNonBiss:=B_Quantieme(XJour,XMois);
end;
{----------------------------------------------------------------------------}
@@ -233,9 +227,9 @@ function B_Date(ZRang:longint):string;
Xj:=0;
while XDuree<ZRang do
begin
- Xj:=Xj+1; XDuree:=XDuree+B_Longmois(Xi,Xj);
+ Xj:=Xj+1; XDuree:=XDuree+B_Longmois(Xj);
end;
- XDuree:=XDuree-B_Longmois(Xi,Xj);
+ XDuree:=XDuree-B_Longmois(Xj);
Xk:=ZRang-XDuree;
str(Xk,XS1);
if Xk<10 then
diff --git a/src/VGEST.PAS b/src/VGEST.PAS
index 0bc53449459fa5fd168689756bf3ad05f91f9357..c8d7d6f027cec15fe39b94fd5cb2cab014af9f38 100644
--- a/src/VGEST.PAS
+++ b/src/VGEST.PAS
@@ -630,7 +630,7 @@ BEGIN
YJJ_MM_AAAA[0]:=B_Date(YDateEnJour[0]);
val(copy(YJJ_MM_AAAA[0],4,2),YMois[0],YCode);
val(copy(YJJ_MM_AAAA[0],1,2),YJour[0],YCode);
- YQuantieme:=B_Quantieme(YJour[0],YMois[0],2001);
+ YQuantieme:=B_Quantieme(YJour[0],YMois[0]);
{--LECTURE DES DEBITS NATURELS pour l'indice YDelaimax--}
C1_LectureQavalPriseRestit(Ydelaimax);