Ændre tidsangivelse til 24 timer ??

Jeg vil gerne vise tidsangivelsen i 24 timer hvodden gør jeg det ??

Function FormatTimestampDB(dTimestampToFormat)
    ' Formats to "d/m/yyyy hh:mm:ss" format
    ' Change as appropriate to match your DB
    Dim strDay, strMonth, strYear
    Dim strHour, strMinute, strSecond

    strDay = Day(dTimestampToFormat)
    strMonth = Month(dTimestampToFormat)
    strYear = Year(dTimestampToFormat)
    strHour = Hour(dTimestampToFormat)
    strMinute = Minute(dTimestampToFormat)
    strSecond = Second(dTimestampToFormat)

    FormatTimeStampDB = strDay & "/" & strMonth & "/" & strYear & " " & strHour & ":" & strMinute & ":" & strSecond
End Function

Dette skulle gøre det... :-)

Lukker spørgsmål