Calcular dias no oncalfields
Como calcular os dias entre duas datas, posso criar variáveis dentro do oncalcfields ou tenho que criar no New field
procedure TConsInscricao.TblInscricaoCalcFields(DataSet: TDataSet);
var
dias : real;
data1, data2 : TDateTime;
begin
begin
edit1.Text:=datetostr(now);
end;
begin
data1 := strtodate(edit1.Text);
data2 := strtodate(DBedit2.text);
dias := data1 - data2;
label8.caption := FloatToStr(Dias) + ´ dias.´;
end;
procedure TConsInscricao.TblInscricaoCalcFields(DataSet: TDataSet);
var
dias : real;
data1, data2 : TDateTime;
begin
begin
edit1.Text:=datetostr(now);
end;
begin
data1 := strtodate(edit1.Text);
data2 := strtodate(DBedit2.text);
dias := data1 - data2;
label8.caption := FloatToStr(Dias) + ´ dias.´;
end;
Consorte
Curtidas 0
Respostas
Romeusql
18/02/2003
Mais ai o que vc quer fazer Criar um campo lockup isso ?
Ou -------- Gostraria de somar as tadas datas
esse
var
dias : real;
data1, data2 : TDateTime; <----- //Coloca so Tdate se não vai soma a hora Tb ...
begin
begin
edit1.Text:=datetostr(now);
end;
begin
Desculpa ce eu não entendi direito falow velho
Ou -------- Gostraria de somar as tadas datas
esse
var
dias : real;
data1, data2 : TDateTime; <----- //Coloca so Tdate se não vai soma a hora Tb ...
begin
begin
edit1.Text:=datetostr(now);
end;
begin
Desculpa ce eu não entendi direito falow velho
GOSTEI 0
Consorte
18/02/2003
Calcular os dias, desculpe se expressei mal 8)
GOSTEI 0