Функция CurrentYear в Delphi

Используемый модуль: SysUtils

Описание:

Возвращает полное обозначение (четыре цифры) текущего года.

Синтаксис:

CurrentYear: Word;

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

uses SysUtils;
...
Var
  Res: Integer;
begin
  Res:= CurrentYear;
  ShowMessage('Сейчас - ' + IntToStr(Res) + ' год');
end;

Результат:

Функция CurrentYearCurrentYear в Delphi

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (14 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий