feat: remove leap year handling

- fix bugs introduced in 4e9527bf

Fix #8

src/UTILIT.PAS

@@ -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