Calculate time

[zrazzaq]

Hi:
Now that I converted the time into hours minutes and seconds, I need to add them to different fields for example:
1:20:36 + 3:03:43
Now in Access it will not do this for some reason...
How can I do this with a formula within VB or query...
Thanks
Zishan

 

[CautionMP]

zrazzaq,

Now in Access it will not do this for some reason...

Huh?

Are 1:20:36 & 3:03:43 dates or strings? I suspect that if you are having problems that they are strings. If so, to do math with them you will need to convert them to dates. A couple of ways:
[tt] CDate("1:20:36") + CDate("3:03:43") = 4:24:19 AM
#1:20:36# + #3:03:43# = 4:24:19 AM[/tt]

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[zrazzaq]

Hey Thanks...The thing is I changed the table to read Date/Time format in Access. But now that I try to update the table with like 49:15 which is 49 minutes and 15 seconds, it keeps telling me type mismatch. Anyone have any ideas for this?
Thanks
Zishan

 

[PHV]

I try to update the table with like 49:15
And how you try that ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[zrazzaq]

Well the field is AVGTALKTIME and the DataType is Date/Time.
It will not pick up 49:15 but I fixed that by adding "00:" in front of it. Now it does not like 4:90:58...I do not understand.
Thanks
Zishan

 

[PHV]

and what is supposed to be 4:90:58 ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[zrazzaq]

ok how about this I think me converting the minutes to hours function is incorrect:

Public Function ConvTime(sSecc As String)

   Dim iPoss As Integer
    'iPos = InStr(n, ":")
    p = Len(sSecc)
    q = 3
    'Lets get seconds first
    strn = Right$(sSecc, q)
    
    'To get minutes
    n = Left$(sSecc, p - q)
    If n < 60 Then
        n = sSecc
        ConvTime = n
        ConvTime = "00:" & n
        
    Else
        n = FormatNumber(Div0(n, 60), 2)
        n = ReplaceCharacter(n, ".", ":")
        
        ConvTime = n & strn
    End If
End Function

I think this is where it is messing up.
It suppose to convert something like 69:23 which is 69 minutes and 23 seconds to Hours:minutes:seconds.
If there is an easier way to convert this please let me know
thanks
Zishan

 

[PHV]

I already gave you a solution in your previous thread with the TimeSerial and Eval functions:
Public Function ConvTime(sSecc As String) As Date
ConvTime = TimeSerial(0, 0, Eval(Replace(sSecc, ":", "*60+")))
End Function


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[zrazzaq]

Nice it works thank you so much for your help...