Excel VBA 質問スレ Part61

Excel VBA 質問スレ P ..

565:デフォルトの名無しさん
19/06/05 21:34:37.94 5zNRcsxz8
>>564の続きです。
Function fTimestamp(sData As String) As Date
For i = 1 To Len(sData)
sOne = Mid(sData, i, 1)
If IsNumeric(sOne) Then
sNum = sNum & sOne

ElseIf sOne = "日" Then
fTimestamp = fTimestamp + Int(sNum)
sNum = ""

ElseIf sOne = "時" Then
fTimestamp = fTimestamp + Int(sNum) / 24
sNum = ""

ElseIf sOne = "分" Then
fTimestamp = fTimestamp + Int(sNum) / (24 * 60)
sNum = ""
End If
Next i
End Function

次ページ

続きを表示

1を表示