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

指定日から開始日を求める関数


指定した日付と締め日からその開始日を求める関数
例えば、日付が2008/10/15で、締め日が20日締め(その場合は20を指定)した場合、求める日付は2008/09/21になる。
また、日付が2008/10/15で、締め日が月末締め(その場合は99を指定)した場合、求める日付は2008/10/01になる。
<ソース例>


Public Function F_StartDay_Set(P_HIZUKE, P_Shimebi) As Date
  '指定した日付(P_HIZUKE)と締め日から(P_Shimebi)からその開始日を把握する。
  'パラメータ 1.P_HIZUKE 日付型で指定する。
  '        2.P_Shimebi 01から31または99を指定する。99は月末日
  Dim Year
  Dim Month
  Dim Day

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


サンプル一覧へ戻る
 

Copyright(C) 2006 Wing