Sub ObtenerDiferencia()
ss = C - TVE - TIN - TSA
If ss < 0 Then
signo = "-"
ss = ss * -1
End If
'Formateamos a [h]:mm:ss
hh = ss Mod 3600
hh = Int((ss - hh) / 3600)
ss = ss - (hh * 3600)
mm = ss Mod 60
mm = Int((ss - mm) / 60)
ss = ss - (mm * 60)
txtResultado = signo & hh & ":" & Format(mm, "00") & ":" & Format(ss, "00")
End Sub
Sub ObtenerDiferencia()
ss = C - TVE - TIN - TSA
If ss < 0 Then
signo = "-"
ss = ss * -1
End If
'Formateamos a [h]:mm:ss
hh = ss Mod 3600
hh = (ss - hh) / 3600
ss = ss - (hh * 3600)
mm = ss Mod 60
mm = (ss - mm) / 60
ss = ss - (mm * 60)
txtResultado = signo & Int(hh) & ":" & Format(Int(mm), "00") & ":" & Format(ss, "00")
End Sub