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

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

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

вычитание даты и времени... [D7, XP]

Страницы: 1 2 >
serko © (2006-12-07 22:13:00)
Здраствуйте!

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

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

Anatoly Podgoretsky (2006-12-08 18:54:00) [1]
> iXT (08.12.2006 17:08:22) [22]

type
TDateTime = Double
TYear = Word

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

iXT (2006-12-08 17:08:00) [2]
Посмотрел :)
function YearOf(...):Word;
function EncodeDate(.....:Word):TDateTime;

Anatoly Podgoretsky (2006-12-08 16:59:00) [3]
> iXT (08.12.2006 16:48:20) [20]

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

iXT (2006-12-08 16:48:00) [4]
Смысла нет согласен.
Типа Год в дельфе нету (ну впрочем Вы знаете).
MyHead говорит, что если 1.01.2006 это дата, т.е. TDateTime (хотя автор неудосужился уточнить это), то ответ то другой.
Это я и хотел сказать!
А вот если PAnsiChar ...

Anatoly Podgoretsky (2006-12-08 16:41:00) [5]
> iXT (08.12.2006 16:36:18) [18]

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

iXT (2006-12-08 16:36:00) [6]

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

2006 это что?

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

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

Anatoly Podgoretsky (2006-12-08 16:34:00) [7]
> iXT (08.12.2006 16:29:16) [16]

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

iXT (2006-12-08 16:29:00) [8]

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

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

Anatoly Podgoretsky (2006-12-08 15:47:00) [9]
> iXT (08.12.2006 15:35:13) [13]

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

Darvin (2006-12-08 15:39:00) [10]
>novill © (08.12.06 15:24) [11]
>Anatoly Podgoretsky © (08.12.06 15:28) [12]

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

iXT (2006-12-08 15:35:00) [11]

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

Не проверял!

Anatoly Podgoretsky (2006-12-08 15:28:00) [12]
> Darvin (08.12.2006 15:13:10) [10]

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

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

novill (2006-12-08 15:24:00) [13]
> [10] Darvin © (08.12.06 15:13)
))) И Что получается???

Darvin (2006-12-08 15:13:00) [14]
Так не катит?
var
DT, DT1, DT2 : TDataTime;
begin
DT := DT1 + DT2;

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

Anatoly Podgoretsky (2006-12-08 11:04:00) [15]
> novill (08.12.2006 11:03:08) [8]

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

novill (2006-12-08 11:03:00) [16]
> [7] Anatoly Podgoretsky © (08.12.06 10:57)

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

Anatoly Podgoretsky (2006-12-08 10:57:00) [17]
> iXT (08.12.2006 09:26:06) [6]

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

iXT (2006-12-08 09:26:00) [18]

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

:)

А вот и нет

Anatoly Podgoretsky (2006-12-07 23:08:00) [19]
> serko (07.12.2006 22:13:00) [0]

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

1.01.2006 + 1.01.2006 = 2.02.4012

Palladin (2006-12-07 22:54:00) [20]
Все это и многое другое вы можете узнать в справке!
Справка! Решенье всех проблем!

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

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

Наверх

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