Главная » Статьи по Delphi » Дата и время » Получить вчерашнюю / завтрашнюю дату

Получить вчерашнюю / завтрашнюю дату

Автор: Валерий Ходоунский

В секцию uses нужно добавить модуль DateUtils. В нём есть две функции типа TDateTime - Yesterday (возвращает вчерашнюю дату) и Tomorrow (возвращает завтрашнюю дату).

Пример использования:

Добавьте на форму TMemo и TButton. Пишем в обработчике OnClick TButton'а:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Clear;
 Memo1.Lines.Add('Вчерашняя дата: '+DateToStr(Yesterday));
 Memo1.Lines.Add('Сегодняшняя дата: '+DateToStr(Date));
 Memo1.Lines.Add('Завтрашняя дата: '+DateToStr(Tomorrow));
end;

• Простота конструкции парника из сотового поликарбоната не вызовет сложностей при монтаже.

  2dum.ru

Просмотров: 2946

Обсудить на форуме

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008-2012 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга