Numero de Semana y Numero de Mes

[nefore]

Hola me podrían ayudar con algunos cálculos de fechas?

Tengo una variable de tipo Fecha, a la cual quisiera calcularle a que número de mes pertenece y que número de semana pertenece, intente con las que están en la unidad DateUtils, pero me tira error pues las funciones tienen como parámetros constantes y no variables.

Muchas gracias por su atencion

[Casimiro Notevi]

http://www.delphibasics.co.uk/ByUnit.asp?Unit=DateUtils

[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

[Casimiro Notevi]

No entiendo lo que preguntas

Por cierto, recuerda poner los tags al código fuente, ejemplo:



Gracias

[nefore]

Ah Disculpa el tag, ehm o sea esas funciones, me tiran error si paso como parametro una variable de tipo TDateTime. Lo que necesito es alguna funcion que acepte variables del tipo mencionado y que calcule el numero de semana de un mes y el numero de mes del año de acuerdo a una fecha que yo ingrese

[Casimiro Notevi]

En el enlace que te he pasado vienen ejemplos:

En este caso devuelve el número del mes:

Código Delphi [-]
var
  myDate : TDateTime;
begin
  myDate := EncodeDate(2002, 10, 29);
  ShowMessage('The month of the year  = '+
              IntToStr(MonthOfTheYear(myDate)));
 end;

En cuanto al número de semana de un mes, ¿será semana del año, no?