Mudanças entre as edições de "Função DecodeTime"
(Criou página com 'A função '''DecodeTime''' decompõe um valor de data e hora (TDateTime) nos componentes de hora, minuto, segundo e milissegundo. ==='''Sintaxe'''=== procedure DecodeTime(e:...') |
|||
| Linha 2: | Linha 2: | ||
==='''Sintaxe'''=== | ==='''Sintaxe'''=== | ||
| − | + | Procedure DecodeTime(e: TDateTime; var Hora, Minuto, Segundo, MiliSegundo: Word); | |
==='''Parâmetros'''=== | ==='''Parâmetros'''=== | ||
Edição atual tal como às 16h10min de 23 de julho de 2024
A função DecodeTime decompõe um valor de data e hora (TDateTime) nos componentes de hora, minuto, segundo e milissegundo.
Sintaxe
Procedure DecodeTime(e: TDateTime; var Hora, Minuto, Segundo, MiliSegundo: Word);
Parâmetros
| Nome | Tipo | Descrição |
|---|---|---|
| e | TDateTime | Valor numérico que representa a data e hora. |
| Hora | Word | Variável de saída que receberá a hora. |
| Minuto | Word | Variável de saída que receberá os minutos. |
| Segundo | Word | Variável de saída que receberá os segundos. |
| MiliSegundo | Word | Variável de saída que receberá os milissegundos. |
Exemplos
var
dataHora: TDateTime;
hora, minuto, segundo, miliSegundo: Word;
begin
dataHora := Now;
DecodeTime(dataHora, hora, minuto, segundo, miliSegundo);
Informacao('Hora: ' + IntToStr(hora) + ', Minuto: ' + IntToStr(minuto) +
', Segundo: ' + IntToStr(segundo) + ', Milissegundo: ' + IntToStr(miliSegundo));
end.
