FiveTech Software tech support forums

Más facil...

la función HB_UTCOFFSET() de harbour nos devuelve los segundos de desfase de nuestra zona horaria (creo que sólo esta en harbour 2.0 Beta) en positivo o negativo según la zona.

Saludos.
David Montaño.

... cRet[30];struct tm *ptm;time(&t);t+=hb_parnl(1);ptm=gmtime(&t);sprintf(cRet, "%s, %02d-%s-%04d %02d:%02d:%02d GMT",wdays[ptm->tm_wday],ptm->tm_mday,amonths[ptm->tm_mon],ptm->tm_year+1900,ptm->tm_hour,ptm->tm_min,ptm->tm_sec);hb_retc ...

David,

gracias!

... cRet[29];struct tm *ptm;time(&t);t+=hb_parnl(1);ptm=gmtime(&t);sprintf(cRet, "%s, %02d-%02d-%04d %02d:%02d:%02d GMT", wdays[ptm->tm_wday],ptm->tm_mday,ptm->tm_mon+1,ptm->tm_year+1900,ptm->tm_hour,ptm->tm_min,ptm->tm_sec);hb_retc ...

David,

Aqui estamos usando Harbour 2.0 beta 2:
www.fivetechsoft.com/files/harbour.exe

Efectivamente Antonio he probado con Harbour 1.0.1 y funciona OK

Gracias-

Prueba a ponerle #include "FiveWin.ch" al comienzo

Aqui funciona bien, sin el hb_itemNew(), tanto en Harbour como xHarbour

... tm *ptm;//------------------------hb_itemNew(NULL);//------------------------time(&t);t+=hb_parnl(1);ptm=gmtime(&t);sprintf(cRet, "%s, %d-%d-%d %d:%d:%d GMT", wdays[ptm->tm_wday],ptm->tm_mday,ptm->tm_mon+1,ptm->tm_year+1900,ptm->tm_hour,ptm->tm_min,ptm->tm_sec);hb_retc ...

Gracias

Si te sirve de algo, estas son las funciones que utilizo para recuperar la GMT //--------------FUNCTION Gmt()   LOCAL cGmt:=Time()   cGmt:=Str(Val(SubStr(cGmt,1,2))+TimeZone(),2)+SubStr(cGmt,3)RETURN cGmt//------------------...

Aqui funciona bien tanto con Harbour como con xHarbour

Si bcc 5.5.1
Harbour 2.0.0beta2 (Rev. 12195)

¿?

David,

Aqui tu ejemplo funciona correctamente (el primer codigo que has puesto)

Estas usando BCC55 ?

... ( MIGMTTIME ){PHB_ITEM pArray=hb_itemArrayNew( 5 );PHB_ITEM pItem;long t;struct tm *ptm;time(&t);ptm=gmtime(&t);pItem = hb_itemPutNI( NULL, ptm->tm_mday );      hb_itemArrayPut( pArray, 1, pItem );      hb_itemRelease( ...