Colocar hora do sistema num programa

[adler_coelho16]

Tem como eu colocar a hora do sistema em um programa pascal?

Se sim, qual é o nome?

Obrigado pela atenção!

[viniciusbmatos]

Quer exibir em algum momento a hora? Se for isso:

uses
 crt, DOS;
var
  ano,mes,dia,diasemana,hora,minuto,segundo,milissegundo:word;
begin
repeat
  GetDate(Ano,Mes,Dia,DiaSemana);
  GetTime(Hora,Minuto,Segundo,Milissegundo);
  Write(Dia,'/',Mes,'/',Ano,'  -  ',Hora,':',Minuto,':',Segundo,'.',Milissegundo);
  gotoxy(1,wherey);  //vai ao início da linha
until keypressed;
end.

Se quiser estática, pode tirar o REPEAT/UNTIL e o GOTOXY.

Pode-se também melhorar, pondo dia da semana, zero à esquerda (para aparecer 05:09:07 em vez de 5:9:7) e o nome do mês.

[adler_coelho16]

Obrigado Vinicius, mas eu só posso usar na ordem?

[viniciusbmatos]

Você já fez esta pergunta em outro tópico com o GetDate. (Acho que era para calcular a idade das pessoas, e usava o GetDate para saber o ano atual)

Ainda não entendi o que você quis dizer com "na ordem".

A ordem dos argumentos de GetDate e GetTime não deve mudar. Sempre 31/12/1999/FRI e 23:59:59.

Porém, na exibição, escolha a ordem desejada.

Exemplo:

Write(Ano,'/',Mes,'/',Dia,'  -  ',Hora,':',Minuto,':',Segundo,'.',Milissegundo);

(troquei a ordem para 1999/12/31, isto é, o ano vem primeiro)

[adler_coelho16]

ah tendi, valeu!!!

Eu tinha perguntado sim em outra postagem,rsrsrsrsrrs

obrigado.

[gandalfnho]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.