VBAを使用してカスタム機能により、秒の千分の一画分と計算

投稿日: 2020年10月22日 2020年11月12日
タグ: printing-in-vba

質問：数千分の1秒の領域の値を使用して計算を実行する必要があります。回答：適切なモジュールに次のコードを挿入します。次のユーザー定義関数を使用します。構文：= spectime（A1）

以下のコードを標準モジュールに配置します

Function 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(Left(txt, 2)) / (DIV / 60)

SpecTime= dblValue

End Function