Clube da Programação e Hardware

Tutorial, dicas, Programação, Hardware entre outros assuntos.
 
InícioInício  CalendárioCalendário  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Função que retorna Data por Extenso (Delphi)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
vanix



Mensagens : 25
Data de inscrição : 20/01/2011

MensagemAssunto: Função que retorna Data por Extenso (Delphi)   Qui Jan 20, 2011 8:10 am

implementation
{$R *.dfm}
Function DataPorExtenso: String;
const
Meses : array[1..12] of String = ('Janeiro','Fevereiro','Março','Abril','Maio',
'Junho','Julho','Agosto','Setembro','Outubro',
'Novembro','Dezembro');
Semana : array[1..7] of String = ('Domingo','Segunda-Feira','Terça-Feira','Quarta-Feira',
'Quinta-Feira','Sexta-Feira','Sábado');
var
Dia,Mes,Ano,Diasem: word;
begin
DecodeDate(Date,Ano,Mes,Dia);
Diasem := dayofweek(Date);
result :=Semana[Diasem] + ' - ' + IntToStr(Dia) + ' de '+ Meses[mes] + ' de ' + IntToStr(Ano) + '. ';
end;


exemplo Simples de saida da function:

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:= DataPorExtenso;
end;

Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Função que retorna Data por Extenso (Delphi)
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Função format não passa para o formato de data americana
» Expressões matemáticas, funções e operadores
» [Resolvido]como usar a função jump to start por codigo?
» [RESOLVIDO]2 funções utilizando a mesma tecla???
» [Vídeo-Aula]Aula 4.1 - Usando funções básicas do draw

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Clube da Programação e Hardware :: Programação-
Ir para: