Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с TDate, Вычесть из даты 1 день 
:(
    Опции темы
Vovanich222
Дата 21.12.2009, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.12.2009

Репутация: нет
Всего: нет
Кто-нибудь может мне помочь по TDate?

Отнимаю от TDate ('21.12.2009') дату преобразованную StrToDate('01.00.0000') и выскакивает ошибка конвертации.
Может я неправильно задаю текстовый формат, но я уже по разному пробовал. Или есть какая то спец. функция для подобных нужд? Подскажите пожалуйста! smile

Добавлено через 1 минуту и 35 секунд
Т.е. вкратце, мне надо узнать предыдущий день заданной даты в формате TDate.
PM MAIL   Вверх
amsoft
Дата 21.12.2009, 13:31 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 3
Всего: 4
От даты в формате TDate (TDateTime) отними 1, вот и получишь дату предыдущего дня
--------------------
"Кто бы ты ни был - не думай о себе слишком"Дельфин
PM   Вверх
Snowy
Дата 21.12.2009, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
TDate - число.
Просто отними еденицу, без всяких преобразований.
PM MAIL   Вверх
amsoft
Дата 21.12.2009, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 3
Всего: 4
Цитата(Vovanich222 @  21.12.2009,  16:17 Найти цитируемый пост)
выскакивает ошибка конвертации


ЗЫ ошибка выскакивает, так как значение месяца должно быть в пределах [1..12]


Это сообщение отредактировал(а) amsoft - 21.12.2009, 18:44
--------------------
"Кто бы ты ни был - не думай о себе слишком"Дельфин
PM   Вверх
SlaUr
Дата 21.12.2009, 13:46 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5
Может так попробовать
Код

var  DateTime:TDateTime;
DateTime:=Time;//сегодняшняя
DateTime:=DateTime-StrToTime('23:59:59')//вчерашняя

Погрешностью в 1 сек можно пренебречь
PM MAIL   Вверх
Snowy
Дата 21.12.2009, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(SlaUr @  21.12.2009,  13:46 Найти цитируемый пост)
Может так попробовать
Бред. StrToTime('23:59:59') = 0.9999...
Код
  DateTime := Now - 1; // вчера
  DateTime := Now - 7; // неделю назад
  DateTime := Now + 14; // Через 2 недели
PM MAIL   Вверх
Vovanich222
Дата 21.12.2009, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.12.2009

Репутация: нет
Всего: нет
Чё, серьёзно?! Блин, прийду домой, попробую! Ну я и тупой, однако! Огромное спасибо! Но если не поможет, I be back(или как там терминаторе?). smile 
PM MAIL   Вверх
SlaUr
Дата 21.12.2009, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5
Я просто извратился и не знал что в datetime 1 это один день
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0719 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.