Arioch ,
у меня потроха по-другому выглядят
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
function TIBXSQLVAR.GetAsInteger: Integer;
begin
Result := GetAsLong;
end;
function TIBXSQLVAR.GetAsLong: Long;
begin
result := 0;
if not IsNull then
case FXSQLVAR^.sqltype and (not 1) of
SQL_TEXT, SQL_VARYING: begin
try
result := StrToInt(AsString);
except
on E: Exception do IBError(ibxeInvalidDataConversion, [nil]);
end;
end;
SQL_SHORT:
result := Trunc(AdjustScale(Int64(PShort(FXSQLVAR^.sqldata)^),
FXSQLVAR^.sqlscale));
SQL_LONG:
result := Trunc(AdjustScale(Int64(PLong(FXSQLVAR^.sqldata)^),
FXSQLVAR^.sqlscale));
SQL_INT64:
result := Trunc(AdjustScale(PInt64(FXSQLVAR^.sqldata)^, FXSQLVAR^.sqlscale));
SQL_DOUBLE, SQL_FLOAT, SQL_D_FLOAT:
result := Trunc(AsDouble);
else
IBError(ibxeInvalidDataConversion, [nil]);
end;
end;
,
спасибо, Дим, вечерком гляну.
WildSery ,
по логике, да. Вряд ли в базе будут посещения "старее" начала прошлого века :)
wadman> 24
пофиг. Мне важно, чтобы эта разница для определенной даты была величиной постоянной и гарантированно отличалась от разницы у другой даты.
