I am using an MsFlexGrid to display data from an Access 2000 database using ADO code, not an ADO control. A date field will always diaplay in the mm/dd/yyyy format. The fields is formatted in Access as dd/mm/yyyy and I would like it to retain this format in the grid.

The only way I have found to get the dd/mm/yyyy format, is to use the Format function and then format the date using "mm/dd/yyyy" as the format string??

If the FlexGrid is bound to an ADO data control, the data displays OK, using the formatting from the Access table definition. However, I need to use code rather than the ADO data control.

Can anyone please let me know if there is a simpler (or better) way to display dates with the dd/mm/yyyy format in a FlexGrid control?

Karen.

I think there is no simplier way to do it.
Maybe other has an idea...

Pheap

Hi,

Whatever case maybe you can try the following:

If you want to convert a date into DD/MM/YYYY format:

Public Function DDMMYYYY(byVal MyDate)
'This Function Takes Any Valid Date And Returns DD/MM/YYYY

    Dim MyDay
    Dim MyMonth
    Dim MyYear
    Dim MyDay2
    Dim month2

    If IsDate(MyDate) Then
        MyDay = Day(MyDate): MyMonth = Month(MyDate): MyYear = Year(MyDate)
        If Len(MyDay) = 1 Then
            MyDay2 = "0" + CStr(MyDay)
        Else
            MyDay2 = CStr(MyDay)
        End If
        If Len(MyMonth) = 1 Then
            month2 = "0" + CStr(MyMonth)
        Else
            month2 = CStr(MyMonth)
        End If
        DDMMYYYY = MyDay2 + "/" + month2 + "/" + CStr(MyYear)
    End If
End Function

If you want to convert a date into MM/DD/YY format:

Public Function MMDDYY(ByVal MyDate)
'This Function Takes DD/MM/YYYY And Returns MM/DD/YY
    Dim MyDay
    Dim MyMonth
    Dim MyYear
    Dim length
    Dim position1 As Integer
    Dim position2 As Integer
    If IsDate(MyDate) Then
        length = Len(MyDate)
        position1 = InStr(CInt(1), MyDate, "/")
        position2 = InStr(position1 + 1, MyDate, "/")
        MyDay = Left(MyDate, position1 - 1)
        MyMonth = Mid(MyDate, position1 + 1, (position2 - position1 - 1))
        MyYear = Right(MyDate, 2)
        MMDDYY = MyMonth + "/" + MyDay + "/" + MyYear
    End If
End Function

Hope this helps,

Lalit
Life Means More...;)

Another routine that i use is

Public Function FormatDate(ByVal dDateField As Date, ByVal sFormatField As String) As String
FormatDate = Format(dDateField, sFormatField)
End Function

eg myDate = FormatDate(varDate,"mm/dd/yyyy")

HTH

Byron

hi there..

why use a function when you have the format to do it???

what's your problem with format????

HTH

Gonzalo