Sobre DaysInMonth
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... e mesmo assim me retorna 30...
Resultado := DaysInMont(EncodeDate(2005,02,20));
Bruno Belchior
Curtidas 0
Respostas
Rjun
26/04/2005
Eu usei assim e funcionou :
Resultado := DaysInMonth(StrToDate(´20/02/2008´));
GOSTEI 0
Massuda
26/04/2005
estou utilizando a função [b:34a82bd27b]DaysInMonth[/b:34a82bd27b]...
Onde está declarada essa função? Na DateUtils tem [url=http://www.delphibasics.co.uk/RTL.asp?Name=DaysInAMonth]DaysInAMonth[/url].GOSTEI 0
Bruno Belchior
26/04/2005
na DateUtils...
GOSTEI 0
Bruno Belchior
26/04/2005
Eu usei assim e funcionou :
em outra applicação funciona, mas que estou trabalhando não...Resultado := DaysInMonth(StrToDate(´20/02/2008´));
GOSTEI 0
Bruno Belchior
26/04/2005
pessoal vacilei... estava fazendo isso... 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
procedure Chamada(Data: TDate); begin ShowMessage(IntToStr(DaysInMonth(Date))) end; procedure Chamadora; var Data: TDate; begin Data := EncodeDate(2005,02,20); Chamada(Data); end;
GOSTEI 0