|
アーカイブファイルを処理するときに重宝する関数。
前回のMS-DOS形式の日付情報をWindows形式に変換するに引き続き行ってみよう。
'---------------------------------------------------------------
' 関数名： ConvTimeDosToWin
' 機能 ： MS-DOS形式の時間情報をWindows形式に変換する
' 引数 ： (in) srcTime … MS-DOS形式の時刻値
' (in/out) trsHour … 変換された時
' (in/out) trsMinute … 変換された分
' (in/out) trsSecond … 変換された秒
' 返り値 ：なし
'---------------------------------------------------------------
Public Sub ConvTimeDosToWin(ByVal srcTime As Long, _
ByRef trsHour As String, _
ByRef trsMinute As String, _
ByRef trsSecond As String)
'時変換
trsHour = CStr(((srcTime And &HF800&) / 2 ^ 11))
'分変換
trsMinute = CStr((srcTime And &H7E0) / 2 ^ 5)
'秒変換
trsSecond = CStr((srcTime And &H1F) * 2)
End Sub
|