[370.xls]



' [mjSumple] のコード
'■■ テキストボックスに入力された日付が期間内かチェックする ■■
'
'

Const intDay = 365  '有効な日付の範囲を設定

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


Sub Btn1_Click()
    '開始と終了に日付として有効な値が入力されているかチェック
    If Not IsDate(frmSumple.txtInput0.Text) Or _
         Not IsDate(frmSumple.txtInput1.Text) Then
        MsgBox ("開始日・終了日両方に日付をyyyy/mm/ddの形式で入力して下さい")
        Exit Sub
    End If
    
    '開始日より終了日が昔でないかチェック
    If CDate(frmSumple.txtInput1.Text) < CDate(frmSumple.txtInput0.Text) Then
        MsgBox ("開始日＜終了日になるように入力して下さい")
        Exit Sub
    End If
    
    '開始日〜終了日間の日数が指定範囲を越えていないかチェック
    If CDate(frmSumple.txtInput1.Text) - CDate(frmSumple.txtInput0.Text) > intDay Then
        MsgBox ("日付の範囲は" & intDay & "日以内にして下さい")
        Exit Sub
    End If
    
    '有効な日付が入力されたら
    MsgBox ("OK")
End Sub



' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    Call Btn1_Click
End Sub