Estimados fivewiners
Deseo registrar un dato de tipo DateTime con una funci贸n interna de fivewin, esto es que me de como resultado la fecha y hora actual del computador o servidor. He buscado en el wiki y no hallo; probe la funcion DateTime() pero esta solo me devuelve el d铆a en formato dd/mm/yyyy.
Saludos
Fernando Espinoza
Hola, en FW o xharbour no estoy seguro, pero si usaras MySQL seria asi:
SELECT UTC_TIMESTAMP()
2010-05-30 18:04:15
Salu2
Correccion, en xharbour existe datetime() y devuelve 30/05/2011 18:10:45
Salu2
#include "Fivewin.ch"
#include "struct.ch"
#include "exstruc.ch"
function main()
local cTemp:=""
STRUCT HoraSys
聽 MEMBER wAnno 聽 AS _INT
聽 MEMBER wMes 聽 聽AS _INT
聽 MEMBER wDiaSem AS _INT
聽 MEMBER wDia 聽 聽AS _INT
聽 MEMBER wHora 聽 AS _INT
聽 MEMBER wMinuto AS _INT
聽 MEMBER wSegun 聽AS _INT
聽 MEMBER wMilis 聽AS _INT
ENDSTRUCT
cTemp:=HoraSys:cBuffer
GetLocalTime(@cTemp) // Pide datos de fecha y hora.
HoraSys:cBuffer:=cTemp
msginfo("A帽o:" 聽 聽 聽 聽 聽 聽 +str(HoraSys:wAnno) 聽+chr(13)+;
聽 聽 聽 聽 "Mes:" 聽 聽 聽 聽 聽 聽 +str(HoraSys:wMes) 聽 +chr(13)+;
聽 聽 聽 聽 "Dia de la semana:"+str(HoraSys:wDiaSem)+chr(13)+;
聽 聽 聽 聽 "Dia:" 聽 聽 聽 聽 聽 聽 +str(HoraSys:wDia) 聽 +chr(13)+;
聽 聽 聽 聽 "Hora:" 聽 聽 聽 聽 聽 聽+str(HoraSys:wHora) 聽+chr(13)+;
聽 聽 聽 聽 "Minutos:" 聽 聽 聽 聽 +str(HoraSys:wMinuto)+chr(13)+;
聽 聽 聽 聽 "Segundos:" 聽 聽 聽 聽+str(HoraSys:wSegun) +chr(13)+;
聽 聽 聽 聽 "Milisegundos:" 聽 聽+str(HoraSys:wMilis))
return nil
DLL32 FUNCTION GetLocalTime(lpSystemTime AS LPSTR) AS LONG PASCAL FROM "GetLocalTime" LIB "kernel32.dll"Willy
Yo tengo FWH 907 y cuando uso DateTime() solo me devuelve la fecha.
Voy a probar las otras sugerenencias. Gracias por su aporte.
Saludos
Fernando Espinoza