cmbiar la fecha/hora de la pc

[charly0001]

hola foro: como se hace para cambiar la fecha y hora de la pc desde vfp6, para w98 a XP. Gracias.

[Gildus]

Holas,


puedes usar un API, SetSystemTime, que lo use hace tiempo.

Código: Seleccionar todo

local lcString, liYear, liMonth, liDOW, liDay, liHour, liMin, liSec, liMS
Declare SetSystemTime ;
    in kernel32 ;
    string
liYear = 2005
liMonth = 9
liDay = 26
liDOW = dow(date(liYear, liMonth, liDay), 2)
liHour = 20
liMin = 53
liSec = 2
liMS = 3
lcString = StringIt(liYear) + ;
    StringIt(liMonth) + ;
    StringIt(liDOW) + ;
    StringIt(liDay) + ;
    StringIt(liHour) + ;
    StringIt(liMin) + ;
    StringIt(liSec) + ;
    StringIt(liMS)
SetSystemTime(lcString)


Function StringIt
    lPara liNum
    return chr(mod(liNum, 256)) + chr(int(liNum/256))
endFunc

Saludos
Gildus

[charly0001]

Gracias, lo pruebo.