cambiar la hora del sistema

Cambiar la fecha y la hora del PC


*=FUNCTION WriteLocalTime(ltDateTime)
*=
* Escribe mediante API el GetLocalTime
* Parametro: Debe pasarse una variable del tipo DateTime
* Retorno: .T. si pudo cambiar fecha y hora
* .F. envio un parámetro no válido o error
* Autor: LMG - 1998.09.14
*= IF TYPE("ltDateTime") # "T"
RETURN .F.
ENDIF


LOCAL lcCadena


lcCadena = _10to256(YEAR(ltDateTime),2) + ;
_10to256(MONTH(ltDateTime),2) + ;
_10to256(DOW(ltDateTime),2) + ;
_10to256(DAY(ltDateTime),2) + ;
_10to256(HOUR(ltDateTime),2) + ;
_10to256(MINUTE(ltDateTime),2) + ;
_10to256(SEC(ltDateTime),2) + ;
_10to256(000,2) + SPAC(24)


DECLARE SetLocalTime IN win32api ;
STRING lcCadena
RETURN SetLocalTime(lcCadena)
ENDFUNC





*=
FUNCTION _10to256(lnNumero, lnCant)

*=
* Toma número en base 10 y lo convierte en "lnCant" caracteres en base 256

* Usada por: WriteLocalTime()

* Autor: LMG - 1998.09.14

*=
LOCAL lcRetorno, lnAscii



lcRetorno=''

DO WHILE lnNumero >= 256

lnAscii=MOD(lnNumero,256)

lcRetorno=lcRetorno + CHR(lnAscii)

lnNumero=INT(lnNumero / 256)

ENDDO

lnAscii=lnNumero

lcRetorno=lcRetorno + CHR(lnAscii)

RETURN PADR(lcRetorno, lnCant, CHR(0))

ENDFUNC



*=


"Leonardo Gonzalez" escribió en el mensaje
news:%

Saludos amigos.

Necesito una saber como puedo cambiar la hora del sistema desde una
aplicación VFP 7.0

Les agradesco cualquier información.

Ing. Leonardo González. Maracaibo - Venezuela.


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway