post icon

Utilizar precisión de milisegundos en Delphi

En la entrada anterior vimos como almacenar el tiempo con precisión en MySQL, ésta vez veremos algo semejante, como la función NOW de por sí no devuelve milisegundos, debemos hacer un decodificamiento del mismo para éste efecto, o caso contrario utilizar la API de Windows, el cual es mucho más preciso que la función anterior.

1
2
3
4
5
6
7
// esta es primer forma de hacerlo
var
 year, mes, dia, hora, minuto, segundo, milisegundo: Word;
begin
   DecodeDate(now, year, mes, dia);
   DecodeTime(now, hora, minuto, segundo, milisegundo);
end;
1
2
3
4
5
6
7
// Invocacion con la API de Windows, solo extrae el milisegundo, pero pueden obtener mas info del objeto TSystemTime
var
 st: TSystemTime;
begin
   Windows.GetSystemTime(st);
   MessageDlg(IntToStr(st.wMilliseconds), mtInformation, [mbOK], 0);
end

Articulos Relacionados:

Sin Comentarios aun, puedes tú ser el primero en comentar!

Deja tu Comentario

Responder