Function TRSGetLocaleShortDate()

    Select Case LCase(CStr(CDate("2000/12/31")))
        Case "12/31/2000"
            TRSGetLocaleShortDate = "mm/dd/yyyy"
        Case "12/31/00"
            TRSGetLocaleShortDate = "mm/dd/yy"
            
        Case "2000/12/31"
            TRSGetLocaleShortDate = "yyyy/mm/dd"
        Case "2000-12-31"
            TRSGetLocaleShortDate = "yyyy-mm-dd"
        Case "2000.12.31"
            TRSGetLocaleShortDate = "yyyy.mm.dd"

        Case "31/12/2000"
            TRSGetLocaleShortDate = "dd/mm/yyyy"
        Case "31-12-2000"
            TRSGetLocaleShortDate = "dd-mm-yyyy"
        Case "31.12.2000"
            TRSGetLocaleShortDate = "dd.mm.yyyy"

        Case "31/dec/2000"
            TRSGetLocaleShortDate = "dd/mmm/yyyy"
        Case "31-dec-2000"
            TRSGetLocaleShortDate = "dd-mmm-yyyy"
        Case "31.dec.2000"
            TRSGetLocaleShortDate = "dd.mmm.yyyy"

        Case Else
            TRSGetLocaleShortDate = ""
    End Select

End Function

Function ConvertToYYYYMMDD(sDateInput)
    If IsDate(sDateInput) Then
        ConvertToYYYYMMDD = CStr(DatePart("yyyy", sDateInput)) & "-" & Right("00" & CStr(DatePart("m", sDateInput)), 2) & "-" & Right("00" & CStr(Datepart("d", sDateInput)), 2)
    Else
        ConvertToYYYYMMDD = sDateInput
    End If
End Function

Function ConvertToShortDateFormat(sDateInput)
    If IsDate(sDateInput) Then
        ConvertToShortDateFormat = CDate(sDateInput)
    Else
        ConvertToShortDateFormat = sDateInput
    End If
End Function