Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2012-10-13 01:21:08 ЛС | профиль | цитата
code_29281.txt
Ты что забыл, что по моей просьбе http://forum.d2h.ru/forum.html?q=3&p=234740#p234740 добавил нижнюю точку DateInt ?
#pas
procedure THIDatePicker._var_DateInt;
var dt: TDateTime;
st: TSystemTime;
begin
Control.Perform(DTM_GETSYSTEMTIME,0,Longint(@st));
SystemTime2DateTime(st,dt);
dtInteger(_Data, trunc(dt));
end;
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_29281.txt [137B] [217]