Search Tools Links Login

Time Conversion

To convert a given number into HH:MM:SS

Original Author: Terry Hansen


Number of seconds you are looking at converting, and bFixedLength (usually false)


We do alot of maintaining of time in the place I work, and most of the time it is in the format of large integers in number of seconds. This function will take that value and give you back the number of hours, minutes, and seconds in the format HH:MM:SS This is not something that is easily done with either VB formatting or SQL Server formatting...


Public Function CTime(iSeconds, bFixedLength)
  Dim intHours As Integer
  Dim intMinutes As Integer
  Dim intDays As Integer
  Dim intSeconds As Integer
  Dim lngRemainder As Long
  Dim sHours As String
  Dim sMinutes As String
  Dim sSeconds As String
  If IsNull(iSeconds) Then iSeconds = 0
  '17 Jun 2002, TLH. This was added to take care of
  'negative values. This way the report will still run but
  'will show a zero value, and clue in the auditors that
  'there is a problem with that particular field...
  If iSeconds < 0 Then iSeconds = 0
  intHours = Int(iSeconds / 3600)
  lngRemainder = CLng(iSeconds Mod 3600)
  intMinutes = Int(lngRemainder / 60)
  intSeconds = CInt(lngRemainder Mod 60)
  sSeconds = String(2 - Len(CStr(intSeconds)), "0") & CStr(intSeconds)
  sMinutes = String(2 - Len(CStr(intMinutes)), "0") & CStr(intMinutes)
  'sHours = String(2-len(CStr(intHours)), "0") & CStr(intHours)
  sHours = CStr(intHours)
  CTime = sMinutes & ":" & sSeconds
  If intHours > 0 Or bFixedLength Then
    CTime = sHours & ":" & CTime
  End If
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 82 times




No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.