Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Преобразовать Римские символы в Арабские и наоборот
Категория: Текст и строки
Категория: Текст и строки
Компоненты TrackBar и ScrollBar
Категория: Компоненты
Категория: Компоненты
Узнать все IP-адреса компьютера
Категория: Интернет и Сети
Категория: Интернет и Сети
Вызов контекстного меню в позиции курсора
Категория: Компоненты
Категория: Компоненты
Как нарисовать календарь
Категория: Текст и строки
Категория: Текст и строки
Получить версию программы VersionInfo
Категория: Приложение
Категория: Приложение
Подсветить часть текста в DBGrid
Категория: Компоненты
Категория: Компоненты
Дата изменения файла
Категория: Файловая система
Категория: Файловая система
Сохранить документ Word как RTF на DELPHI
Категория: Файловая система
Категория: Файловая система
Как получить список устройств, подключённых к компьютеру
Категория: Файловая система
Категория: Файловая система
Delphi - Справочник: IncMinute
IncMinute
|
function IncMinute ( const StartDateTime : TDateTime {; NumberOfMinutes : Integer = 1} ) : TDateTime; |
Функция (Unit DateUtils)
|
Приращивает переменную типа TDateTime на + или - число минут.
|
Описание:
|
Функция IncMinute возвращает значение TDateTime, которое на NumberOfMinutes минут больше, чем переданное значение StartDateTime. Год, месяц, день и значения часа увеличиваются соответствующе. Значение приращения является произвольным (по умолчанию 1). |
Пример кода: Простой пример приращения и декремента
|
var myDate : TDateTime; begin // Устанавливаем нашу дату как раз перед концом 2000 года myDate := EncodeDateTime(2000, 12, 31, 23, 0, 0, 0); ShowMessage('myDate = '+DateTimeToStr(myDate)); // Добавляем 100 минут к этой дате myDate := IncMinute(myDate, 100); ShowMessage('myDate + 100 минут = '+DateTimeToStr(myDate)); // Вычитаем 40 минут из этой даты myDate := IncMinute(myDate, -40); ShowMessage('myDate - 40 минут = '+DateTimeToStr(myDate)); end;
Результат:
|
myDate = 31/12/2000 23:00:00 myDate + 100 минут = 01/01/2001 00:40:00 myDate - 40 минут = 01/01/2001 |
Примечание:
|
Функции DecMinute нет. Вместо этого, используйте IncMinute с отрицательным приращением. |