Sacar mes

[Casimiro Noteví]

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 Noteví]

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

DecodeDate(dFecha,iA,iM,iD);