Não fica mais fácil utilizar MonthOf e case ?
Coloque em uses a unit DateUtils
var
mes:string;
begin
case MonthOf(date) of
1: mes := 'Janeiro';
2: mes := 'Fevereiro';
3: mes := 'Março';
4: mes := 'Abril';
5: mes := 'Maio';
6: mes := 'Junho';
7: mes := 'Julho';
8: mes := 'Agosto';
9: mes := 'Setembro';
10: mes := 'Outubro';
11: mes := 'Novembro';
12: mes := 'Dezembro';
end;
showmessage(mes);
end;
[]´s
ARP
--- Em delphi-br@yahoogrupos.com.br, "Rubem Nascimento da Rocha"
<[EMAIL PROTECTED]> escreveu
> Odeio ter que dar o peixe pescado, tratado, temperado e frito, mas
tô vendo
> que não via ter jeito.
>
> { Se o Windows é português, ele vai retornar Janeiro, Fevereiro,
etc. senão
> January, Feburary, etc. }
> function MesPorExtenso(const pData: TDateTime = 0): String;
> begin
> if pData = 0 then
> Result := LongMonthNames[StrToInt(FormatDateTime('mm', Now))]
> else
> Result := LongMonthNames[StrToInt(FormatDateTime('mm', pData))];
> end;
>
> function ExtensoMes(const pData: TDateTime = 0): String;
> const
> lMeses: array [1..12] of String = ('Janeiro', 'Fevereiro', 'Março',
> 'Abril', 'Maio', 'Junho',
> 'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novemrbo', 'Dezembro');
> begin
> if pData = 0 then
> Result := lMeses[StrToInt(FormatDateTime('mm', Now))]
> else
> Result := lMeses[StrToInt(FormatDateTime('mm', pData))];
> end;
>
> Melhor que isso, só TRÊS disso!
>
> []s
>
> >From: Sérgio Durand <[EMAIL PROTECTED]>
> >Reply-To: delphi-br@yahoogrupos.com.br
> >To: delphi-br@yahoogrupos.com.br
> >Subject: Re: [delphi-br] Descobrir Mês
> >Date: Tue, 05 Jul 2005 17:16:12 -0300
> >
> >Oi Anderson,
> >
> >Eu não lembro muito bem, mas eu já fiz e foi algo mais ou menos
assim...
> >você dá um DecodeDate passando uma data e as variáveis...
> >Pega a variável respectiva do mes (vai ser um numero)...
> >Cria um array de constante tipo [janeiro, fevereiro, etc e tal] ..
> >Não sei se ficou claro... mais o caminho é por aí ! =))
> >
> >Até mais,
> >Sérgio
> >
> >Anderson escreveu:
> >
> > >Aes galera...
> > >
> > >Será q existe um meio de dizer qual é o mes em uma data.
> > >Ex: 10/07/05
> > > Mes = Julho.
> > >
> > >Anderson
> > >
> >
> >
> >
>
> _________________________________________________________________
> MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
