Datumfråga

4 svar · 182 visningar · startad av Ceeron 26 feb. 2003

CeeronMedlem sedan aug. 2000378 inlägg

Frågan26 feb. 2003 15:31#1

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?

SebbeMedlem sedan jan. 20032 285 inlägg

26 feb. 2003 15:50#2

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.

CeeronMedlem sedan aug. 2000378 inlägg

26 feb. 2003 16:01#3

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å?

CeeronMedlem sedan aug. 2000378 inlägg

26 feb. 2003 16:02#4

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

seg i huvet bara ibland =)

icaaqMedlem sedan okt. 20005 273 inlägg

26 feb. 2003 16:06#5

[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