一応書いておくか

テキストフィールド　入力年月日「r1/6/20」
から抽出する　年、月、日　の計算式フィールドを作る
年の例　
MiddleWords(Substitute(Middle(入力年月日, 2, 10), "/", "　"),1,1)

で西暦日付変換する計算式フィールド
TextToDate(
Case(
Left( 入力年月日 , 1 ) = "r" , 2018 + 抽出年 ,
Left( 入力年月日 , 1 ) = "h" , 1988 + 抽出年 ,
Left( 入力年月日 , 1 ) = "s" , 1925 + 抽出年 ,
Left( 入力年月日 , 1 ) = "t" , 1911 + 抽出年 ,
Left( 入力年月日 , 1 ) = "m" , 1886 + 抽出年
)
&"/" & 抽出月 & "/" & 抽出日 )