Thanks Everyone for the Replies.
RBS, How would I Incorporate this into my Program Please.
One Other Question, I Used this which Works Great :-
Active.Offset(1, 0) = "Processing Time " & _
Format(((Timer - Start) / 24 / 60 / 60), _
"hh"" Hours"" - mm"" Minutes"" - ss"" Seconds")
The thing is that in the Code it has the Line :-
Columns("B
").AutoFit
which Also Works Great.
Using the Processing Time it Autofits that Column which is NOT what I
want. The Length of Information Produced will Vary which is why I have
Used the Offset. Is there a Way to get ( Maybe Merge in Some Way ) the
Time Output Over 3 Columns without havung the Hours Minutes Seconds in
Individual Cells Please. Basically to Output in the Cell But Overlap 3
Columns for Example.
Thanks in Advance.
All the Best.
Paul
Re: Help with Hours Minutes Seconds Please
From: RB Smissaert
I made a function for this purpose that you may find useful.
Function TimeUnitsFromSeconds(ByVal lSeconds As Long) As Variant
'takes an integer number of seconds and gives a 1-D 0-based arrray
'with 4 elements.
'first element hours, second element minutes, third elements seconds
'fourth element will give the combined units as a string
'-------------------------------------------------------------------
Dim lSecs As Long
Dim lMinutes As Long
Dim lHours As Long
Dim strSeconds As String
Dim strMinutes As String
Dim strHours As String
Dim strTime As String
Dim arr(0 To 3) As Variant
lHours = lSeconds \ 3600
lMinutes = (lSeconds - (lHours * 3600)) \ 60
lSecs = (lSeconds - (lHours * 3600)) - (lMinutes * 60)
arr(0) = lHours
arr(1) = lMinutes
arr(2) = lSecs
If arr(0) = 1 Then
strHours = " hr"
Else
strHours = " hrs"
End If
If arr(1) = 1 Then
strMinutes = " min"
Else
strMinutes = " mins"
End If
If arr(2) = 1 Then
strSeconds = " sec"
Else
strSeconds = " secs"
End If
If arr(0) = 0 Then
If arr(1) = 0 Then
If arr(2) = 1 Then
strTime = "1 second"
Else
strTime = arr(2) & " seconds"
End If
Else
If arr(2) = 0 Then
strTime = arr(1) & strMinutes
Else
strTime = arr(1) & strMinutes & ", " & arr(2) & strSeconds
End If
End If
Else
If arr(1) = 0 Then
If arr(1) = 0 Then
strTime = arr(0) & strHours
Else
strTime = arr(0) & strHours & ", " & arr(2) & strSeconds
End If
Else
If arr(2) = 0 Then
strTime = arr(0) & strHours & ", " & arr(1) & strMinutes
Else
strTime = arr(0) & strHours & ", " & arr(1) & strMinutes & _
", " & arr(2) & strSeconds
End If
End If
End If
arr(3) = strTime
TimeUnitsFromSeconds = arr
End Function
RBS
