Вниз
Скачать: CL | DM;

datatime + - gmt   Найти похожие ветки 

 
Sopelka   (2015-03-02 16:06) [0]

dxe7.

...
dt,new_dt:tdatetime;gmt:real;
begin
dt:=now;
gmt:=-3.5;
new_dt:=MyFunc(dt,gmt);
showmessage(datetimetostring(new_dt));
end;
...
function MyFunc(dt,gmt):tdatetime;
begin
result:=... ??
end;

нужно из даты получить новую, с учетом смещения gmt
подскажие функцию или алгоритм


 
junglecat ©   (2015-03-02 16:11) [1]

result := dt + gmt / 3600;


 
junglecat ©   (2015-03-02 16:16) [2]

вернее так
result := IncMinute(dt, gmt * 60)


 
Sopelka   (2015-03-02 16:33) [3]

ясно, спасибо.
+
в этом случае gmt должно быть integer. а если оно не целое?


 
junglecat ©   (2015-03-02 16:39) [4]

есть еще IncSecond и IncMillisecond


 
Германн ©   (2015-03-03 01:08) [5]


> Sopelka   (02.03.15 16:33) [3]
>
> ясно, спасибо.
> +
> в этом случае gmt должно быть integer. а если оно не целое?
>

А что тогда означает gmt для тебя?


 
junglecat ©   (2015-03-03 08:42) [6]

> а если оно не целое?

а какие проблемы? в зависимости от нужной точности приводи к ближайшей целой единице - минуты, секунды


 
icWasya ©   (2015-03-03 09:45) [7]

> а если оно не целое?
Поясное время устанавливается с шагом в полчаса, поэтому в минутах оно всегда целое.


 
В-ес-на   (2015-03-03 14:31) [8]

Удалено модератором


 
Inovet ©   (2015-03-03 16:30) [9]

Удалено модератором



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

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



Память: 0.46 MB
Время: 0.017 c
2-1422788793
A1ekceu
2015-02-01 14:06
2017.01.15
Проверка кода


15-1452378602
Юрий
2016-01-10 01:30
2017.01.15
С днем рождения ! 10 января 2016 воскресенье


15-1457219940
Eraser
2016-03-06 02:19
2017.01.15
Требуется ядерщик


15-1450856217
Dimka Maslov
2015-12-23 10:36
2017.01.15
Я ещё сплю?


15-1451551751
кгшзх
2015-12-31 11:49
2017.01.15
взлетит или не заморачиваться?




   Наверх