Thank you so much, Rick! This works beautifully, and is ever so much more
elegant than my attempt. Do you suppose anyone can tell that I'm just an
old, rusty COBOL programmer who's not particularly conversant in VBA? LOL!
Now on to the flip side of this coin: trying to convert seconds back into a
dd:hh:mm:ss text value. We'll see if this old dog has learned any new tricks!
"Rick Rothstein (MVP -
VB)" wrote:
I'm not sure what your problem is, but I think this function does what you
are attempting to do with your function (plus it is a little bit
shorter<g)...
Function TimeInSeconds(BuildTime As String) As Long
Dim X As Long
Dim Factors As Variant
Dim Parts() As String
Factors = Array(1, 60, 3600, 86400)
Parts = Split(BuildTime, ":")
For X = 0 To UBound(Parts)
TimeInSeconds = TimeInSeconds + Factors(X) * Parts(UBound(Parts) - X)
Next
End Function
Rick