Beräkningar med en tusendels bråkdelar av sekunder med anpassad funktion med VBA

Beräkningar med en tusendels bråkdelar av sekunder med anpassad funktion med VBA
Innehållsförteckning

Fråga: Beräkningar med värden inom området tiondel och en sekund
ska göras

Svar: Sätt in följande kod i lämpliga moduler. Med följande användardefinierade funktion. syntax: = spectime (A1)

Placera koden nedan i standardmodulen

 Funktion 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 (vänster (txt, 2)) / (DIV / 60) SpecTime = dblValue Slutfunktion

Du kommer att bidra till utvecklingen av webbplatsen, dela sidan med dina vänner

wave wave wave wave wave

Populära Inlägg

wave
1
post-title
Ta bort datavalidering med Paste Special i Excel
2
post-title
Distribuera data från en lista över dagliga blad med VBA
3
post-title
Hur man använder OFFSET -funktionen i Excel
4
post-title
Beräkning av den totala årliga betalningen baserad på kumulativa månadsbetalningar
5
post-title
Flytta till den sista (eller första) cellen i ett intervall i Microsoft Excel

Rekommenderas

wave
- Sponsored Ad -

Redaktionen

wave
- Sponsored Ad -