Вернуться   Форум Рубцовска > Городской Интернет > Программирование > Pascal/Delphi
+1°Давление 742
Влажность 52%
Ветер 4 м/с С-В
Комфорт -3°

Ответ
 
Опции темы Опции просмотра
  #1  
Старый 04.09.2014, 12:11
sacred sacred вне форума
Прапорщик
 
Регистрация: 20.08.2012
Сообщений: 310
Спасибо: 26
По умолчанию Нужна помощь

Помощь заключается в следующем, нужно из текущей даты системы отнять одни сутки. Все это нужно в Delphi
Ответить с цитированием
  #2  
Старый 04.09.2014, 13:52
Аватар для mongol
mongol mongol вне форума
Маршал
 
Регистрация: 22.02.2013
Адрес: Москва
Сообщений: 9,942
Спасибо: 2,095
По умолчанию

Цитата:
Сообщение от sacred Посмотреть сообщение
Помощь заключается в следующем, нужно из текущей даты системы отнять одни сутки. Все это нужно в Delphi
переводи текущую дату в секунды (timestamp) и отнимай значение 60*60*24 полученные timestamp конвертируй обратно в дату. точно также получают любые смещения в число дней. например, дату через 5 дней, или дату 34 дня назад.
__________________
https://uecalc.com
https://uecalc.com/game

Не общаюсь: с глупцами, неадекватами, политически ангажированными зомби, и т.д.
Не отвечаю на реплики: хамов, грубиянов и неадекватов.
Ответить с цитированием
Этот пользователь поблагодарил mongol(а) за это полезное сообщение:
sacred (04.09.2014)
  #3  
Старый 04.09.2014, 14:01
Аватар для Hex
Hex Hex вне форума
Подполковник
 
Регистрация: 24.08.2006
Адрес: Новосибирск
Сообщений: 3,571
Спасибо: 3,698
По умолчанию

можно так: в одну строковую переменную считал первые два символа даты, в другую переменную считал все оставшееся. перевел в цифру StrToInt, отнял один, перевел снова в строку IntToStr, склеил получившееся со значением второй переменной.
все манипуляции можно записать в одну-две строки кода.
__________________
В человеческой натуре заложено доверять, особенно когда просьба кажется обоснованной. (K.Mitnick)

Религия это, прежде всего, технология вербальной интоксикации, когда перегрузка коммуникационных каналов повторяющейся информацией (псалмы, мантры, сутры) приводит к эйфории и сужению сознания.

"Есть 5-7 дорог по которым можно ездить" © hjj

Ответить с цитированием
Этот пользователь поблагодарил Hex(а) за это полезное сообщение:
sacred (04.09.2014)
  #4  
Старый 04.09.2014, 14:07
sacred sacred вне форума
Прапорщик
 
Регистрация: 20.08.2012
Сообщений: 310
Спасибо: 26
По умолчанию

var
date1:string;
begin
date1 :=DateToStr(SysUtils.Date); //ïîëó÷àåì äàòó èç ñèñòåìû
date1 :=IncDay(date1, -1); // ïîëó÷àåì äàòó - 1 äåíü
end;
Ответить с цитированием
  #5  
Старый 04.09.2014, 14:12
Аватар для mongol
mongol mongol вне форума
Маршал
 
Регистрация: 22.02.2013
Адрес: Москва
Сообщений: 9,942
Спасибо: 2,095
По умолчанию

Цитата:
Сообщение от Hex Посмотреть сообщение
можно так: в одну строковую переменную считал первые два символа даты, в другую переменную считал все оставшееся. перевел в цифру StrToInt, отнял один, перевел снова в строку IntToStr, склеил получившееся со значением второй переменной.
все манипуляции можно записать в одну-две строки кода.
так делать нельзя. например 01.01.15 ты какое число получишь? 00.01.15 или скажем 01.05.14 - 1 день, что получим?
__________________
https://uecalc.com
https://uecalc.com/game

Не общаюсь: с глупцами, неадекватами, политически ангажированными зомби, и т.д.
Не отвечаю на реплики: хамов, грубиянов и неадекватов.
Ответить с цитированием
  #6  
Старый 04.09.2014, 14:41
Аватар для Hex
Hex Hex вне форума
Подполковник
 
Регистрация: 24.08.2006
Адрес: Новосибирск
Сообщений: 3,571
Спасибо: 3,698
По умолчанию

Цитата:
Сообщение от mongol Посмотреть сообщение
так делать нельзя. например 01.01.15 ты какое число получишь? 00.01.15 или скажем 01.05.14 - 1 день, что получим?
проверки никто не отменял.
__________________
В человеческой натуре заложено доверять, особенно когда просьба кажется обоснованной. (K.Mitnick)

Религия это, прежде всего, технология вербальной интоксикации, когда перегрузка коммуникационных каналов повторяющейся информацией (псалмы, мантры, сутры) приводит к эйфории и сужению сознания.

"Есть 5-7 дорог по которым можно ездить" © hjj

Ответить с цитированием
  #7  
Старый 04.09.2014, 14:58
Аватар для mongol
mongol mongol вне форума
Маршал
 
Регистрация: 22.02.2013
Адрес: Москва
Сообщений: 9,942
Спасибо: 2,095
По умолчанию

Цитата:
Сообщение от Hex Посмотреть сообщение
проверки никто не отменял.
зачем делать проверки (то есть писать сложный код) когда можно просто вычитать timestamp и потом конвертировать в дату? код становиться проще и опрятнее.
__________________
https://uecalc.com
https://uecalc.com/game

Не общаюсь: с глупцами, неадекватами, политически ангажированными зомби, и т.д.
Не отвечаю на реплики: хамов, грубиянов и неадекватов.
Ответить с цитированием
Этот пользователь поблагодарил mongol(а) за это полезное сообщение:
Копатель (04.09.2014)
  #8  
Старый 04.09.2014, 15:47
Fiast Fiast вне форума
Майор
 
Регистрация: 13.03.2006
Адрес: 51.490819, 81.215267
Сообщений: 2,342
Спасибо: 1,546
По умолчанию

Открой хелп по модулю dateutils.
Там есть готовая функция
http://www.delphisources.ru/pages/fa...ncDay.php.html
__________________
dura lex sed lex...
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +7, время: 02:52.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot