Sobre DaysInMonth

Question

pessoal estou utilizando a fun��o [b:486b4c3b71]DaysInMonth[/b:486b4c3b71], por�m ela sempre me retorna 30, mesmo que eu passe um m�s de fevereiro...

Resultado := DaysInMont(EncodeDate(2005,02,20));

e mesmo assim me retorna 30...

Rjun · Answer

Eu usei assim e funcionou :[code:1:eec18802ec]Resultado := DaysInMonth(StrToDate(�20/02/2008�));[/code:1:eec18802ec]...

Massuda · Answer

[quote:34a82bd27b=�brunovicenteb�]estou utilizando a fun��o [b:34a82bd27b]DaysInMonth[/b:34a82bd27b]...[/quote:34a82bd27b]Onde est� declarada essa fun��o? Na DateUtils tem [url=//www.delphibasics.co.uk/RTL.asp?Name=DaysInAMonth]DaysInAMonth[/url]....

Bruno Belchior · Answer

na DateUtils......

Bruno Belchior · Answer

[quote:c0c77db4b6=�Rjun�]Eu usei assim e funcionou :[code:1:c0c77db4b6]Resultado := DaysInMonth(StrToDate(�20/02/2008�));[/code:1:c0c77db4b6][/quote:c0c77db4b6]em outra applica��o funciona, mas que estou trabalhando n�o......

Bruno Belchior · Answer

pessoal vacilei... estava fazendo isso...

procedure Chamada(Data: TDate);
begin
  ShowMessage(IntToStr(DaysInMonth(Date)))
end;

procedure Chamadora;
var
  Data: TDate;
begin
  Data := EncodeDate(2005,02,20);
  Chamada(Data);
end;

notem que dentro da fun��o chamada eu estava utilizando [b:f6efe6797b]Date[/b:f6efe6797b] em vez de [b:f6efe6797b]Data[/b:f6efe6797b], � o estresse.... hehehe

F�rum Sobre DaysInMonth #278961