'****************************************
' 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
' 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: