[371.xls]



' [mjSumple] のコード
'■■ yyyy/mm/dd 形式の日付入力 ■■
'
Dim intYear As Integer
Dim intMonth As Integer
Dim intDay As Integer

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


Sub Btn1_Click()
    '日付として有効な値が入力されているかチェック
    If Not IsDate(frmSumple.txtInput0.Text) Then
        MsgBox ("日付として有効な値を入力して下さい")
        Exit Sub
    End If
    
    'yyyy/mm/dd(半角10文字)の形式で値が入力されているかチェック
    If Len(frmSumple.txtInput0.Text) <> 10 Then
        MsgBox ("日付をyyyy/mm/ddの形式で入力して下さい")
        Exit Sub
    End If
    
    '入力値から年月日を取り出します
    intYear = Year(CDate(frmSumple.txtInput0.Text))
    intMonth = Month(CDate(frmSumple.txtInput0.Text))
    intDay = Day(CDate(frmSumple.txtInput0.Text))
    
    '有効な日付が入力されたら
    MsgBox (intYear & "年" & intMonth & "月" & intDay & "日")
End Sub




' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    Call Btn1_Click
End Sub