hey guys:

I need to know how to obtain the minutes from this formula

dim myVar1 as date
dim myVar2 as date
dim MyResult as long

text1.text = timevalue(now)
text2.text = timevalue(now)+ 30
myVar1 = val(text1.text)
myVar2 = val(text2.text)
MyResult = myVar1 - MyVar2
msgbox MyResult

I am developing a software that will control tha Internet service time in a Internet Cyber Shop. Can you guys tell me if is possible to do that formula
a reality, since I am just obtaining 0 in the msgbox.

PS:

I know I can use timer controls for each of the users(the Pc's) but I don't want to look myself so limitated to public vars to set the timer time in each of the cases, I want a professional formula to work for all of them...
any idea?

Gracias mis amigos!