ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
7 сообщений из 7, страница 1 из 1
Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
    #34131743
decaml
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
decaml
Участник
Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
...
Рейтинг: 0 / 0
15.11.2006, 22:47
| Ответить | Цитировать | Написать  
Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
    #34132374
Фотография ну я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ну я
Участник
decamlКак к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?

Развернуто и по шагам идея примерно такая:

USER>w 60*60*24
86400
USER>s h=$h

USER>s h=$p(h,",",1)*86400+$p(h,",",2)

USER>w

h=5234583022
USER>s h=h+123

USER>s h=h\86400_","_(h#86400)

USER>w

h="60585,39145"
USER>w $h
60585,39108
...
Рейтинг: 0 / 0
16.11.2006, 10:52
| Ответить | Цитировать | Написать  
Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
    #34132376
Maksim UM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maksim UM
Гость
Например
Код: plaintext
1.
2.
Set a=$H
Set b=$P(a,",", 1 )_","_($P(a,",", 2 )+ 10 )
...
Рейтинг: 0 / 0
16.11.2006, 10:53
| Ответить | Цитировать | Написать  
Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
    #34132544
Фотография ну я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ну я
Участник
Maksim UMНапример
Код: plaintext
1.
2.
Set a=$H
Set b=$P(a,",", 1 )_","_($P(a,",", 2 )+ 10 )

А попадание на переход на следующий день?
...
Рейтинг: 0 / 0
16.11.2006, 11:37
| Ответить | Цитировать | Написать  
Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
    #34133278
Maksim UM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maksim UM
Гость
ну яА попадание на переход на следующий день?
Ну вот, начались придирки :)
Конечно вы правы, я поторопился.
...
Рейтинг: 0 / 0
16.11.2006, 13:54
| Ответить | Цитировать | Написать  
Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
    #34134269
ZvezDuke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZvezDuke
Гость
ну я Maksim UMНапример
Код: plaintext
1.
2.
Set a=$H
Set b=$P(a,",", 1 )_","_($P(a,",", 2 )+ 10 )

А попадание на переход на следующий день?

Код: plaintext
1.
2.
3.
4.
s h=$h,a=$p(h,",", 1 ),b=$p(h,",", 2 )
s b=b+ 10 
;  86399 = 23 * 60 * 60 + 59 * 60 + 59  [ 23 : 59 : 59 ]
s:(b>= 86399 ) Day= 1 ,b=b- 86399  
s hres=(a+Day)_","_b
...
Рейтинг: 0 / 0
16.11.2006, 17:15
| Ответить | Цитировать | Написать  
Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
    #34152032
Rus000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rus000
Гость
ZvezDuke ну я Maksim UMНапример
Код: plaintext
1.
2.
Set a=$H
Set b=$P(a,",", 1 )_","_($P(a,",", 2 )+ 10 )

А попадание на переход на следующий день?

Код: plaintext
1.
2.
3.
4.
s h=$h,a=$p(h,",", 1 ),b=$p(h,",", 2 )
s b=b+ 10 
;  86399 = 23 * 60 * 60 + 59 * 60 + 59  [ 23 : 59 : 59 ]
s:(b>= 86399 ) Day= 1 ,b=b- 86399  
s hres=(a+Day)_","_b



вообще-то решение не полное. Если потребуется прибавить количество секунд, превышающее 1 сутки, то алгоритм нужно переписывать.

Правильнее будет пользоваться операциями # и \ для вычисления дополняемых дней
...
Рейтинг: 0 / 0
24.11.2006, 07:22
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Как к дате $Horolog прибавить X секунд и получить новую дату $Horolog ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]