[AccessD] Sudden Format() Problem

I'm not sure what you're talking about.  I didn't
specifically set up any references when I orignally
added the code snippet.  I, literally, C&P'ed it into
a module in Access.

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