rpl/src/date.c - diff

Return to date.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/date.c between versions 1.26 and 1.70

CVSweb interface <joel.bertrand@systella.fr>

version 1.26, 2011/07/25 07:44:53	version 1.70, 2024/01/09 07:33:47
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.2	RPL/2 (R) version 4.1.35
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2024 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 64 formateur_date(struct_processus *s_etat_	Line 64 formateur_date(struct_processus *s_etat_
* Récupération de la structure tm	* Récupération de la structure tm
*/	*/

stm = localtime(&((*horodatage).tv_sec));	stm = localtime((const time_t ) &((horodatage).tv_sec));

if ((s_objet = allocation(s_etat_processus, LST)) == NULL)	if ((s_objet = allocation(s_etat_processus, LST)) == NULL)
{	{
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.26
changed lines
	Added in v.1.70