Ciao
Ho fatto questo script per fare dei calcoli di tempo. (da fotogrammi a ore-minuti-secondi)
L'ultima riga mi da errore
{"Conversion from string "06:" to type 'Double' is not valid."}
Function FramesToTimecode(ByVal x_) As Double
'x_ is the frames-value
' ------------------------ Formato PAL ------------
sm_ = Int(x_ / 25)
Ftg = x_ - sm_ * 25
Ora = Int(sm_ / 3600)
Min = Int((sm_ - Ora * 3600) / 60)
Sec = Int(sm_ - Ora * 3600 - Min * 60)
FramesToTimecode = Format(Ora, "00:") '+ Format(Min, "00:") '+ Format(Sec, "00:") + Format(Ftg, "00")
End Function
Grazie anticipatamente
Ultima modifica effettuata da fosforo il 05/03/2013 alle 17:01 |