Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вычитение даты-времени [D2005]

Страницы: < 1 2 3 >
oleg1963lora © (2010-04-05 09:44:00)
Здравствуйте Мастера! Есть такой код:

var MyMinDateTim, MyMaxDateTime : TDateTime; year,month,day,hour,min,sec,msec : word; vremya, vremya2 : string; begin vremya:='01.03.2010 09:18'; vremya2:='01.03.2010 09:19'; MyMinDateTime:=StrToDateTime(vremya); MyMaxDateTime:=StrToDateTime(vremya2); MyMaxDateTime:=MyMaxDateTime-MyMinDateTime; DecodeDateTime(MyMaxDateTime,year,month,day,hour,min,sec,msec);
При вычитании получаю:
year=1899
month=12
Day=30
Hour=0
Min=1
sec=0
msec=0.

Подскажите пожалуйста где я ошибаюсь?

Anatoly Podgoretsky (2010-04-05 11:34:00) [21]
> Jeer (05.04.2010 11:24:28) [28]

Я по техзаданию, а если оно неправильное, то я не виноват.

Anatoly Podgoretsky (2010-04-05 11:34:00) [22]
> oleg1963lora (05.04.2010 11:24:27) [27]

Я думаю лучше выбор сделать в пользу предприятия, выгоднее спасать его.

Anatoly Podgoretsky (2010-04-05 11:33:00) [23]
> Jeer (05.04.2010 11:22:26) [26]

Точно и точно такое же бардачное обсуждение, видимо безнадежно.

Anatoly Podgoretsky (2010-04-05 11:31:00) [24]
> oleg1963lora (05.04.2010 11:01:21) [21]

Вот так с предыдущим обсуждением и поступили, отправили в урну.

Jeer (2010-04-05 11:26:00) [25]

> В том-то и дело. Сейчас идет речь о моем увольнении, так
> что Спасите мою задницу!

Можно, конечно, тебе помочь и решить за тебя эту задачу. Однако, насколько мне известно, за решение "тобой" одной задачи тебе не станут платить вечно - появятся другие задачи и что ты будешь делать ?
Опять бегать по форумам ?

oleg1963lora (2010-04-05 11:24:00) [26]

> Что то мне кажется, что подобная ветка уже была, так ничем
> и кончилась

В том-то и дело. Сейчас идет речь о моем увольнении, так что Спасите мою задницу!

Jeer (2010-04-05 11:24:00) [27]

> и умножить на 1440 дальше остаток от деления на 12 и анализ
> результата

время измерения может так и не попасть в желаемый диапазон, а в итоге все выкинется.
Ему уже предлагалось сделать интерполяцию с шагом 12 минут - не дошло, видимо.

Jeer (2010-04-05 11:22:00) [28]

> Что то мне кажется, что подобная ветка уже была, так ничем
> и кончилась

10-го марта это обсуждалось.
За это время можно было хотя бы китайский выучить.

Jeer (2010-04-05 11:20:00) [29]

> oleg1963lora (05.04.10 11:01) [21]

Очень запущенный случай.

Anatoly Podgoretsky (2010-04-05 11:18:00) [30]
> oleg1963lora (05.04.2010 10:43:16) [16]

Что то мне кажется, что подобная ветка уже была, так ничем и кончилась

Дату привести к TDatetime и умножить на 1440 дальше остаток от деления на 12 и анализ результата

Sha (2010-04-05 11:15:00) [31]
Когда вместо того, чтобы обдумать алгоритм, у программиста возникает желание
скорее начать стучать по клавиатуре, то неизбежно рождается бред вроде

> Если разница между соседними строками по времени не входит в диапазон 11-13 минутами их надо удалить.

Sha (2010-04-05 11:04:00) [32]
> oleg1963lora (05.04.10 11:01) [21]

К сожалению для тебя, в Паскале нет такого оператора.

oleg1963lora (2010-04-05 11:01:00) [33]

> Интересно, какой результат ожидается, если соседние строки
> следуют через час?

В урну! Доктор сказал - в морг!

Sha (2010-04-05 10:57:00) [34]
> oleg1963lora (05.04.10 10:43) [16]
> Есть входной текстовый файл, который я заливаю в стринглист и парсингую

Нафига грузить все, если нужна часть?

Sha (2010-04-05 10:53:00) [35]
> oleg1963lora (05.04.10 10:43) [16]
> Если разница между соседними строками по времени не входит в диапазон 11-13 минутами их надо удалить.

Интересно, какой результат ожидается, если соседние строки следуют через час?

И. Павел (2010-04-05 10:52:00) [36]
Если разница между датами [0.0076389...0.009027778] то они отличаются на 11-13 минут.

Sha (2010-04-05 10:49:00) [37]
> Anatoly Podgoretsky © (05.04.10 10:29) [14]

Еще можно считать интервал в минутах...

oleg1963lora (2010-04-05 10:43:00) [38]

> Откуда взялся TStringList и кратность 12

Есть входной текстовый файл, который я заливаю в стринглист и парсингую на дату, время и значение:

01.03.2010 9:17 51,67450333
01.03.2010 9:18 50,23653793
01.03.2010 9:19 50,01485062
01.03.2010 9:20 50,05120087
01.03.2010 9:21 49,83310699
01.03.2010 9:22 50,04480743
01.03.2010 9:23 50,07955933
01.03.2010 9:24 50,54929733
01.03.2010 9:25 50,60521698

Если разница между соседними строками по времени не входит в диапазон 11-13 минутами их надо удалить. Цель - сокращение входного файла

Anatoly Podgoretsky (2010-04-05 10:30:00) [39]

> Не понял вопроса. Нужно из TStringList удалить строки с
> минутами не кратными 12

Откуда взялся TStringList и кратность 12

Anatoly Podgoretsky (2010-04-05 10:29:00) [40]
> Sha (05.04.2010 10:07:09) [9]

Лучше и правильнее в сутках, иначе действительно запутаешь, хотя ты не нужен - это он с успехом сделает и без тебя.

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »