Datumfråga

Jag har ett datum i min db som jag hämtar o formaterar lite fint:

& FormatDateTime(rs("datum"), vbLongDate) & " klockan " & FormatDateTime(rs("datum"), 4)

dock så e det inte i alla fall som tiden finns med i datumet och då gör vb tiden som 00:00 automatisk... detta vill jag inte....

Hur kan man kolla om tiden existerar i datumet?

If InStr(FormatDateTime(rs("datum"), 4), ":") <> 0 Then
'Tiden finns
Else
'Tiden finns inte
End If

Jag vet inte om detta funkar, har aldrig testat FormatDateTime.

verkar som Access har det osynligt i sig ex. 2003-02-26 00:00:00 även fast det bara står 2003-02-26...
hur går man vidare då?

edit fixade det... byta ut : mot 00:00

seg i huvet bara ibland =)

[red]
Function CheckDate(dteDate)
     If InStr(FormatDateTime(dteDate), 4) "00:00:00") Then
           CheckDate = FormatDateTime(dteDate, vbLongDate)
     Else
            CheckDate = FormatDateTime(dteDate, vbLongDate) & " klockan " & FormatDateTime(dteDate, 4)
     End If
End Function[/red]

mvh icaaq