Delphi-Help

Главная Статьи Дата и Время Узнаем номер квартала

Узнаем номер квартала

Оцените материал
(0 голосов)


Узнаем номер квартала

Uses
      DateUtils;

На форму кидаем кнопку и DateTimePicker. Или вместо него узнаем текущую дату: Now.

Узнаём:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=floattostr((int((MonthOfTheYear(DateTimePicker1.Date) - 1) / 3)) + 1);
end;

MonthOfTheYear - Функция MonthOfTheYear возвращает индексный номер для месяца года для значения TDateTime.

Прочитано 7408 раз
Другие материалы в этой категории: Как узнать номер недели данного дня в году? »

Авторизация



Счетчики