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.
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?