Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido]data Extenso


Eder

Pergunta

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.

Grato

Editado por Eder
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0
Guest --Jonas --

O Delphi permite formatar datas para apresentação por extenso de forma bastante simples. Vejamos os seguintes exemplos:

Para formatar a data 13/08/2007, podemos utilizar:

No create do form colocar

Shortdateformat:=

dddd, dd/mm/yyyy = Quinta, 13/08/2007

dd/mmm/yyyy = 13/Ago/2007

dddd, dd" de "mmmm" de "yyyy = Segunda, 13 de Agosto de 2007

dd" de "mmmm" de "yyyy, dddd = 13 de Agosto de 2007, Segunda

Link para o comentário
Compartilhar em outros sites

  • 0

Ola..Jonas...Bza?

carinha ...isto tou sabendo beleza...

Mas o que eu queria e não to conseguindo fazer é como este exemplo abaixo:

01/01/2008

Ao(s) primeiro dia do mês de Janeiro do ano de dois mil e oito

Entendeu??

terias algum exemplo como mostro acima??

Grato

Link para o comentário
Compartilhar em outros sites

  • 0
Mas o que eu queria e não to conseguindo fazer é como este exemplo abaixo:

01/01/2008

Ao(s) primeiro dia do mês de Janeiro do ano de dois mil e oito

Eder, acredito que você poderia fazer uma combinação de uso das funções de data com uma função para conversão de número para extenso (você encontra várias na net ,se bem que a maioria é bem mais complexa do que você precisa...).

Você teria apenas que ver essa questão da parte inicial do texto, quando deverá aparecer "primeiro", "segundo"... "décimo quinto" - será sempre neste linha?

Link para o comentário
Compartilhar em outros sites

  • 0
Guest --Jonas --

Vou te dar mastigadinho ....rs

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, ToolEdit;

type
  TForm1 = class(TForm)
    DateEdit1: TDateEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Centavos, Centena, Milhar, Milhao, Texto, msg: string;
  end;

var
  Form1: TForm1;

const
  dias: array[1..9] of Pchar = ('Primeiro', 'Segundo', 'Terceiro', 'Quarto', 'Quinto', 'Sexto', 'Setimo', 'Oitavo', 'Nono');
     // completar para os demais dias do mês

implementation

{$R *.DFM}

function extenso (valor: real): string;
var
Centavos, Centena, Milhar, Milhao, Texto, msg: string;
const
Unidades: array[1..9] of string = ('Um', 'Dois', 'Tres', 'Quatro', 'Cinco', 'Seis', 'Sete', 'Oito', 'Nove');
Dez: array[1..9] of string = ('Onze', 'Doze', 'Treze', 'Quatorze', 'Quinze', 'Dezesseis', 'Dezessete', 'Dezoito', 'Dezenove');
Dezenas: array[1..9] of string = ('Dez', 'Vinte', 'Trinta', 'Quarenta', 'Cinquenta', 'Sessenta', 'Setenta', 'Oitenta', 'Noventa');
//Centenas: array[1..9] of string = ('Cento', 'Duzentos', 'Trezentos', 'Quatrocentos', 'Quinhentos', 'Seiscentos', 'Setecentos', 'Oitocentos', 'Novecentos');


function ifs(Expressao: Boolean; CasoVerdadeiro, CasoFalso: String): String;
begin
   if Expressao then
      Result:=CasoVerdadeiro
   else Result:=CasoFalso;
end;


function MiniExtenso (trio: string): string;
var
   Unidade, Dezena, Centena: string;
begin
  Unidade:='';
  Dezena:='';
  Centena:='';
  if (trio[2]='1') and (trio[3]<>'0') then
    begin
      Unidade:=Dez[strtoint(trio[3])];
      Dezena:='';
    end
  else
    begin
      if trio[2]<>'0' then Dezena:=Dezenas[strtoint(trio[2])];
      if trio[3]<>'0' then Unidade:=Unidades[strtoint(trio[3])];
    end;


  Result:= Centena + ifs((Centena<>'') and ((Dezena<>'') or (Unidade<>'')), ' e ', '')
  + Dezena + ifs((Dezena<>'') and (Unidade<>''),' e ', '') + Unidade;

  end;

  begin

  if valor=0 then
    begin
      Result:='';
      Exit;
    end;

  Texto:=formatfloat('000000.00',valor);
  Milhar:=MiniExtenso(Copy(Texto,1,3));
  Centena:=MiniExtenso(Copy(Texto,4,3));
  Result:=Milhar;

  if Milhar<>'' then
  if copy(texto,4,3)='000' then
    Result:=Result+' mil'
  else
    Result:=Result+' mil ';

  if (((copy(texto,4,2)='00') and (Milhar<>'')
    and (copy(texto,6,1)<>'0')) or (centavos=''))
    and (Centena<>'') then Result:=Result+' e ';
  if (Milhar+Centena <>'') then Result:=Result+Centena;
  if (Milhar='') and (copy(texto,4,3)='001') then
    Result:=Result+' '
  else
    if (copy(texto,4,3)<>'000') then Result:=Result+' ';

end;



procedure TForm1.Button1Click(Sender: TObject);
var
   Present: TDateTime;
   Year, Month, Day, Hour, Min, Sec, MSec: Word;
   mês : string;
   begin
      Present:= DateEdit1.Date;
      DecodeDate(Present, Year, Month, Day);
      case Month of
         1: mês := ' de Janeiro de ';
         2: mês := ' de Fevereiro de ';
         3: mês := ' de Março de ';
         4: mês := ' de Abril de ';
         5: mês := ' de Maio de ';
         6: mês := ' de Junho de ';
         7: mês := ' de Julho de ';
         8: mês := ' de Agosto de ';
         9: mês := ' de Setembro de ';
         10: mês := ' de Outubro de ';
         11: mês := ' de Novembro de ';
         12: mês := ' de Dezembro de ';
   end;

   Label1.Caption := 'Ao ' + dias[day] + ' dia do mês'  + mês + extenso(Year);

end;

end.

Link para o comentário
Compartilhar em outros sites

  • 0
Você teria apenas que ver essa questão da parte inicial do texto, quando deverá aparecer "primeiro", "segundo"... "décimo quinto" - será sempre neste linha?

Resposta p/ Micheus: sim...vou pegar o exemplo do Jonas e dar uma estudada, parece que nele tem tudo o que preciso..

Valeu Jonas...qualquer coisa eu peço ajuda aos colegas..

Grato a atenção Micheus e Jonas.

Abraço

:)

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...