In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Como puedo actualizar la fecha de una pc desde Xailer?

Foro público de Xailer en español
Responder
PEDRO DE LEON RODAS[3]
Mensajes: 266
Registrado: Mar Oct 28, 2008 4:41 am

Como puedo actualizar la fecha de una pc desde Xailer?

Mensaje por PEDRO DE LEON RODAS[3] »

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.
Arriba
PEDRO DE LEON RODAS[3]
Mensajes: 266
Registrado: Mar Oct 28, 2008 4:41 am

Como puedo actualizar la fecha de una pc desde Xailer?

Mensaje por PEDRO DE LEON RODAS[3] »

Juan Castillo A., Saludos.
Gracias por la respuesta, funciona perfectamente bien.
Dios te bendiga.
Arriba
juanc
Mensajes: 105
Registrado: Vie Dic 14, 2007 12:15 am

Como puedo actualizar la fecha de una pc desde Xailer?

Mensaje por juanc »

// 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.
>
Arriba
Quique
Mensajes: 16
Registrado: Lun Abr 27, 2009 9:05 pm

Como puedo actualizar la fecha de una pc desde Xailer?

Mensaje por Quique »

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.
>
>
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Como puedo actualizar la fecha de una pc desde Xailer?

Mensaje por Xevi »

¿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.
>>
>
>
Arriba
Responder

Volver a “Xailer Spanish”