Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Calculate time + time ?
- Thread starter desprits
- Start date
- Thread starter
- #3
- Thread starter
- #5
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'."
"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'."
- Thread starter
- #7
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'."
"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:
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"
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"
- Thread starter
- #11
Then do this:
TotalTemps = TimeValue("00:23"
+ TimeValue("00:11" + TimeValue("01:51"
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'."
TotalTemps = TimeValue("00:23"
+ TimeValue("00:11" + TimeValue("01:51"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'."
- Thread starter
- #13
- Status
