■ 構文
Second(time)
time :(必須) 時間の秒を表すバリアント型の値、数式、文字列式、またはこれらを組み合わせた値を指定します。
■ 戻り値
時間から秒を返します。
■ Access実行画面
「現在の時間」ボタンをクリックすると、現在の時刻をテキストボックスに表示します。
「秒を求める」ボタンをクリックすると、上のテキストボックスから、秒の部分を取り出し表示します。
■ Access VBA 実行コード
Option Compare Database
Private Sub コマンド2_Click()
If IsNull(Me!テキスト0) Then
MsgBox "求める時刻を入力してください"
Exit Sub
End If
Me!テキスト4 = Second(Me!テキスト0)
End Sub
Private Sub コマンド3_Click()
Me!テキスト0 = Format(Now, "yyyy/mm/dd hh:nn:ss")
End Sub