Como Selecionar o Último Dia do Mês?

Delphi

19/09/2006

Como fazer para encontrar o último dia do mês dentro de uma Store Procedure?

Obs:Estou utilizando o Firebird 2.0

Desde já agradeço a atenção de todos.


Lnunes

Lnunes

Curtidas 0

Respostas

Randall

Randall

19/09/2006

use a funcao extract month veja o mes se igual 1,3,7,8,10,12 = 31 etc...


GOSTEI 0
Rinez

Rinez

19/09/2006

Caro Lnunes:
Use a Função:
function LasDay(data : TDate): TDate;
var d : Tdate;
begin
d:=strtodate(´15/´+formatdatetime(´MM/YYYY´,data))+30;
d:=strtodate(´01/´+formatdatetime(´MM/YYYY´,d));
d:=d-1;
result := d;
end;


GOSTEI 0
Rinez

Rinez

19/09/2006

Caro Lnunes:
Use a Função:
function LasDay(data : TDate): TDate;
var d : Tdate;
begin
d:=strtodate(´15/´+formatdatetime(´MM/YYYY´,data))+30;
d:=strtodate(´01/´+formatdatetime(´MM/YYYY´,d));
d:=d-1;
result := d;
end;


GOSTEI 0
Rinez

Rinez

19/09/2006

Caro Lnunes:
Use a Função:
function LasDay(data : TDate): TDate;
var d : Tdate;
begin
d:=strtodate(´15/´+formatdatetime(´MM/YYYY´,data))+30;
d:=strtodate(´01/´+formatdatetime(´MM/YYYY´,d));
d:=d-1;
result := d;
end;


GOSTEI 0
Joaoshi

Joaoshi

19/09/2006

Colega, preste atenção neste exemplo, e adapte para sua necessidade.

select
Cast(´01.´||
Extract(month from (
cast(´25.´||extract(month from current_date)||´.´||
extract(year from current_date) as date) + 10 ))||´.´||
Extract(year from (
cast(´25.´||extract(month from current_date)||´.´||
extract(year from current_date) as date) + 10 )) as date) -1 as UltimoDiaDoMes from rdb$database

Espero ter ajudado.


GOSTEI 0
POSTAR