SQL 日付の加算・減算 DateAdd関数

DateAdd関数の使用例サンプル

構文:DateAdd(interval, number, date)
intervalは時間間隔を表す下記の文字列式を指定します。
yyyy : 年
q : 四半期
m : 月
y : 年間通算日(間の日数)
d : 日
w : 週日
ww : 週
h : 時
n : 分
s : 秒

スポンサーリンク




BackHomeへ BackSQL Tipsへ

サンプルソフト
■実行画面
ボタンをクリックすると、「登録日」に加算・減算した結果を表示します。
DateAdd関数の使用例

■実行結果
年: 2008/09/27 : 2009/09/27 : 2007/09/27
四半期: 2008/09/27 : 2008/12/27 : 2008/06/27
月: 2008/09/27 : 2008/10/27 : 2008/08/27
年間通算日: 2008/09/27 : 2008/09/28 : 2008/09/26
日: 2008/09/27 : 2008/09/28 : 2008/09/26
週日: 2008/09/27 : 2008/09/28 : 2008/09/26
週: 2008/09/27 : 2008/10/04 : 2008/09/20
時: 2008/09/27 : 2008/09/27 1:00:00 : 2008/09/26 23:00:00
分: 2008/09/27 : 2008/09/27 0:01:00 : 2008/09/26 23:59:00
秒: 2008/09/27 : 2008/09/27 0:00:01 : 2008/09/26 23:59:59

スポンサーリンク



[コード]
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    '年を加算・減算
    SQL = " SELECT 登録日,DateAdd('yyyy', 1, 登録日),DateAdd('yyyy', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "年: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
    '四半期を加算・減算
    SQL = " SELECT 登録日,DateAdd('q', 1, 登録日),DateAdd('q', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "四半期: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
    '月を加算・減算
    SQL = " SELECT 登録日,DateAdd('m', 1, 登録日),DateAdd('m', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "月: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
    '年間通算日を加算・減算
    SQL = " SELECT 登録日,DateAdd('y', 1, 登録日),DateAdd('y', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "年間通算日: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
    '日を加算・減算
    SQL = " SELECT 登録日,DateAdd('d', 1, 登録日),DateAdd('d', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "日: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
    '週日を加算・減算
    SQL = " SELECT 登録日,DateAdd('w', 1, 登録日),DateAdd('w', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "週日: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
    '週を加算・減算
    SQL = " SELECT 登録日,DateAdd('ww', 1, 登録日),DateAdd('ww', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "週: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
    '時を加算・減算
    SQL = " SELECT 登録日,DateAdd('h', 1, 登録日),DateAdd('h', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "時: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
    '分を加算・減算
    SQL = " SELECT 登録日,DateAdd('n', 1, 登録日),DateAdd('n', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "分: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
    '秒を加算・減算
    SQL = " SELECT 登録日,DateAdd('s', 1, 登録日),DateAdd('s', -1, 登録日) FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "秒: " & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & vbCrLf
    Set rs = Nothing
  
End Sub

サンプルソフトのダウンロード

スポンサーリンク




BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft