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
