FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Como saber la fecha y la hora del ejecutable
Posts: 205
Joined: Wed Sep 02, 2009 03:11 AM
Como saber la fecha y la hora del ejecutable
Posted: Mon May 31, 2010 03:14 PM

Hola amigos del foro
Necesito saber que funcion debo utilizar para saber la fecha y la hora del ejecutable. He intentado utilizar filetime() y filedate() pero el compilador me envia un mensaje como que no existen...

Alguna idea

Gracias

Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Como saber la fecha y la hora del ejecutable
Posted: Mon May 31, 2010 04:31 PM
Asi:
Code (fw): Select all Collapse
ExeOn:="C:\PROGRAMA.EXE"
HoraOn:=FILETIME(ExeOn)
FecExeOn:=dToS(FILEDATE(ExeOn))+Left(HoraOn,2)+Subs(HoraOn,4,2)+Right(HoraOn,2)


Saludos

Adhemar
Saludos,



Adhemar C.
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM
Re: Como saber la fecha y la hora del ejecutable
Posted: Mon May 31, 2010 05:59 PM
JoseGS wrote:Hola amigos del foro
Necesito saber que funcion debo utilizar para saber la fecha y la hora del ejecutable. He intentado utilizar filetime() y filedate() pero el compilador me envia un mensaje como que no existen...

Alguna idea

Gracias



/* *************************** */
Function dDateExe()
Local cFile := ""
Local aDir := {}
Local dEXE := Date()
cFILE := GetModuleFileName( GetInstance() )
aDIR := DIRECTORY( cFILE )
dEXE := aDIR[1] [3]
Return dEXE
/* *************************** */
/* *************************** */
Function cTimeExe()
Local cFile := ""
Local aDir := {}
Local tEXE := Time()
cFILE := GetModuleFileName( GetInstance() )
aDIR := DIRECTORY( cFILE )
tEXE := aDIR[1] [4]
Return tEXE
/* *************************** */

Saludos
Carlos G.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 205
Joined: Wed Sep 02, 2009 03:11 AM
Re: Como saber la fecha y la hora del ejecutable
Posted: Tue Jun 01, 2010 12:40 PM

Gracias amigos lo voy a probar...

Continue the discussion