ウィングのHPへようこそ 本文へジャンプ
サンプル一覧へ戻る

指定日から終了日を求める関数


指定した日付と締め日からその終了日を求める関数
例えば、日付が2008/10/15で、締め日が20日締め(その場合は20を指定)した場合、求める日付は2008/10/20になる。
また、日付が2008/10/15で、締め日が月末締め(その場合は99を指定)した場合、求める日付は2008/10/31になる。
前回アップした「指定日から開始日を求める」とセットで使用することが多い。
<ソース例>


Public Function F_EndDay_Set(P_HIZUKE, P_Shimebi) As Date
  Dim Year
  Dim Month
  Dim Day

  Year = DatePart("yyyy", P_HIZUKE)
  Month = DatePart("m", P_HIZUKE)
  If P_Shimebi = 99 Then
    F_EndDay_Set = DateSerial(Year, Month + 1, 1) - 1
  Else
    F_EndDay_Set = DateSerial(Year, Month, P_Shimebi)
  End If

End Function

サンプル一覧へ戻る
 

Copyright(C) 2006 Wing