Return the Name of the Current Language module in USE
REQUEST HB_LANG_PT REQUEST HB_LANG_RO REQUEST HB_LANG_ES FUNCTION MAIN() HB_LANGSELECT('PT') // Default language is now Portuguese ? CDOW(DATE()) //Segunda-feira ? 'Current language is ",HB_LANGNAME() //Portuguese ? 'Old language id selected is ",HB_LANGSELECT() // PT HB_LANGSELECT('RO') // Default language is now Romanian ? CMONTH(DATE()) // Mai ? 'Old language id selected is ",HB_LANGSELECT() // RO HB_LANGSELECT('ES') // Default language is now Romanian ? 'Current language is ",HB_LANGNAME() //Spanish ? CMONTH(DATE()) // Mayo ? CDOW(DATE()) // Lunes Tests See tests/langapi.prg