FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Demora al cambiar la hora
Hola foristas.
Tengo el siguiente codigo. var FecDada : TdateTime; // HorDada : TSystemTime; HorDada : TDateTime; begin FecDada := StrToDate(Efecha.Text); HorDada := StrToTime(Ehora.Text); ProCamFec(FecDada, HorDada); end; Procedure ProCamFec(Fecha: TDateTime; Hor : TDateTime); var FecSys: TSystemTime; nA, nM, nD, nHH, nMM, nSS, nMS : Word; begin DecodeDate(Fecha, nA, nM, nD); GetLocalTime(FecSys); FecSys.wYear := nA; FecSys.wMonth := nM; FecSys.wDay := nD; DecodeTime(Hor, nHH, nMM, nSS, nMs); FecSys.wHour := nHH; FecSys.wMinute := nMM; FecSys.wSecond := nSS; FecSys.wMilliseconds := nMS; SetLocalTime(FecSys); end; El cambia la fecha inmediatamente pero en la hora se tarda Aprox 45 Seg. en cambiarla o mostrarla en la barra de tareas, alguien sabe decirme el pporque de esto, me gustaria que lo hiciera como la fecha en forma inmediata. Alguna sugerencia si es el caso se los agradezco.
__________________
Siempre hay un primer momento para todo. |
|
|
|