[AccessD] adding Time

How about some variation of this you can use datediff or dateadd functions
Sub diftest()
Dim TheDate As Date
Dim Msg As String
Dim testdate As Date
Dim testtime As Date
testdate = Date + #10:59:00 AM#
Msg = "Minutes from previous: " & Abs(DateDiff("n", Now, testdate))
MsgBox Msg
End Sub

Robert Gracie wrote:

>A2K
>
> I have 7 unbound text boxes that have time amounts listed in HH:MM (8:27)
>format.
>
>How do I go about adding up the time?  Everything I try, I get a data
>mismatch error...
>
>
>
>Thanks
>Robert Gracie
>
>
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Charlotte
>Foust
>Sent: Monday, June 16, 2003 6:20 PM
>To: accessd at databaseadvisors.com
>Subject: RE: [AccessD] OpenArgs question
>
>
>And in the report's events, it can't see the OpenArgs string value?  Is
>the listbox value a string in the first place?  I notice you're
>delimiting it with chr(34)s, but you don't need them if it's not a date
>or numeric value.
>
>Charlotte Foust
>
>-----Original Message-----
>From: Susan Harkins [mailto:harkins at iglou.com]
>Sent: Monday, June 16, 2003 1:51 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] OpenArgs question
>
>
>OK, I'm using AXP.
>
>I'm selecting a single item from a list box and trying to pass that
>value (a
>string) to the report via the report's OpenArgs value.
>
>Susan H.
>
>
>  
>
>>Susan,
>>
>>I'm getting confused.  Where are you trying to recognize it, and where
>>    
>>
>
>  
>
>>does a form come into the equation?  Only A2002 has an OpenArgs
>>argument for reports.  Earlier versions didn't have it.  We use it in
>>reports without problems, so what are you trying to do that isn't
>>succeeding?
>>
>>Charlotte Foust
>>
>>-----Original Message-----
>>From: Susan Harkins [mailto:harkins at iglou.com]
>>Sent: Monday, June 16, 2003 12:50 PM
>>To: AccessD at databaseadvisors.com
>>Subject: [AccessD] OpenArgs question
>>
>>
>>This should be an easy one. The following event procedure opens a
>>report and passes the list box' value as th OpenArgs setting.
>>
>>Private Sub lstCategories_DblClick(Cancel As Integer)
>>  Dim str As String
>>  str = Chr(34) & Me.lstCategories.Value & Chr(34)
>>  Debug.Print str
>>  DoCmd.OpenReport ReportName:="Catalog", _
>>      View:=acViewPreview, _
>>      OpenArgs:=str
>>End Sub
>>
>>Problem is, I can't get the report to recognize it -- in any report
>>event.
>>
>>Reports!reportname.OpenArgs
>>Me.OpenArgs
>>rpt.OpenArgs
>>
>>I've tried all three in most of the report's events after opening it
>>via the form and the setting isn't making it to the form. Any clue
>>what I'm doing wrong?
>>
>>Susan H.
>>
>>_______________________________________________
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>_______________________________________________
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>
>>
>>    
>>
>
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>  
>