[372.xls]



' [mjSumple] のコード
'■■ hh:mm 形式の時刻入力 ■■
'
'
Dim intHour As Integer
Dim intMin As Integer
Dim intSec As Integer

'フォームを表示します
Sub frmSumple_Show()
    
   'フォームの表示
    frmSumple.Show
End Sub


Sub Btn1_Click()
    '時間として有効な値が入力されているかチェック
    If Not IsDate(frmSumple.txtInput0.Text) Then
        MsgBox ("時間として有効な値を入力して下さい")
        Exit Sub
    End If
    
    'hh:mm:ss(半角8文字)の形式で値が入力されているかチェック
    If Len(frmSumple.txtInput0.Text) <> 8 Then
        MsgBox ("時間をhh:mm:ssの形式で入力して下さい")
        Exit Sub
    End If

    '入力値から時分秒を取り出します
    intHour = Hour(CDate(frmSumple.txtInput0.Text))
    intMin = Minute(CDate(frmSumple.txtInput0.Text))
    intSec = Second(CDate(frmSumple.txtInput0.Text))
    
    '有効な時間が入力されたら
    MsgBox (intHour & "時" & intMin & "分" & intSec & "秒")
End Sub



' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    Call Btn1_Click
End Sub