Int64 ??? Overflow

← →
Vadim X (2004-05-19 13:32) [0]

var iGUID : Int64;
Year,Month,Day,
Hour,Min,Sec,Msec : word;
N : TDateTime;
begin
N := StrToDateTime("19.05.04 13:26:10.100");
DecodeTime(N , Hour, Min, Sec, MSec);
DecodeDate(N , Year, Month, Day);

iGUID := (Year mod 2000) * 1000000000000000;
iGUID := iGuid + Month * 10000000000000;
iGUID := iGuid + Day * 100000000000;
iGUID := iGuid + Hour * 1000000000;
iGUID := iGuid + Min * 10000000;
iGUID := iGuid + Sec * 100000;
iGUID := iGuid + Trunc(Msec/100) * 10000;
iGUID := iGuid + CID;

Почему на строчке
iGUID := Int64(iGuid + Hour * 1000000000);
идет переполнение?
Как этого избежать?
У Int64 диапазон в плюс =
9 223 372 036 854 775 807

← →
Alx2 © (2004-05-19 13:48) [1]

iGUID := iGuid + Int64(Hour) * 1000000000;

← →
Vadim X (2004-05-19 14:11) [2]

Уже понял. СПАСИБО.

Int64 ??? Overflow Найти похожие ветки