вычитание даты и времени...

← →
serko © (2006-12-07 22:13) [0]

Здраствуйте!

Ребят расскажите как осуществить вычитание одной даты (времени) от другой или суммирование.

Ну вот например: (05.12.2006 21:13:01)-(05.12.2006 20:13:01)=0 дней 1 час 0 минут 0 секунд

← →
Palladin © (2006-12-07 22:17) [1]

function SecondsBetween(const ANow, AThen: TDateTime): Int64; + несложные математические операции

← →
serko © (2006-12-07 22:24) [2]

Интересно, интересно!

Ну у меня пишет что неизвестная функция... наверное надо модуль какой то подключиться! какой?
И что это за тип INT64 ?

← →
TUser © (2006-12-07 22:29) [3]

F1

модуль - datautils или sysutils, не помню точно.

← →
Palladin © (2006-12-07 22:54) [4]

Все это и многое другое вы можете узнать в справке!
Справка! Решенье всех проблем!

На правах рекламы.

← →
Anatoly Podgoretsky © (2006-12-07 23:08) [5]

> serko (07.12.2006 22:13:00) [0]

Суммирование :-)

1.01.2006 + 1.01.2006 = 2.02.4012

← →
iXT (2006-12-08 09:26) [6]

> Anatoly Podgoretsky © (07.12.06 23:08) [5]

:)

А вот и нет

← →
Anatoly Podgoretsky © (2006-12-08 10:57) [7]

> iXT (08.12.2006 09:26:06) [6]

Проверял или думаешь?

← →
novill © (2006-12-08 11:03) [8]

> [7] Anatoly Podgoretsky © (08.12.06 10:57)

а ты проверял? ))

← →
Anatoly Podgoretsky © (2006-12-08 11:04) [9]

> novill (08.12.2006 11:03:08) [8]

Конечно, но не вежливо вопросом на вопрос отвечать.

← →
Darvin © (2006-12-08 15:13) [10]

Так не катит?
var
DT, DT1, DT2 : TDataTime;
begin
DT := DT1 + DT2;

TDataTime -> Double, целая часть - дата, дробная - время

← →
novill © (2006-12-08 15:24) [11]

> [10] Darvin © (08.12.06 15:13)
))) И Что получается???

← →
Anatoly Podgoretsky © (2006-12-08 15:28) [12]

> Darvin (08.12.2006 15:13:10) [10]

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

Обычно имеет смысл сложение даты с интервалом и вычитание даты из даты для получения интервала.

← →
iXT (2006-12-08 15:35) [13]

> Anatoly Podgoretsky © (08.12.06 10:57) [7]

Не проверял!

← →
Darvin © (2006-12-08 15:39) [14]

>novill © (08.12.06 15:24) [11]
>Anatoly Podgoretsky © (08.12.06 15:28) [12]

Все прекрасно работает, давно использую ;-)

← →
Anatoly Podgoretsky © (2006-12-08 15:47) [15]

> iXT (08.12.2006 15:35:13) [13]

Тяжело чтоли проверить, одна строчка кода

← →
iXT (2006-12-08 16:29) [16]

> Anatoly Podgoretsky © (08.12.06 15:47) [15]

У меня MyHead Компилятор :)

> iXT (08.12.2006 16:29:16) [16]

Ну и чего? Он что не позволяет сложить 2006 и 2006?
Меняй компилятор

← →
iXT (2006-12-08 16:36) [18]

> Ну и чего? Он что не позволяет сложить 2006 и 2006?

2006 это что?

> Меняй компилятор

Он мне как память дорог :)

> iXT (08.12.2006 16:36:18) [18]

Это год, повторяю пример для сложения двух дат 1.01.2006 + 1.01.2006
У меня получилось 2.01.4012 и какой смысл в подобной операции?

← →
iXT (2006-12-08 16:48) [20]

Смысла нет согласен.
Типа Год в дельфе нету (ну впрочем Вы знаете).
MyHead говорит, что если 1.01.2006 это дата, т.е. TDateTime (хотя автор неудосужился уточнить это), то ответ то другой.
Это я и хотел сказать!
А вот если PAnsiChar ...

> iXT (08.12.2006 16:48:20) [20]

Между прочим, я знаю что есть, смотри функции Decode/EncodeDate/YearOf

← →
iXT (2006-12-08 17:08) [22]

Посмотрел :)
function YearOf(...):Word;
function EncodeDate(.....:Word):TDateTime;

> iXT (08.12.2006 17:08:22) [22]

type
TDateTime = Double
TYear = Word

Это если у тебя есть психологические проблемы.

вычитание даты и времени... Найти похожие ветки