Adding Time

[tenbellies]

I have a timer to extract some data but once that has finished i need to extract some more data 2hrs after that one has finished. Rather than setting another timer with data input i want to be able to add 2 hrs onto the existing time that the user has said to run the first script. I have tried the following but keep getting rubbish back...

qk = Format$(Text1, "hh:mm")
qk2 = "02:00:00"
qk3 = Format$(qk2, "hh:mm")
qk4 = qk + qk3
Text5 = qk4

Can anyone help?

 

[HarleyQuinn]

Have a look at the DateAdd() function.

HarleyQuinn
---------------------------------
Help us to help you,
read FAQ222-2244 before posting.

 

[tenbellies]

Thanks for the tip but still haveing troubel...

the time is in the format hh:mm so if the user inputs a time of 05:00 i need ot to add on 2hrs. i can't get the adddate to work i have it as follows:

DateAdd("h", 2)
can you help further?

 

[HarleyQuinn]

You need to include the date you wish to add two hours to.
e.g.

DateAdd("h", 2, YourDate)

Hope this helps

HarleyQuinn
---------------------------------
Help us to help you,
read FAQ222-2244 before posting.

 

[tenbellies]

i don't have a date only time. I have it sorted now using the folowing...

Dim MyString, LeftString
MyString = Text1
LeftString = Left(MyString, 2)
Dim MyVar
MyVar = Mid(Text1, 3, 6)
timedel = Text5
Label8 = LeftString + timedel & MyVar

i know it's not the best way but it works

 

[HarleyQuinn]

Glad you got it to work.

The way I would have done it with the DateAdd would be something like:

Dim MyTime as String
MyTime = Format$(Text1.Text,"hh:mm")
label8.Caption = Format$(DateAdd("h", Text5.Text, MyTime), "hh:mm")

Hope this helps

HarleyQuinn
---------------------------------
Help us to help you,
read FAQ222-2244 before posting.