Converter mês Em Inteiro

[Guest Rick Lorente]

como faço para transformar minha variavél que recebe o mês em inteiro??

mês:=formatdatetime('n',now);

[Guest --Jonas --]

Este exemplo usa um botão e dois Labels em um form. Quando o usuário clica no botao são informados, a data atual e tempo nas legendas dos dois rótulos (labels).

procedure TForm1.Button1Click(Sender: TObject);  
  
var  
  DataAtual: TDateTime;  
  Ano, mês, Dia, Hour, Min, Sec, MSec: Word;  
 begin  
     DataAtual:= Now;  

     DecodeDate(DataAtual, Ano, mês, Dia);  
  
     Label1.Caption := 'Hoje é dia ' + IntToStr(Dia) + ' do mês '  
                                + IntToStr(mês) + ' do ano ' + IntToStr(Ano); 

     DecodeTime(Present, Hour, Min, Sec, MSec);  
  
     Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '  
    + IntToStr(Hour);  
end;

[Micheus]

como faço para transformar minha variavél que recebe o mês em inteiro??

mês:=formatdatetime('n',now);

ou, a partir do D7, incluindo a unit DateUtils na cláusula uses do seu form:

mês := MonthOf(now);