--- rpl/src/date.c	2012/08/22 10:47:14	1.36
+++ rpl/src/date.c	2020/01/10 11:15:41	1.66
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.10
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -438,14 +438,14 @@ formateur_date(struct_processus *s_etat_
 
 	jour_julien = 1721024 + (365 * y) + (30 * m) + d + ((integer8) (y / 4))
 			+ 2 + ((integer8) (y / 400)) - ((integer8) (y / 100));
-	heure_julienne = floor(((real8) 0.6001) * (m + 1)) +
-			(((real8 ) heures) / 24) + (((real8) minutes) / 1440) +
-			(((real8) secondes + (((real8) (*horodatage).tv_usec) / 1000000))
-			/ 86400) + ((real8) 0.5);
+	heure_julienne = floor(((real8) 0.6001) * ((real8) m + 1)) +
+			(((real8) heures) / 24) + (((real8) minutes) / 1440) +
+			(((real8) secondes + (((real8) (*horodatage).tv_usec) / 1000000)) /
+			86400) + ((real8) 0.5);
 
 	offset_julien = floor(heure_julienne);
 
-	jour_julien += offset_julien;
+	jour_julien += (integer8) offset_julien;
 	heure_julienne -= offset_julien;
 
 	(*((integer8 *) (*(*l_element_courant).donnee).objet)) = jour_julien;