Изчисления с една хилядна част от секундите по персонализирана функция, използваща VBA

Съдържание

Въпрос: Изчисления със стойности в областта на десетата хиляда от секундата
трябва да се направят

Отговор: Вмъкнете следния код в съответните модули. Със следната дефинирана от потребителя функция. синтаксис: = спектър (A1)

Поставете кода по -долу в стандартния модул

 Функция 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 (Вляво (txt, 2)) / (DIV / 60) SpecTime = dblValue Крайна функция