Microsoft Access Club >AccessTips >このページ >次頁 < 前項  サイト内検索


月末の日付を求めたい-DateSerial関数-:AccessTips008



フォームやクエリ等で、月末の日付を求める方法をご紹介します。

考え方

翌月の最初の日を求め、それから1日を差し引く考え方です。このようにしないと、1月は31日、2月は28または29日と月によって月末までの日数が異なるからです

しかし、翌月の初日から-1を差し引くと、当月の月末日に自動的になります。

DateSerial関数

DateSerial関数は、引数に指定した年、月、日に対応するバリアント型 (内部処理形式 Date の Variant) の値を返す関数です。

今月の月末

今月の月末の求め方は、以下のようになります。

  • Dateserial(year(date()),month(date())+1,1)-1
Functionプロシージャ

以下のような記述になります。

Function Get月末の日付()

    Dim var今月の月末 As Variant
    var今月の月末 = DateSerial(Year(Date), Month(Date) + 1, 1) - 1
    
    Get月末の日付 = var今月の月末
    
End Function

関連ページ

 2004/09/18

ページの先頭へ 前ページへ戻る

 


月末の日付を求めたい-DateSerial関数-:AccessTips008


 

-Microsoft Access Club-