Jautājums: Aprēķini ar vērtībām desmitdaļas sekundes laikā
ir jādara
Atbilde: Ievietojiet šādu kodu atbilstošajos moduļos. Ar šādu lietotāja definētu funkciju. sintakse: = spektrs (A1)
Ievietojiet zemāk esošo kodu standarta modulī
Funkcija SpecTime (txt kā virkne) Const DIV As Long = 86400 Dim dblValue Kā Double dblValue = CInt (Pa labi (txt, 4)) / (DIV * 10000) dblValue = dblValue + CInt (Mid (txt, 4, 2)) / DIV dblValue = dblValue + CInt (pa kreisi (txt, 2)) / (DIV / 60) SpecTime = dblValue Beigu funkcija