[AccessD] Sudden Format() Problem

Silly one, but have you tried looking in references to see if any have gone missing, if so, uncheck them and try running again


From: Frank Tanner III <pctech at mybellybutton.com>
Date: Tue 29/Jul/2003 14:19 GMT
To: Database Advisors <accessd at databaseadvisors.com>
Subject: [AccessD] Sudden Format() Problem

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.
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


__________________________________________________________________________
Join Freeserve http://www.freeserve.com/time/

Winner of the 2003 Internet Service Providers' Association awards for Best Unmetered ISP and Best Consumer Application.