[[eduarcol]]

Código Delphi [-]
var
   nAyo, nMes, nDia: word;
begin
   DecodeDate(StrtoDate(cFecha), nAyo, nMes, nDia);
   //En la variable nMes tienes el numero del mes, partiendo que cFecha sea valido
end;