Aprēķini ar tūkstošdaļu sekundes daļu, izmantojot pielāgotu funkciju, izmantojot VBA

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