Obsah
Otázka: Výpočty s hodnotami v oblasti desatiny sekundy
sa majú vykonať
Odpoveď: Vložte nasledujúci kód do príslušných modulov. S nasledujúcou funkciou definovanou používateľom. syntax: = spektrum (A1)
Vložte kód nižšie do štandardného modulu
Funkcia SpecTime (txt ako reťazec) 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 (vľavo (txt, 2)) / (DIV / 60) SpecTime = dblValue Koniec funkcie
