' Return a date in a medium format ' expD1 Date ' expN1 Language Public Function DateMedium(ByVal tdDate As Date, Optional ByVal tnLanguage As Integer = 1) As String Dim lcDate As String = "" Dim lcMonth As String = "" Dim lnDay As Integer = 0 Dim lnLanguage As Integer = 0 Dim lnMonth As Integer = 0 Dim lnYear As Integer = 0 lnDay = tdDate.Day lnMonth = tdDate.Month lnYear = tdDate.Year lcMonth = oApp.aMonth(lnMonth, lnLanguage) lcDate = lnDay.ToString.PadLeft(2, "0") + "-" + Mid(lcMonth, 1, 3) + "-" + Trim(lnYear.ToString) Return lcDate End FunctionYou simply need to create an array of each month in their three letter format. The second column of the array is for the language.