Obsah
Otázka: Výpočty s hodnotami v oblasti desetiny sekundy
mají být provedeny
Odpovědět: Vložte následující kód do příslušných modulů. S následující uživatelsky definovanou funkcí. syntax: = spektrum (A1)
Umístěte níže uvedený kód do standardního modulu
Funkce SpecTime (txt jako řetězec) 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 (vlevo (txt, 2)) / (DIV / 60) SpecTime = dblValue End Function
