Início > Códigos-Fonte, Dicas, Pascal > [DICAS] PegaData

[DICAS] PegaData

Para quem deseja criar um programa que receba uma data, mas quer que ela fique organizada no modelo (dd/mm/aaaa), aí está!
O código-fonte está liberado para quem quiser usar, pois eu acho que devemos compartilhar o nosso conhecimento com todos, sem cobrar nada por isso. Só peço que não me tirem a autoria.

(*
 Programa que recebe uma data e exibe a mesma ao usuário.
 Autor: Luiz Augusto de M. Morais
 Data: 16/04/2010
*)

program PegaData;
uses
 crt;
var
 data : record
 dia, mes, ano : integer;
 end;
 coluna : integer;

begin

 //Lê os valores: dia, mês e ano.
 clrscr;

 coluna := 31;
 write('Informe a data (dd/mm/aaaa): (  /  /    )');

 gotoxy(coluna, 1);      //Leva o cursor para a coluna 30 e linha 1
 readln(data.dia);       //Recebe o dia
 coluna := coluna + 3;   //Avança 3 espaços na coluna

 gotoxy(coluna, 1);      //Leva o cursor para a coluna 33 e linha 1
 readln(data.mes);       //Recebe o mês
 coluna := coluna + 3;   //Avança 3 espaços na coluna

 gotoxy(coluna, 1);      //Leva o cursor para a coluna 36 e linha 1
 readln(data.ano);       //Recebe o ano

 //Exibe a data.
 writeln;
 with data do
 begin
 writeln('Data: ', dia, '/', mes, '/', ano);
 end;
 readkey;
end.

Acesse o novo endereço do Olá Mundo!: http://ola-mundo.com

  1. Nenhum comentário ainda.
  1. No trackbacks yet.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: