ProgramDataHora;Uses
CRT, DOS;{A unit DOS contem os comandos de data e hora}VarDia,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...}BeginGetDate(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.
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?