Fórum Como Selecionar o Último Dia do Mês? #329750
19/09/2006
0
Obs:Estou utilizando o Firebird 2.0
Desde já agradeço a atenção de todos.
Lnunes
Curtir tópico
+ 0Posts
20/09/2006
Randall
Gostei + 0
21/09/2006
Rinez
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
21/09/2006
Rinez
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
21/09/2006
Rinez
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
21/09/2006
Joaoshi
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
Clique aqui para fazer login e interagir na Comunidade :)