Seimed entre duas datas

Boa noite!

Preciso de uma ajuda para identificar aonde estou errando no parâmetro abaixo;

Preciso fazer o seguinte resultado.

[DATA] = exemplo;
10/05/2023
21/05/2023

expr1: SeImed([Mensal_avulso]=1;SeImed([data]>=DataSerial(Ano([data]);Mês([data])-2;21) E [data]<=DataSerial(Ano([data]);Mês([data])-1;20);Format(Mês(Data())));Format(Mês([datapagto])))

onde  [Mensal_avulso] for =1,

o campo [expr1] se a [data] estiver dentro do periodo 21 do mês anterior e 20 do mesmo mês, mostre como sendo o mês seguinte;
Exemplo: 10/05/2023 - está entre do dia 21/04 e 20/05, entao mostre, Mês 6.
Exemplo2: 21/05/2023 - está depois do dia 20/05, então mostre, Mês 7

Boa tarde
Reveja as suas dúvidas que deixou por dar continuidade aos colegas que o tentaram ajudar.
Sobre esta dúvida, criei esta função:

Código:

Function NrMesFabioR(dtData As Date) As Byte
    '--------------------------------------------------------------'
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    '--------------------------------------------------------------'
    If Day(dtData) > 20 Then NrMesFabioR = Month(dtData) + 2 Else NrMesFabioR = Month(dtData) + 1
End Function

Obrigado pela Ajuda Alexandre, mas fiquei em dúvida de como utilizar em uma consulta.

Boa tarde
Utilize como outra função nativa do Access, chame-a por NrMesFabioR e coloque o argumento de dtData

Bom dia Alexandre!

Tentei de todas as formas fazer funcionar, mas nao consegui.

Por gentileza, abusando do seu tempo, mandei uma cópia do BD para que me ajude a implantar.