Function boolean SetLocalTime(ref os_systemtime lpSystemTime) &
Library "Kernel32.dll" alias for "SetLocalTime;Ansi"
Ejemplo
Long Err
FechaHoy_DD = Mid(em_fecha.Text,1,2)
FechaHoy_MM = Mid(em_fecha.Text,4,2)
FechaHoy_AA = Mid(em_fecha.Text,7,4)
MiFecha_DD = Mid(em_fecha.Text,1,2)
MiFecha_MM = Mid(em_fecha.Text,4,2)
MiFecha_AA = Mid(em_fecha.Text,7,4)
MiHora_HH =Mid(em_hora.Text,1,2)
MiMinuto_MM =Mid(em_hora.Text,4,2)
MiSegundo_SS=Mid(em_hora.Text,7,2)
FechaHoy = FechaHoy_AA+"-"+FechaHoy_MM+"-"+FechaHoy_DD
MiFecha = MiFecha_AA+"-"+MiFecha_MM+"-"+MiFecha_DD
MiHora =MiHora_HH+":"+MiMinuto_MM+":"+MiSegundo_SS
//Guardo Fecha del dia
li_FileNum = FileOpen(GetCurrentDirectory()+"\FechaHoy.txt",LineMode!,Write!,LockReadWrite!,Replace!)
Err = FileWriteEx(li_FileNum, FechaHoy)
FileClose(li_FileNum)
li_FileNum = FileOpen(GetCurrentDirectory()+"GestFecha\Mifecha.txt")
FileRead(li_FileNum,ls_Emp_Input)
FileClose(li_FileNum)
li_FileNum = FileOpen(GetCurrentDirectory()+"\Mihora.txt",LineMode!,Write!,LockReadWrite!,Replace!)
FileWrite(li_FileNum, MiHora)
FileClose(li_FileNum)
// Lectura de Fecha Introducida
ldt_new = Date(FechaHoy)
ldt_new1 = Time(MiHora)
//Fecha
lstr_systemtime.year = Year(Date(ldt_new))
lstr_systemtime.month = Month(Date(ldt_new))
lstr_systemtime.dayofweek = DayNumber(Date(ldt_new))
lstr_systemtime.day = Day(Date(ldt_new))
//Hora
lstr_systemtime.hour = Hour(Time(ldt_new1))
lstr_systemtime.minute = Minute(Time(ldt_new1))
lstr_systemtime.second = Second(Time(ldt_new1))
lstr_systemtime.millisecond = 0
lb_rc = SetLocalTime(lstr_systemtime)
em_fecha.Text = String(Today())
em_hora.Text = String(Now())