FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Cambiar fecha y hora a un archivo - SOLUCIONADO
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM

Cambiar fecha y hora a un archivo - SOLUCIONADO

Posted: Thu Jun 20, 2013 06:10 PM
Buenas tardes,

Necesito cambiar la fecha y hora a un archivo y lo intenté con el ejemplo visto en
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=205&p=657&hilit=cambiar+fecha+file#p657
que copio a continuación:

Code (fw): Select all Collapse
hFile := Fopen("ficheroafechar.ext")
SetFTime(hFile, "10:20:59", "15:01:2005")
Fclose(hFile)


Pero lamentablemente no hace ningún efecto probándolo en W7 y en máquina virtual con Win XP.

¿Hay algún modo de lograr cambiar fecha y hora a un archivo?.

Gracias.

Rolando :-)
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM

Re: Cambiar fecha y hora a un archivo

Posted: Thu Jun 20, 2013 08:12 PM

Hola:

Yo hace tiempo lo intenté con esas funciones y ya no funcionan adecuadamente.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Cambiar fecha y hora a un archivo

Posted: Thu Jun 20, 2013 09:32 PM

Rolando, Lucas,

Acabo de probar FWH/samples/testfdat.prg y ha funcionado correctamente en Windows 7 32 bits.

Podeis construir ese ejmplo y probarlo ? gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM

Re: Cambiar fecha y hora a un archivo - SOLUCIONADO

Posted: Fri Jun 21, 2013 04:24 PM

OK. EN WIN 8 !!

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM

Re: Cambiar fecha y hora a un archivo - SOLUCIONADO

Posted: Fri Jun 21, 2013 04:26 PM
Antonio,

Muchas gracias por responder.

El error fue mío por no buscar en los samples. Fui directo al foro y lo que encontré como ejemplo se nota que es viejo y ya cambió o está mal en su sintaxis.

Colocando la sintaxis del ejemplo funciona correctamente.

Lo que sí noto es que la hora es "transformada" según UTC-3. Es decir, si le indico como hora "10:21:00", en el archivo le coloca "07:21:00".

Pareciera que toma la hora a colocar como hora "0" UTC y automáticamente le resta -3 (hora de Argentina). No sería gran problema pues le agrego 3 a la hora pero sólo por curiosidad, ¿Se puede modificar esto?

Saludos.

Rolando :-)
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM

Re: Cambiar fecha y hora a un archivo - SOLUCIONADO (a medias)

Posted: Fri Jun 21, 2013 08:48 PM
Antonio,

La función sigue con el bug, no cambia la hora, sólo la fecha:

Code (fw): Select all Collapse
#include "fileio.ch"
#include "fivewin.ch"

function main()

set date to italian
set century on

test()

return nil



function test()

   local cApp   := "c:\windows\explorer.exe" //cFileName(GetModuleFileName(GetInstance()))
   local hFile  := FOpen( cApp, FO_READWRITE )

   local hFile2
   local dFecha := FileDate( cApp )
   local tHora  := FileTime( cApp )

   FClose( hFile )

   msgalert(cvaltochar(dFecha)+CRLF+CRLF+cValtochar(thora))



   hFile2 := FOpen( "fecha.prg", FO_READWRITE )

   SetFTime( hFile2, tHora, dFecha )

   FClose( hFile2 )


   dFecha := FileDate( "fecha.prg" )
   tHora  := FileTime( "fecha.prg" )

   msgalert(cvaltochar(dFecha)+CRLF+CRLF+cValtochar(thora), " de fecha.prg ")


return nil



Muchas gracias-
Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
quique
Posts: 408
Joined: Sun Aug 13, 2006 05:38 AM

Re: Cambiar fecha y hora a un archivo - SOLUCIONADO (a medias)

Posted: Thu Jun 27, 2013 09:41 PM

Prueba con

SetFDaTi( <cFileName> , [<dFileDate>], [<cFileTime>] ) --> lSuccess

de (x)Harbour

Saludos

Quique
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM

Re: Cambiar fecha y hora a un archivo - SOLUCIONADO (a medias)

Posted: Fri Jun 28, 2013 01:46 AM

Quique,

Gracias por el dato. Funciona ok sin tanta vuelta.

Rolando :D

Continue the discussion

Static archive · New replies & topics via GitHub Discussions