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
.