Numero de Semana y Numero de Mes

[nefore]

Hola muchas gracias por tu tiempo.

Si esas son justamente las que estan en la unidad DateUtils, pero el problema es que no me deja tomar variables tipo fecha, solo constantes
Aca te dejo un ejemplo del DateUtils

Código Delphi [-]
function DaysInAMonth(const AYear, AMonth: Word): Word;
begin
  Result := MonthDays[(AMonth = 2) and IsLeapYear(AYear), AMonth];
end;

Nose como hacer para que me tome variables