FUNCTION MonthName

Devuelve una cadena que indica el mes especificado.

---

// Regresa el nombre de un mes, en el idioma que se tenga configurada la aplicación.
// SetInternational( #CLIPPER) 
// SetNatDLL("Spanish.dll")      

Function MonthName(uValue, Abreviado) as String        
 // Parametros (numero_de_mes|Fecha,valor_Logico (Opcional))  
 // Ejemplos:  
 //? MonthName(1)           *Regresa Enero  
 //? MonthName(today())     *Regresa el mes en curso  
 //? MonthName("01/01/2019" *Regresa Enero  
 //? MonthName(4,True)      *Regresa Abr  

 Local cResultado := "" as String       
 Local dwMes as Dword    
 Local wType as String   
 Default(@Abreviado,False)  
 wType := ValType(uValue)   
 
 Do Case  
 Case wType == "C"  
  If IsDate(CToD(uValue))  
   dwMes := Month(CToD(uValue))   
  Endif    
 Case wType == "N"    
  dwMes := uValue
 Case wType == "D"   
  dwMes := Month(uValue)  
 End Case  
 
 If Between(dwMes,1,12)  
  If !Abreviado  
   cResultado := Proper(NToCMonth(dwMes) )
  Else                              
   cResultado := Proper(Left(NToCMonth(dwMes),3))         
  Endif   
 Endif  
 
 Return cResultado