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

1. local lcString, liYear, liMonth, liDOW, liDay, liHour, liMin, liSec, liMS


2. Declare SetSystemTime ;


3.     in kernel32 ;


4.     string


5. liYear = 2005


6. liMonth = 9


7. liDay = 26


8. liDOW = dow(date(liYear, liMonth, liDay), 2)


9. liHour = 20


10. liMin = 53


11. liSec = 2


12. liMS = 3


13. lcString = StringIt(liYear) + ;


14.     StringIt(liMonth) + ;


15.     StringIt(liDOW) + ;


16.     StringIt(liDay) + ;


17.     StringIt(liHour) + ;


18.     StringIt(liMin) + ;


19.     StringIt(liSec) + ;


20.     StringIt(liMS)


21. SetSystemTime(lcString)


22.  


23.  


24. Function StringIt


25.     lPara liNum


26.     return chr(mod(liNum, 256)) + chr(int(liNum/256))


27. endFunc

Saludos
Gildus

[charly0001]

Gracias, lo pruebo.