|
|
|
|
|
Colocando a data por extenso no Delphi
Categorias » Delphi, Dicas Delphi | Deixe um Comentário
Veja neste exemplo como colocar uma data qualquer por extenso.
procedure TForm1.Button1Click(Sender: TObject);
const
// Declara e inicializa o array de meses
meses: Array[1..12] of String = (’Janeiro’, ‘Fevereiro’, ‘Março’, ‘Abril’,
‘Maio’, ‘Junho’, ‘Julho’, ‘Agosto’,
’Setembro’, ‘Outubro’, ‘Novembro’,
’Dezembro’);
// Declara e inicializa o array de dias da semana
diasemana: Array[1..7] of String = (’Domingo’, ‘Segunda-Feira’,
’Terça-Feira’, ‘Quarta-Feira’,
’Quinta-Feira’, ‘Sexta-Feira’,
’Sábado’);
var
dia, mes, ano: […]
