Kopiere den Code in ein STANDARDMODUL (ggf neu erstellen). Usage (z.B.): =Mois(F14)
Public Function Mois(dat As Date) As String
Dim mon, monat, tag, jahr
mon = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
monat = Month(dat): tag = Day(dat): jahr = Year(dat)
Mois = tag & ". " & mon(monat) & " " & jahr
End Function
|