Buscar por:

Função que retorna o mês

Código

{... Criado por Ricardo de Oliveira Santos ...}

function DescricaoMes(data: String): String;

var

    Dia, Mes, Ano : Word;

    Dias_de_Semana: array[1..12] of  String ;

begin

    if data <> '' then

    begin

      Dias_de_Semana[1] := 'Janeiro';

      Dias_de_Semana[2] := 'Fevereiro';

      Dias_de_Semana[3] := 'Março';

      Dias_de_Semana[4] := 'Abril';

      Dias_de_Semana[5] := 'Maio';

      Dias_de_Semana[6] := 'Junho';

      Dias_de_Semana[7] := 'Julho';

      Dias_de_Semana[8] := 'Agosto';

      Dias_de_Semana[9] := 'Setembro';

      Dias_de_Semana[10] := 'Outubro';

      Dias_de_Semana[11] := 'Novembro';

      Dias_de_Semana[12] := 'Dezembro';

      DecodeDate(StrToDateTime(data),Ano,Mes,Dia);

      DescricaoMes := Dias_de_Semana[Mes];

    end

    else

      DescricaoMes := '';

end;