Función que devuelve el nombre del mes (en texto) según el número al que corresponda:

function pMes (mes : integer) : string;
begin
  case mes of
    1 : result := 'Enero';
    2 : result := 'Febrero';
    3 : result := 'Marzo';
    4 : result := 'Abril';
    5 : result := 'Mayo';
    6 : result := 'Junio';
    7 : result := 'Julio';
    8 : result := 'Agosto';
    9 : result := 'Septiembre';
    10 : result := 'Octubre';
    11 : result := 'Noviembre';
    12 : result := 'Diciembre';
  end;
end;

Publicado el: 2005-07-26