Xailer & OZ Software

Lo que quiero hacer en xailer es un formulario y que cada vez que inicie la
pc el usuario digite la fecha actual y automaticamente se actualize el de la
pc, por si es que no esté actualizada.
De antemano, mil gracias.

Juan Castillo A., Saludos.
Gracias por la respuesta, funciona perfectamente bien.
Dios te bendiga.

// cServerDate := ::ServerDateTime( oSender )
cServerDate := "2009-05-29 16:03:23"
/* Actualiza fecha y hora del equipo */
SetDate( Val( SubStr( cServerDate, 9, 2 ) ),;
Val( SubStr( cServerDate, 6, 2 ) ),;
Val( Left( cServerDate, 4 ) ) )
cTime := Right( cServerDate, 8 )
SetTime( Val( Left( cTime, 2 ) ), Val( SubStr( cTime, 4, 2 ) ),
Val( Right( cTime, 2 ) ) )
#pragma BEGINDUMP
#include <windows.h>
#include "hbapi.h"
#include "hbapiitm.h"
#include "commctrl.h"
HB_FUNC( SETDATE )
{
SYSTEMTIME st;
WORD wDay = hb_parni( 1 );
WORD wMonth = hb_parni( 2 );
WORD wYear = hb_parni( 3 );
GetLocalTime(&st);
st.wDay = wDay;
st.wMonth = wMonth;
st.wYear = wYear;
if (!SetLocalTime(&st)) // sets system date
hb_retl( FALSE );
hb_retl( TRUE );
}
HB_FUNC( SETTIME )
{
SYSTEMTIME st;
WORD wHour = hb_parni( 1 );
WORD wMinutes = hb_parni( 2 );
WORD wSeconds = hb_parni( 3 );
GetLocalTime(&st);
st.wHour = wHour;
st.wMinute = wMinutes;
st.wSecond = wSeconds;
st.wMilliseconds = 0;
if (!SetLocalTime(&st)) // sets system time
hb_retl( FALSE );
hb_retl( TRUE );
}
#pragma ENDDUMP
"PEDRO DE LEON RODAS" <7773613810@prodigy.net.mx> escribió en el mensaje
news:4a2046f0$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Lo que quiero hacer en xailer es un formulario y que cada vez que inicie
> la pc el usuario digite la fecha actual y automaticamente se actualize el
> de la pc, por si es que no esté actualizada.
>
> De antemano, mil gracias.
>

Puedes hacer un simple llamado a DOS
!date 30-05-09
!time 18:15:35
PEDRO DE LEON RODAS escribió:
> Lo que quiero hacer en xailer es un formulario y que cada vez que inicie la
> pc el usuario digite la fecha actual y automaticamente se actualize el de la
> pc, por si es que no esté actualizada.
>
> De antemano, mil gracias.
>
>

¿Y para utilizarlo en Vista o Windows7 ???
Por lo visto no se puede pasar por alto los privilegios de Seguridad del
usuario.
Un Saludo,
Xevi.
"Juan Castillo A." <juanc@lasnovedades.com.mx> escribió en el mensaje
news:4a204e2c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> // cServerDate := ::ServerDateTime( oSender )
>
> cServerDate := "2009-05-29 16:03:23"
>
> /* Actualiza fecha y hora del equipo */
> SetDate( Val( SubStr( cServerDate, 9, 2 ) ),;
> Val( SubStr( cServerDate, 6, 2 ) ),;
> Val( Left( cServerDate, 4 ) ) )
> cTime := Right( cServerDate, 8 )
> SetTime( Val( Left( cTime, 2 ) ), Val( SubStr( cTime, 4, 2 ) ),
> Val( Right( cTime, 2 ) ) )
>
>
> #pragma BEGINDUMP
>
> #include <windows.h>
> #include "hbapi.h"
> #include "hbapiitm.h"
> #include "commctrl.h"
>
> HB_FUNC( SETDATE )
> {
> SYSTEMTIME st;
>
> WORD wDay = hb_parni( 1 );
> WORD wMonth = hb_parni( 2 );
> WORD wYear = hb_parni( 3 );
>
> GetLocalTime(&st);
>
> st.wDay = wDay;
> st.wMonth = wMonth;
> st.wYear = wYear;
>
> if (!SetLocalTime(&st)) // sets system date
> hb_retl( FALSE );
>
> hb_retl( TRUE );
> }
>
> HB_FUNC( SETTIME )
> {
> SYSTEMTIME st;
>
> WORD wHour = hb_parni( 1 );
> WORD wMinutes = hb_parni( 2 );
> WORD wSeconds = hb_parni( 3 );
>
> GetLocalTime(&st);
>
> st.wHour = wHour;
> st.wMinute = wMinutes;
> st.wSecond = wSeconds;
> st.wMilliseconds = 0;
>
> if (!SetLocalTime(&st)) // sets system time
> hb_retl( FALSE );
>
> hb_retl( TRUE );
> }
>
> #pragma ENDDUMP
>
> "PEDRO DE LEON RODAS" <7773613810@prodigy.net.mx> escribió en el mensaje
> news:4a2046f0$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Lo que quiero hacer en xailer es un formulario y que cada vez que inicie
>> la pc el usuario digite la fecha actual y automaticamente se actualize el
>> de la pc, por si es que no esté actualizada.
>>
>> De antemano, mil gracias.
>>
>
>