Equivalencia de una fecha a dias.

[Josep Castells]

Hola:
Tengo una conexion con procesos Informix mediante traspaso plano de datos
numericos.
Uno de los datos es un campo numerico cuyo valor son los dias que equivale
una fecha (dd-mm-yyyy).
Hay alguna función o proceso, que me permita traducir el valor numerico de
dias a fecha y viceversa.
Gracias
Josep Castells

[jrcpoli]

Saludos:
He leido repetidamente tú mensaje y la verdad es que no logro interpretarlo
para poderte ayudar si lo sé, prodrías exponer algo de código con el fin de
comprenderte, porque clipper tiene varias funciones de operar con fechas y
conversiones múltiples, entiendo que eso no es lo que necesitas, ¿o sí?.
José Ramón Castro Polinio
"Josep Castells" <inforcb@terra.es> escribió en el mensaje
news:44e08c33$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Hola:
>
> Tengo una conexion con procesos Informix mediante traspaso plano de datos
> numericos.
>
> Uno de los datos es un campo numerico cuyo valor son los dias que
> equivale
> una fecha (dd-mm-yyyy).
>
> Hay alguna función o proceso, que me permita traducir el valor numerico de
> dias a fecha y viceversa.
>
> Gracias
>
> Josep Castells
>
>
>

[Josep Castells]

José:
Al parecer, profundizando he averiguado que la referencia numerica
a que me referia es el Dia Juliano (Calendario Juliano),..
La conversion hay que hacerla del Dia Juliano a la fecha
del Calendario Gregoriano (dd-mm-yyyy) y viceversa.
Al parecer debo buscar las rutinas de conversion. Me parece que
para clipper , algo se utilizaba en las Funcky.
Falta encontrar si alguien tiene algo en (x)harbour.
Gracias.
Josep Castells
"José R.Castro" <jrcpoli@terra.es> escribió en el mensaje
news:44e36444$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Saludos:
>
> He leido repetidamente tú mensaje y la verdad es que no logro
interpretarlo
> para poderte ayudar si lo sé, prodrías exponer algo de código con el fin
de
> comprenderte, porque clipper tiene varias funciones de operar con fechas y
> conversiones múltiples, entiendo que eso no es lo que necesitas, ¿o sí?.
>
> José Ramón Castro Polinio
> "Josep Castells" <inforcb@terra.es> escribió en el mensaje
> news:44e08c33$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> > Hola:
> >
> > Tengo una conexion con procesos Informix mediante traspaso plano de
datos
> > numericos.
> >
> > Uno de los datos es un campo numerico cuyo valor son los dias que
> > equivale
> > una fecha (dd-mm-yyyy).
> >
> > Hay alguna función o proceso, que me permita traducir el valor numerico
de
> > dias a fecha y viceversa.
> >
> > Gracias
> >
> > Josep Castells
> >
> >
> >
>
>
>

[jlalin]

Josep,
> Hay alguna función o proceso, que me permita traducir el valor numerico de
> dias a fecha y viceversa.
la RTL de Harbour soporta la conversión de fechas a número juliano y
viceversa.
//---
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
// Julian2Date( nJulianDate ) -> dFecha
XA_FUNC( JULIAN2DATE )
{
if( ISNUM( 1 ) )
hb_retdl( hb_parnl( 1 ) );
else
hb_retdl( 0 );
}
// Date2Julian( dFecha ) -> nJulianDate
XA_FUNC( DATE2JULIAN )
{
PHB_ITEM pDate = hb_param( 1, HB_IT_DATE );
if( pDate )
hb_retnl( hb_pardl( 1 ) );
else
hb_retnl( 0 );
}
#pragma ENDDUMP
//---
Saludos,
José Lalí­n

[Josep Castells]

José:
Gracias por tu interés.
Por motivos de semi-vacaciones desde el lunes y durante algunos
dias, no estare en la oficina, y por ello me es imposible probar nada.
De hecho no sabia que existia estas conversiones desde harbour.
De momento tendré que esperar. Si al final sigo con problemas, ya
te contare.
Gracias.
Josep Castells
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:[email=44e4e83a@news.xailer.com...]44e4e83a@news.xailer.com...[/email]
>
> Josep,
>
> > Hay alguna función o proceso, que me permita traducir el valor numerico
de
> > dias a fecha y viceversa.
>
> la RTL de Harbour soporta la conversión de fechas a número juliano y
> viceversa.
>
> //---
> #pragma BEGINDUMP
>
> #include <windows.h>
> #include <xailer.h>
>
> // Julian2Date( nJulianDate ) -> dFecha
> XA_FUNC( JULIAN2DATE )
> {
> if( ISNUM( 1 ) )
> hb_retdl( hb_parnl( 1 ) );
> else
> hb_retdl( 0 );
> }
>
> // Date2Julian( dFecha ) -> nJulianDate
> XA_FUNC( DATE2JULIAN )
> {
> PHB_ITEM pDate = hb_param( 1, HB_IT_DATE );
>
> if( pDate )
> hb_retnl( hb_pardl( 1 ) );
> else
> hb_retnl( 0 );
> }
>
> #pragma ENDDUMP
> //---
>
> Saludos,
> José Lalín
>