Calcule cu o mie de fracțiuni de secunde prin funcția personalizată utilizând VBA

Anonim

Întrebare: Calcule cu valori în zona zecimii de secundă
sunt de făcut

Răspuns: Introduceți următorul cod în modulele corespunzătoare. Cu următoarea funcție definită de utilizator. sintaxă: = spectime (A1)

Plasați codul de mai jos în modulul standard

 Funcție 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