Originariamente inviato da pprllo
Non puoi fare operazioni con dati in quel formato !!!
Tu nella label hai una stringa, devi convertirla in un formato numerico in secondi per poterla utilizzare.
Allora tu ti scrivi una funzione di conversione tipo così:
codice:
Private Function ToSeconds(str As String) As Double
ToSeconds = Val(Mid$(str, 1, 2)) * 3600 + Val(Mid$(str, 4, 2)) * 60 + Val(Mid$(str, 7, 2) + "." + Mid$(str, 10, 3))
End Function
E fai
codice:
Text3.text = Str(Val(Text2.Text)/ToSeconds(Label1.Caption) * 3.6)
Così dovrebbe funzionare
Può pprllo
In VB6 non puoi fare calcoli con variabili stringhe, ma con contenuti di text e label si, vengono riconosciuti in automatico e convertiti! Riconosce anche quel formato "00.00.00,000" (provare per credere)