Ola..pessoal...tou montando este codigo pra mostrar a data por extenso ...igual se mostra em Promissória.
assim:
procedure TForm1.Edit3Enter(Sender: TObject);
Var
DataVencimento : TDateTime;
begin
DataVencimento:=StrToDateTime(maskedit5.text);
Edit3.Text := 'Aos ' + FormatDateTime('dd "dias do mês de " mmmm "do ano de " yyyy',DataVencimento); //converte para exenso
end;
o resultado ta saindo assim:
Aos 01 dias do mês de janeiro do ano de 2008
Não sei ao certo, gostaria de uma dica.....mas acho que deveria sair assim:
Ao(s) primeiro dia do mês de Janeiro do ano de dois mil e oito
Alguém poderia me dar uma dica e o que eu alteraria no codigo??
Obs.: teria que ser algo que não precisasse da DATEUTILS..pois meu delphi é 4 e não tem ela.
Pergunta
Eder
Ola..pessoal...tou montando este codigo pra mostrar a data por extenso ...igual se mostra em Promissória.
assim:
o resultado ta saindo assim: Não sei ao certo, gostaria de uma dica.....mas acho que deveria sair assim:Alguém poderia me dar uma dica e o que eu alteraria no codigo??
Obs.: teria que ser algo que não precisasse da DATEUTILS..pois meu delphi é 4 e não tem ela.
Grato
Editado por EderLink para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.