Les calculs avec un millième de seconde par fractions Fonction personnalisée en utilisant VBA
Question: Les calculs avec des valeurs de l’ordre du dixième de seconde doivent être effectués. Réponse: Insérez le code suivant dans les modules appropriés. Avec la fonction définie par l’utilisateur suivante. syntaxe: = spectime (A1)
Placez le code ci-dessous dans le module standard
Function SpecTime(txt As String) Const DIV As Long = 86400 Dim dblValue As Double dblValue = CInt(Right(txt, 4)) / (DIV * 10000) dblValue = dblValue + CInt(Mid(txt, 4, 2)) / DIV dblValue = dblValue + CInt(Left(txt, 2)) / (DIV / 60) SpecTime= dblValue End Function