RETURN GETWORDNUM("Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober,November,Dezember", MONTH(tdDate), [,])>a shorter version
>FUNCTION cmonthg >* Gibt den Monatsnamen auf Deutsch zurück >* Aufruf durch cMonthG(DATE()) >LPARAMETERS tdDate >LOCAL laMoName[12] >IF EMPTY(tdDate) > tdDate=DATE() >ENDIF >ALINES(laMoName, "Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober,November,Dezember", .T., ",") >RETURN laMoName[MONTH(tdDate)] >