DayOfYear: Integer;
Свойство DayOfYear возвращает номер дня текущей переменной, начиная с начала года.
Sub UserProc;
Var
DT: DateTime;
i: Integer;
Begin
DT := DateTime.Now;
i := DT.DayOfYear;
End Sub UserProc;
После выполнения примера в переменной «i» будет содержаться номер дня в текущем году.
См. также: