Now関数 ： Access
■ 構文
Now
■ 戻り値
現在の日付と時刻をバリアント型で返します。
「時計」ボタンをクリックすると、10msecでタイマーイベントが発生し、テキストボックスに表示します。
「時計」ボタンをクリックすると停止します。
Private Sub Form_Timer()
Me!テキスト4 = Format(Now, "yyyy/mm/dd hh:nn:ss")
End Sub
Private Sub コマンド0_Click()
Me!テキスト2 = Format(Now, "yyyy/mm/dd hh:nn:ss")
End Sub
'時計の開始
Private Sub コマンド1_Click()
Me.TimerInterval = 100
End Sub
'時計の停止
Private Sub コマンド5_Click()
Me.TimerInterval = 0
End Sub
Now
■ 戻り値
現在の日付と時刻をバリアント型で返します。
■ Access実行画面
「現在時刻」ボタンをクリックすると、現在の日付と時刻をテキストボックスに表示します。「時計」ボタンをクリックすると、10msecでタイマーイベントが発生し、テキストボックスに表示します。
「時計」ボタンをクリックすると停止します。
■ Access VBA 実行コード
Option Compare DatabasePrivate Sub Form_Timer()
Me!テキスト4 = Format(Now, "yyyy/mm/dd hh:nn:ss")
End Sub
Private Sub コマンド0_Click()
Me!テキスト2 = Format(Now, "yyyy/mm/dd hh:nn:ss")
End Sub
'時計の開始
Private Sub コマンド1_Click()
Me.TimerInterval = 100
End Sub
'時計の停止
Private Sub コマンド5_Click()
Me.TimerInterval = 0
End Sub
Home 
Access関数Copyright(C) FeedSoft