NthDayOfWeek
计算并返回指定日期是该月第几周
Unit:
DateUtils
function NthDayOfWeek(const AValue: TDateTime): Word;
Example:
Uses SysUtils,DateUtils;
Begin
Write('Today is the ',NthDayOfWeek(Today),'-th ');
Writeln(formatdateTime('dddd',Today),' of the month.');
End.
