2010. augusztus 8., vasárnap

How to do date math on calculated fields


How to do date math on calculated fields


When doing date math on calculated fields, it is important to ensure that all values being used are properly matched as to type. The double method (not in the docs) casts the value to a useable type. In the following method, d1 and d2 (part of table1) can be of either date or dateTime type and d3 is an integer field.

procedure TForm1.Table1CalcFields(DataSet: TDataset);
  t1, t2: TDateTime;
  table1d1.asDateTime := Date + 2; {or table1d1.value := date + 2;}
  table1d2.asDateTime := Date - 2;
  t1 := table1d1.asDateTime;
  t2 := table1d2.asDateTime;
  table1d3.asInteger := trunc(double(t1) - double(t2));

Nincsenek megjegyzések:

Megjegyzés küldése