Why not?

kamis

Member
Licensed User
Longtime User
'****************************************
' Hi. Now I have another problem.
' This works on my desktop but not on device
'****************************************


Sub Globals
'Declare the global variables here.

End Sub

Sub App_Start
Form1.Show
tiempoant= Now
timer1.interval=1
timer1.Enabled= True
End Sub

Sub centesimas(cen)
cen1 = SubString (cen,StrLength(cen)-8, 2)
Return cen1
End Sub

Sub Timer1_Tick
TimeFormat("mm:ss")
insofacto=Now
label1.Text =Time (insofacto-tiempoant) & "." & centesimas(insofacto-tiempoant)
End Sub
 
Last edited:

kamis

Member
Licensed User
Longtime User
No error. Just what does that have to do. It seems that the timer on the device does not have much resolution. Need cents!
 

klaus

Expert
Licensed User
Longtime User
Top