Sacar mes

[sizne]

Hola, alguien podria decirme por favor, como puedo sacar solo el mes de una fecha, si:
fecha:TDateTime
DayOfTheWeek (fecha); <---para sacar el dia.

Quiero una sentencia similar pero para sacar el mes.
Ejemplo: 05/11/2010
Necesito : 11 // osea el mes noviembre

Graacias!

[rgstuamigo]

Empezado por sizne

Hola, alguien podria decirme por favor, como puedo sacar solo el mes de una fecha, si:
fecha:TDateTime
DayOfTheWeek (fecha); <---para sacar el dia.

Quiero una sentencia similar pero para sacar el mes.
Ejemplo: 05/11/2010
Necesito : 11 // osea el mes noviembre

Graacias!

Puedes utilizar los procedimientos "DecodeDate" o "DecodeDateTime" para separar dia, mes y año en variables independientes..
Si tienes dudas has una busqueda con tales palabras y encontraras miles de referencias por ejemplo ésta.
Saludos...

[Casimiro Notevi]

No recuerdo una función de delphi, pero como dice rgstuamigo, puedes usar decodedate, o crearte una función más o menos así:

function getDiaMesAno( cQue:char; dFecha:TDateTime ):integer;
var
  iD, iM, iA : Word;
  cT : Char;
begin
  Result :=0;
  DecodeDate(dFecha,iD,iM,iA);
  cT := UpCase(cQue);
  if      cT='D' then result := integer(iD)
  else if cT='M' then result := integer(iM)
  else if cT='A' then result := integer(iA);
end;

Cuando necesites obtener el mes:

iMes := getDiaMesAno('M',fecha);

[Lord Delfos]

El mes se puede obtener con la función MonthOf, de la unidad DateUtils. Sin embargo, creo que está a partir de Delphi 7. Si no vas a tener que hacer lo que ya te han apuntado.

Saludos.

[sizne]

Hola!

Gracias a todos!!!

Saludos!

[Casimiro Notevi]

Me he equivocado en el orden de los parámetros en DecodeDate, es

DecodeDate(dFecha,iA,iM,iD);