Data e Hora em pascal [Pascal/Kylix]

Data e Hora em pascal

Publicado por Mauricio 02/04/2009

[ Hits: 17.304 ]

Homepage: http://www.mbmaciel.com

Download datahora.pas

0 0

Denuncie Favoritos Indicar

Programa simples que pega a data e hora da bios e mostra na tela.

Esconder código-fonte

Program DataHora; 
Uses 
CRT, DOS; {A unit DOS contem os comandos de data e hora} 
Var 
Dia, 
Mes, 
Ano, 
Dia_Semana, 
Hora, 
Minuto, 
Segundo, 
Dec_Segundo : Word; {O tipo das variáveis deve ser WORD 
pois até agora não vi data negativa...} 

Begin 
GetDate(Ano, Mes, Dia, Dia_Semana);  
GetTime(Hora, Minuto, Segundo, Dec_Segundo);
Writeln(Hora, ':', Minuto, ':', Segundo); {Escreve a hora} 
Writeln(Dia, '/', Mes, '/', Ano, '/'); {Escreve a data} 
Readln; 
End.

Scripts recomendados

GTK em (Free)Pascal

Raiz

Programa para Cálculo Vetorial

Animação com figuras

Operações simples e avançadas com matrizes

Comentários

[1] Comentário enviado por doradu em 11/02/2010 - 16:58h

Program DataHora;

Uses
Crt, Dos; {A unit DOS contem os comandos de data e hora}

Var
Dia, Mes, Ano, Dia_Semana, Hora, Minuto, Segundo, Dec_Segundo : Word;
{O tipo das variáveis deve ser WORD pois até agora não vi data negativa...}

Begin
GetDate(Ano, Mes, Dia, Dia_Semana);
GetTime(Hora, Minuto, Segundo, Dec_Segundo);
Writeln('Sao ', Hora, 'h', Minuto, 'm', Segundo, 's'); {Escreve a hora}
Writeln(Dia, ' de ', Mes, ' de ', Ano); {Escreve a data}
Readln;
End.

mexi um pouco no código

0 0

[2] Comentário enviado por datsik em 23/12/2012 - 17:13h

Procedure alu_imprimir;
var num : integer;
Ano, Mes, Dia: Word; <-------
Begin
reset(alugueres);

{Writeln('Qual é o registo que deseja imprimir?');
read(num);
seek(alugueres, num-1);}

Assign(aluguer_output, 'Aluguer.txt');
rewrite(aluguer_output);

----> GetDate(Ano, Mes, Dia);

While not EOF (alugueres) do
Begin
read(alugueres, aluguerr);
with (aluguerr) do
begin
writeln(aluguer_output,'|_________________________|');
Writeln(aluguer_output,'| |');
Writeln(aluguer_output,'| | Datsikk Store | |');
Writeln(aluguer_output,'| |');
Writeln(aluguer_output,'|-------------------------|');
Writeln(aluguer_output,'| LOJA |');
Writeln(aluguer_output,'|-------------------------|');
Writeln(aluguer_output,'| Nome : DatSikk |');
Writeln(aluguer_output,'| Morada : Rua do Som |');
Writeln(aluguer_output,'| Localidade : Estarreja |');
writeln(aluguer_output,'|+++++++++++++++++++++++++|');
writeln(aluguer_output,'|+++++++++++++++++++++++++|');
writeln(aluguer_output,'| Nome Cliente: ', nomecli);
writeln(aluguer_output,'| Nome CD: ', nomecd);
writeln(aluguer_output,'| Data do aluguer: ', dataini);
writeln(aluguer_output,'| Data da Devolução: ', datafim);
writeln(aluguer_output,'|--------------------------|');
---> Writeln(aluguer_output, Dia, '/', Mes, '/', Ano, '/');
readln;
writeln(aluguer_output,'|--------------------------|');
Writeln(aluguer_output);
Writeln(aluguer_output);
Writeln(aluguer_output);
end;
end;
close(alugueres);
close(aluguer_output);
clrscr;
end;

NESTE CASO O GETDATE NAO DÁ , SERA POR ESTAR NUM PROCEDURE?

0 0