Nombre del mes
 

Hay alguna funcion a la que le pases un numero y te devuelva el nombre del mes?? algo asi como

FormatDateTime('mmmm', Date)

Saludos!

Esto te resuelve el problema
 

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

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. :)

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

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

Saludos. :)

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

Mas corta
 

Versión más corta

ai_num_mes = 12

ls_nom_mes=mid(" Apertura Enero Febrero Marzo Abril Mayo Junio Julio AgostoSetiembre OctubreNoviembreDiciembre Cierre", ai_num_mes*9+1, 9)

Retorno: ls_nom_mes = "Diciembre"

MID es como el SUBSTR: extrae parte de la cadena

Saludos

Fredy