Nombre del mes

[fporcel]

Esta función muy simple, solo tienes que adptarla a la herramienta de desarrollo o Base de Datos que uses:

/////////////////////////////////////////////////////////////////////////
// Funtion: f_nom_mes
// Creada originalmente en Clipper y adaptada a Power Builder
// Argumentos:
// ai_num_mes número de mes (0 al 13 con, apertura y cierre)
// ai_lmes longitud de respuesta:
// Cuando es 3 DIC, o
// cuando es 9 DICIEMBRE
// Returns: String
// Descripción: Retorna el nombre del mes
////////////////////////////////////////////////////////////////////////
String ls_nom_mes, ls_nmeses
If ai_lmes =3 Then
ls_nmeses="APEENEFEBMARABRMAYJUNJULAGOSETOCTNOVDICCIE"
Else
ls_nmeses=" Apertura Enero Febrero Marzo Abril Mayo Junio Julio AgostoSetiembre OctubreNoviembreDiciembre Cierre"
End if
ls_nom_mes=mid(ls_nmeses,ai_num_mes*ai_lmes+1,ai_lmes)
Return ls_nom_mes

[ecfisa]

Hola NuncaMas.

No conozco ninguna función predefinida en Delphi que haga eso,
quizá no la hayan incorporado por la simplicidad de la confección
del código...

Código Delphi [-]
function NombreMes(mes: Integer): string;
const
  MESES: array[1..12] of string = ('enero','febrero','marzo','abril','mayo',
        'junio','julio','agosto','septiembre','octubre','noviembre','diciembre');
begin
  Result:= MESES[mes];
end;

Saludos.

[[Caral]]

Hola
Lo malo de vosotros los maestros es que pensais que con la mitad del dato ya tenemos nosotros los novatos.
Me parece muy bien para hacernos pensar, pero, sabremos como implementar una funcion?.
Bueno, aqui una manera de implementacion, para aquellos que como yo estamos empezando en esto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(NombreMes(StrToInt(Edit1.Text)));
end;

Saludos

[ecfisa]

Empezado por Caral

Hola
Lo malo de vosotros los maestros es que pensais que con la mitad del dato ya tenemos nosotros los novatos.
Me parece muy bien para hacernos pensar, pero, sabremos como implementar una funcion?.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(NombreMes(StrToInt(Edit1.Text)));
end;

¿Ves que no soy el único que les dá todo echo ?

Saludos.

[Casimiro Noteví]

huy, huy, huy... eso no vale, así cualquiera