[BACK]Return to date.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/date.c between versions 1.37 and 1.66

version 1.37, 2012/10/01 11:04:59 version 1.66, 2020/01/10 11:15:41
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.11    RPL/2 (R) version 4.1.32
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2020 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 438  formateur_date(struct_processus *s_etat_ Line 438  formateur_date(struct_processus *s_etat_
   
     jour_julien = 1721024 + (365 * y) + (30 * m) + d + ((integer8) (y / 4))      jour_julien = 1721024 + (365 * y) + (30 * m) + d + ((integer8) (y / 4))
             + 2 + ((integer8) (y / 400)) - ((integer8) (y / 100));              + 2 + ((integer8) (y / 400)) - ((integer8) (y / 100));
     heure_julienne = floor(((real8) 0.6001) * (m + 1)) +      heure_julienne = floor(((real8) 0.6001) * ((real8) m + 1)) +
             (((real8 ) heures) / 24) + (((real8) minutes) / 1440) +              (((real8) heures) / 24) + (((real8) minutes) / 1440) +
             (((real8) secondes + (((real8) (*horodatage).tv_usec) / 1000000))              (((real8) secondes + (((real8) (*horodatage).tv_usec) / 1000000)) /
             / 86400) + ((real8) 0.5);              86400) + ((real8) 0.5);
   
     offset_julien = floor(heure_julienne);      offset_julien = floor(heure_julienne);
   
     jour_julien += offset_julien;      jour_julien += (integer8) offset_julien;
     heure_julienne -= offset_julien;      heure_julienne -= offset_julien;
   
     (*((integer8 *) (*(*l_element_courant).donnee).objet)) = jour_julien;      (*((integer8 *) (*(*l_element_courant).donnee).objet)) = jour_julien;
Removed from v.1.37  
changed lines
  Added in v.1.66

CVSweb interface <joel.bertrand@systella.fr>