[AccessD] Sudden Format() Problem

Frank Tanner III pctech at mybellybutton.com
Tue Jul 29 09:19:00 CDT 2003


I have been using the following code snippet I got
from the list for a few months now.  All of a sudden
it gives the error "Compile Error.  Can't find project
or library."  Any ideas?

Function TotHours(Duration As Double) As String

Dim strTemp As String
Dim Days As Long

Days = Int(Duration)
strTemp = Format(Duration, "hh:mm:ss")

If Days > 0 Then
    strTemp = Str$(Val(Left$(strTemp, 2)) + Days * 24)
+ Mid$(strTemp, 3)
End If

TotHours = strTemp

End Function


Thank you for any assistance you can give me.


More information about the AccessD mailing list