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
----- Original Message -----
From: "Rubem Nascimento da Rocha" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, July 05, 2005 8:21 PM
Subject: Re: [delphi-br] Descobrir Mês
> 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!
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
<<<<< 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
