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