[436.xls]



' [mjSumple] のコード
'■■ スピンボタンを使用して日付を入力する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
           
    frmSumple.TextBox1.Text = Format(Now, "yyyy/mm/dd")
    
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub spnTest_SpinDown()
    If IsDate(frmSumple.TextBox1.Text) And Len(frmSumple.TextBox1.Text) = 10 Then
        frmSumple.TextBox1.Text = Format(DateAdd("d", 1, frmSumple.TextBox1.Text), "yyyy/mm/dd")
    End If
End Sub

Private Sub spnTest_SpinUp()
    If IsDate(frmSumple.TextBox1.Text) And Len(frmSumple.TextBox1.Text) = 10 Then
        frmSumple.TextBox1.Text = Format(DateAdd("d", -1, frmSumple.TextBox1.Text), "yyyy/mm/dd")
    End If
End Sub