Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c