Italian Visuallizzare missilescondo con il Timer

LucaMs said:

Devo rileggere meglio il problema, perché a me sembra che funzioni (purtroppo, ho fatto una cosa al volo, non è come il tuo)

Allego e rileggo

MODIFICATO per calcolare solo il tempo dallo Start, ma aggiungere un'ora. Devo cercare sul sito, riguarderà i fusi orari!

Click to expand...

Filippo said:

Ciao lock255,

se vuoi usare una routine più semplice prova questa, io la uso nelle mie App e va benissimo.

B4X:

Sub Chronometer_Tick
'  pm = PeriodBetweenWithMilliseconds(StartTime, DateTime.Now)
'    Label1.Text = FN(pm.p.Hours) & ":" & FN(pm.p.Minutes) & ":" & FN(pm.p.Seconds) & "." & _
'    NumberFormat(pm.ms, 3, 0)
  
    Label1.Text = getConvertTickToHHmmsszs(DateTime.Now - StartTime)
End Sub

Sub getConvertTickToHHmmsszs(time As Long) As String
    Dim vorzeichen As String=""
    Dim h,m,s,zs As Int
    Dim t As Long=Abs(time)
    If time < 0 Then vorzeichen="-"
    zs = t Mod 1000
    s = (t/1000) Mod 60
    m = (t/60000) Mod 60
    h = (t/3600000) Mod 24
    Return vorzeichen & NumberFormat(h,2,0) & ":" & NumberFormat(m,2,0) & ":" & NumberFormat(s,2,0) & "." & NumberFormat2(zs,3,0,0,False)
End Sub

Click to expand...

Parsing code.                          Error
Error parsing program.
Error description: Undeclared variable 'starttime' is used before it was assigned any value.
Occurred on line: 47
    Label1.Text = getConvertTickToHHmmsszs(DateTime.Now - StartTime)

lock255 said:

Grazie per il suggerimento, quando provo il tuo codice ottengo questo errore:

B4X:

Parsing code.                          Error
Error parsing program.
Error description: Undeclared variable 'starttime' is used before it was assigned any value.
Occurred on line: 47
    Label1.Text = getConvertTickToHHmmsszs(DateTime.Now - StartTime)

Click to expand...