追加課題(2/8)

今後消費税が以下のように変化すると仮定する．

	標準税率	軽減税率
現在	5％	-
2014/04/01 -	8%	-
2015/10/1	10%	8%

※軽減税率は，食料品等生活必需品等が対象となるようです．


１．税抜金額を表示

税抜金額: [単価]*[数量]

２．標準税率の場合の税込金額を表示

標準税率税込金額: [単価]*[数量]*1.05

３．軽減税率の場合の税込金額を表示

軽減税率税込金額: [単価]*[数量]*1.08

４．税率種別の表示

税率種別: IIf(
 [税率]='軽減',
 "軽減税率",
 "標準税率"
)

５．税率種別毎に税込金額を表示

税込金額: IIf(
 [税率]='軽減',
 [単価]*[数量]*1.05,
 [単価]*[数量]*1.08
)

６．リレーションを結んでいないテーブルのデータを参照

税率種別(標準): DLookUp(
 "[T消費税率].[消費税率]",
 "T消費税率",
 "[ID] = '3'"
)

税率種別(軽減): DLookUp(
 "[T消費税率(軽減)].[消費税率]",
 "T消費税率(軽減)",
 "[ID] = '3'"
)

７．2015/10/1以降の消費税率を，税率フィールドの項目により自動的に判別し表示

税込金額: IIf(
 [税率]='軽減',
 DLookUp("[T消費税率(軽減)].[消費税率]","T消費税率(軽減)","[ID] = '3'"),
 DLookUp("[T消費税率].[消費税率]","T消費税率","[ID] = '3'")
)

８．売上日が2014/4/1以降か判別する

売上日判別1: IIf(
 Format([売上日],"yyyy/mm/dd")>="2014/04/01",
 "2014/4/1以降",
 "2014/4/1以前"
)

９．売上日が2015/10/1以降の場合も判別する

売上日判別2: IIf(
 Format([売上日],"yyyy/mm/dd")>="2014/04/01",
 IIf(
  Format([売上日],"yyyy/mm/dd")>="2015/10/01",
  "2015/10/1以降",
  "2014/4/1～2015/9/30"
 ),
 "2014/4/1以前"
)

１０．売上日・商品毎に適用される税率を表示

適用税率1: IIf(
 Format([売上日],"yyyy/mm/dd")>="2014/04/01",
 IIf(
  Format([売上日],"yyyy/mm/dd")>="2015/10/01",
  IIF(
   [税率]="軽減",
   "8%",
   "10%"
  ),
  "8%"
 ),
 "5%"
)

１１．売上日・商品毎に適用される税率をテーブルから引っ張ってきて表示
(テーブルから税率を引っ張ってくることによって，急な税率変更にも対応出来るようにする)

適用税率2: IIf(
 Format([売上日],"yyyy/mm/dd")>="2014/04/01",
 IIf(
  Format([売上日],"yyyy/mm/dd")>="2015/10/01",
  IIF([税率]="軽減",
   DLookUp("[T消費税率(軽減)].[消費税率]","T消費税率(軽減)","[ID] = '3'"),
   DLookUp("[T消費税率].[消費税率]","T消費税率","[ID] = '3'")
  ),
  IIF([税率]="軽減",
   DLookUp("[T消費税率(軽減)].[消費税率]","T消費税率(軽減)","[ID] = '2'"),
   DLookUp("[T消費税率].[消費税率]","T消費税率","[ID] = '2'")
  )
 ),
 IIF([税率]="軽減",
  DLookUp("[T消費税率(軽減)].[消費税率]","T消費税率(軽減)","[ID] = '1'"),
  DLookUp("[T消費税率].[消費税率]","T消費税率","[ID] = '1'")
 )
)

１２．売上日・商品毎に税率を適用し，実際の税込金額を表示

税込金額(売上日考慮): IIf(
 Format([売上日],"yyyy/mm/dd")>="2014/04/01",
 IIf(
  Format([売上日],"yyyy/mm/dd")>="2015/10/01",
  IIF([税率]="軽減",
   [単価]*[数量]*0.01*(100+DLookUp("[T消費税率(軽減)].[消費税率]","T消費税率(軽減)","[ID] = '3'")),
   [単価]*[数量]*0.01*(100+DLookUp("[T消費税率].[消費税率]","T消費税率","[ID] = '3'"))
  ),
  IIF([税率]="軽減",
   [単価]*[数量]*0.01*(100+DLookUp("[T消費税率(軽減)].[消費税率]","T消費税率(軽減)","[ID] = '2'")),
   [単価]*[数量]*0.01*(100+DLookUp("[T消費税率].[消費税率]","T消費税率","[ID] = '2'"))
  )
 ),
 IIF([税率]="軽減",
  [単価]*[数量]*0.01*(100+DLookUp("[T消費税率(軽減)].[消費税率]","T消費税率(軽減)","[ID] = '1'")),
  [単価]*[数量]*0.01*(100+DLookUp("[T消費税率].[消費税率]","T消費税率","[ID] = '1'"))
 )
)