Access 日付の変換について

Question

Access
社内システムに「2020年1月1日」が「200101」と入力されています。
Accessを使用して、月次実績をを集計しているのですが、
提出資料には「2020/1/1」と表記しなければなりません。

現在、下記のような方法で関数を入れています。
（1~末日の集計を翌月に実施するため）
月がまたがった場合、前々の月の集計の場合は使用できないと思いますので、
他に方法はありますでしょうか。よろしくご指導お願いします。

left(DateAdd("m", -1, Now()),2)&left([日],2)&"/"&mid([日],3,2)&"/"&right([日],2)

Answer 1

何かを基準にして1900年代か2000年代を識別するしかありません。
仮に、1950～1999年を1900年代、2000～2049年を2000年代として扱い上２桁を補完する場合は以下の様になります。

iif(left([日], 2) < "50","20","19") & [日]

日付型に変換する場合は、

CDate(Format(iif(left([日], 2) < "50","20","19") & [日], "0000/00/00"))

Answer 2

「200101」を「2020/1/1」に変換するなら下記の関数でOK。

Format("20" & [日],"&&&&/&&/&&")

後の説明が何をしたいのかよく分かりませんが、上記の結果を1ヶ月前にしたいのなら、

DateAdd("m",-1,Format("20" & [日],"&&&&/&&/&&"))

Comments

[iwabuchi178]

早々のご回答、ありがとうございます。
また、文章力がなく、わかりずらく申し訳ありません。
2000年代ですといただいた回答で大丈夫なのですが、
1999年のデータを抽出したい場合、
「Format("20" & [日],"&&&&/&&/&&")」の
”20”を”19”に書き換える必要があるので、他に方法があればと思いました。
1999年1月1日だと、社内のデータは「990101」と表記されています。

[DreamTheater]

横からかつ質問者さんに逆質問です。
19XX年代のデータはシステムでどのように保持する（したい）のですか？
境界値でも設けない限りそもそも西暦下２桁では表現できないと思いますが？