delphi中计算指定日期是该月第几周的函数

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.