Problem displaying date and time correctly..

[Pelle]

I have a problem when I want to display a date with hours, minutes, seconds.

This is the way it looks now.
2005-7-16 12:14:6

but it should be 2005-07-16 12:14:06 instead.

How can I get the code to add a zero every time any of the numbers (month, date, hour, minute, second) is smaller than 10?

I use this code to display everything when the date is retrieved from my db.

<%=Year(rs("reg_date"))%>-<%=Month(rs("reg_date"))%>-<%=Day(rs("reg_date"))%>&nbsp;&nbsp;<%=hour(rs("reg_date"))%>:<%=minute(rs("reg_date"))%>:<%=second(rs("reg_date"))%>

[buntine]

This is a common problem associated with dates. I usually write a small function to prefix a zero to the date/time part if necessary.

Public Function PrefixZero(p_strDatePart)
    If Not IsNumeric(p_strDatePart) Then PrefixZero = p_strDatePart: Exit Function
    
    If CInt(p_strDatePart) < 10 Then
        PrefixZero = "0" & p_strDatePart
    Else
        PrefixZero = p_strDatePart
    End If
End Function

You can pass each date/time part to that function.

Dim strHour
strHour = PrefixZero(Hour(rs("reg_date")))

Regards.