Calculate time + time ?

[desprits]

What should I do to calculate time if my variable are in a string format ?
Exemple :
00:30
00:14
00:08
02:24
12:51
00:14
------
?????

My code is :
TotalTemps = TotalTemps + Val(adoTriTemps.Recordset!Temps)

TotalTemps Type = Variante
Temps Type = Texte

 

[koala15]

desprits,

I think the TimeValue() function is what you need.

Check out the doco.

Cheers.

"Life is full of learning, and then there is wisdom"

 

[desprits]

This not working, it's cause an error -> Type mismatch ?

TotalTemps = TimeValue(TotalTemps) + TimeValue(adoTriTemps.Recordset!Temps)

TotalTemps TYPE = string
adoTriTemps.Recordset!Temps TYPE = string

 

[jel]

dim TotalTemps as date

TotalTemps = TotalTemps + TimeValue(adoTriTemps.Recordset!Temps)

Check out thread222-780310 for info on rounding problems...

 

[desprits]

This don't working so ! :-(
ERROR --- > Type mismatch !

 

[DrJavaJoe]

debug.print adoTriTemps.Recordset!Temps and you'll see why it doesn't work

"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."

 

[desprits]

test = (Format(TotalTempsUtilisation, "0.00000000&quot + Format(adoTriTemps.Recordset!TempsUtilisation, "0.00000000&quot)

This don't additionate !?

 

[DrJavaJoe]

Then try to debug.printinate the values from the recordset.

"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."

 

[jel]

desprits:
in
test = (Format(TotalTempsUtilisation, "0.00000000&quot + Format(adoTriTemps.Recordset!TempsUtilisation, "0.00000000&quot)
you are again trying to add to strings.
What you want to do is add date- or numeric values.

 

[koala15]

desprits:

1) The data item "Temps" in the DBMS record set must have a data type of either "Text" (and the data contained in that item must be of the correct format (eg 10:25pm)) OR it must be of type Date/Time.

2) Given that the above is true, then the code as jel wrote will work correctly:

dim TotalTemps as date

TotalTemps = TotalTemps + TimeValue(adoTriTemps.Recordset!Temps)


"Life is full of learning, and then there is wisdom"

 

[desprits]

I juste want to add time .. accumulate time !

Exemple :
00:23
00:11
01:51
------
?????

I would like that the routine give me --> 2:25

 

[DrJavaJoe]

Then do this:
TotalTemps = TimeValue("00:23&quot + TimeValue("00:11&quot + TimeValue("01:51&quot
MsgBox TotalTemps

If you were to check, you would see that adoTriTemps.Recordset!Temps is returning something that is not a valid time.

"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."

 

[desprits]

It's working !
Tanck you very much everybody ! )