Microsoft Access 掲示板

hatena様この度はありがとうございました。
やっと書式設定で令和が対応できるようになりました。
ただ下記関数で求めたものが対応できないので
ご教示いただいた式で対応することとしました。
ありがとうございました。

Public Function 許可日(申請日 As Variant) As Variant
    Dim 営業日 As Long
    許可日 = 申請日
    If IsNull(許可日) Then Exit Function
    Do
        許可日 = 許可日 + 1
        Select Case Weekday(許可日)
        Case vbMonday To vbFriday
            If IsNull(DLookup("祝日名", "T_祝日", "日付=#" & 許可日 & "#")) Then
                営業日 = 営業日 + 1
            End If
        End Select
    Loop Until 営業日 = 2
End Function

クエリーで　出来上日:許可日(申請日)
　　　　　　出来日　: Switch([出来上日]>=#2020/01/01#,"令和" & Year([出来上日])-2018 &
                      Format([出来上日],"\年m\日d\日"),[申請日]>=#2019/05/01#,Format([出来上日],"""令和 1年""
                      m\日d\日"),True,Format([出来上日],"ggge\年m\日d\日"))