 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Интервал дат 
| Гость_lamer |
|
|||
|
Unregistered |
 Господа Подскажите как найти интервал дат!!!!!!!!!! Пользовался DaysBetween(dat1,dat2)dat1 - системная дата dat2 - дата создания файла Если эти две даты принадлежат одному месяцу то все OK. Иначе полная чушь. Например Дата Создания файла 20.04.2004 После DaysBetween вывожу дату создания файла. Результат 20.04.1900 Как это можно победить и добиться точной разницы между датой создания файла и системной датой |
|||
|
||||
Дата 23.8.2004, 11:34 (
Загрузка ...
| eldorado |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 33 Регистрация: 2.7.2004 Репутация: нет Всего: нет |
Такое результат получился, потому что "нулевой" датой в Делфях считается 31.12.1899. Т.е. между двумя датами прошло столько же дней, сколько с 31.12.1899 до 20.04.1900. Попробуй взять целую часть от этого числа - это и будет количество дней.
|
|||
|
||||
| gemoglobin |
|
|||
|
Шустрый  Профиль Группа: Участник Сообщений: 56 Регистрация: 8.7.2004 Репутация: нет Всего: нет |
и еще
даты в делфях хранятся как double поэтому разницу между двумя датами можно найти простым вичитанием |
|||
|
||||
| Гость_Lamer |
|
|||
|
Unregistered |
Попробывал взять челую часть от разницы дат
Написал следующее Deltam:=DaysBetween(Sdate,Fdate); Deltam := Trunc(Deltam); у файла дата 20.04.2004 Вывел дату файла после DaysBetween Вот результат 20.04.1900 |
|||
|
||||
| gemoglobin |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 56 Регистрация: 8.7.2004 Репутация: нет Всего: нет |
разница будет целым числом - количество дней (не TDate)
|
|||
|
||||
| eldorado |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 33 Регистрация: 2.7.2004 Репутация: нет Всего: нет |
Насчёт взятия целого я попутал, у тебя же TDate, а не TDateTime. А разница Deltam, конечно же, должна быть не TDate, а целого типа.
|
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0421 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |