diff --git a/src/PARAM.PAS b/src/PARAM.PAS
index 59a8a3f91d68427e27b46b9d7c4385596e588e5d..14b95682431015ed846eb3cac19775055c1340d4 100644
--- a/src/PARAM.PAS
+++ b/src/PARAM.PAS
@@ -832,7 +832,7 @@ procedure Ici_EcritureParametresLacs(var ZFic:text);
     write(ZFic,'    ',YNomDebit[YTypeDebit],YRangLac,' : ');
     for XNPivot:=1 to YNbPivot[YRangLac,YTypeDebit] do
      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]);
       if XNPivot<YNbPivot[YRangLac,YTypeDebit] then
        write(ZFic,' ; ');
diff --git a/src/UTILIT.PAS b/src/UTILIT.PAS
index dbfecad0a547773a719245d7b6b8bc52ebc099c6..9124968c99d08e099027a818935ce9fa6cf970db 100644
--- a/src/UTILIT.PAS
+++ b/src/UTILIT.PAS
@@ -46,7 +46,7 @@ function  B_MinLongInt (ZD1,ZD2:longint):longint;
 function  B_MaxDouble (ZD1,ZD2:Bprecis1) :Bprecis1;
 function  B_MinDouble (ZD1,ZD2:Bprecis1) :Bprecis1;
 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_QuantiemeNonBiss(ZDate:longint):integer;
 function  B_Tjour (ZAn,ZMois,ZJour:longint):longint;
@@ -102,10 +102,7 @@ function  B_MinDouble (ZD1,ZD2:Bprecis1) :Bprecis1;
 {----------------------------------------------------------------------------}
 
 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.                                                           }
+{donne le nombre de jours du mois en ann‚e de 365 jours                     }
  var XL : integer;
  begin
   B_LongMois:=BLong[ZMois];
@@ -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 quantiŠme annuel, pour ---}
 {---ann‚e bissextile ou non.                                             ---}
  var
@@ -161,29 +158,13 @@ function B_QuantiemeNonBiss(ZDate:longint) : integer;
 {----------------------------------------------------------------------------}
 
 function B_Tjour(ZAn,ZMois,ZJour:longint):longint;
-{calcul du nombre de jours ‚coul‚s depuis le 31/12/1599 (nombre = 0), … --}
+{calcul du nombre de jours ‚coul‚s depuis le 01/01/0000 (nombre = 1), … --}
 {partir de l'ann‚e, du mois et du jour. le calcul est valable … partir  --}
-{01/01/1600 (nombre = 1).                                               --}
-{--obsolŠte--Calcule le numero du jour compt‚ depuis le 31/12/1899 (1er jour).
- An est entr‚ en ann‚e sur 4 chiffres. Le calcul est  valable de 1901 … 2099.
- Remarquer que 1900 n'est pas bissextile}
-{--obsolŠte--corrig‚ 2000}
+{en ann‚e non bissextiles                                               --}
  const
   XN: array[1..12] of integer = (0,31,59,90,120,151,181,212,243,273,304,334);
- var XDeb: longint;
  begin
-  ZAn:=Zan-1600;
-  {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;
+  B_Tjour := XN[ZMois]+Zjour+ZAn*365;
  end;
 
 {----------------------------------------------------------------------------}
diff --git a/src/VGEST.PAS b/src/VGEST.PAS
index c8d7d6f027cec15fe39b94fd5cb2cab014af9f38..145e4db96562fdfbeeb8caaa1d20b232947c637a 100644
--- a/src/VGEST.PAS
+++ b/src/VGEST.PAS
@@ -118,7 +118,7 @@ procedure Ici_Effacement;
     begin
      write(YFicSortie,'date   : ');
      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);
      write(YFicSortie,'debit  : ');
      for Yj:=(Yi-1)*4+1 to B_minin(4*Yi,YNbQXObj-1) do