' Return a date in a universal format ' expD1 Date Public Shared Function DateTest(ByVal tdDate As Date) As String Dim lcDate As String Dim lnDay As Integer Dim lnMonth As Integer Dim lnYear As Integer Dim lcMonth As String lcDate = "" lnDay = tdDate.Day lnMonth = tdDate.Month lnYear = tdDate.Year lcMonth = "" Select Case lnMonth Case 1 lcMonth = "January" Case 2 lcMonth = "February" Case 3 lcMonth = "March" Case 4 lcMonth = "April" Case 5 lcMonth = "May" Case 6 lcMonth = "June" Case 7 lcMonth = "July" Case 8 lcMonth = "August" Case 9 lcMonth = "September" Case 10 lcMonth = "October" Case 11 lcMonth = "November" Case 12 lcMonth = "December" End Select lcDate = lcDate + lnDay.ToString.PadLeft(2, "0") + "-" + Mid(lcMonth, 1, 3) + "-" + Trim(lnYear.ToString) Return lcDate End Function