[Resolvido]Ajuda Definindo Competência através de Função

Pessoal, bom dia.
Preciso definir a competência dentro do período de 25 a 26 de todo mês.
Ao invés de todo mês eu alterar a consulta para esses dias, quero definir através de função as competência.

Como SeImed tem limitação estou tentando eu mesmo criar a função, mas não estou tendo sucesso e conto com a experiência de vocês.
Abaixo está o que estou tentando fazer, porém só retorna 0.

Poderiam me apontar o erro?

Código:

Public Function DTComp(DATA_RESGATE As String) As String

Select Case DATA_RESGATE
  
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 1: DTComp = 2
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 1: DTComp = 1
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 2: DTComp = 3
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 2: DTComp = 2
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 3: DTComp = 4
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 3: DTComp = 3
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 4: DTComp = 5
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 4: DTComp = 4
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 5: DTComp = 6
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 5: DTComp = 5
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 6: DTComp = 7
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 6: DTComp = 6
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 7: DTComp = 8
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 7: DTComp = 7
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 8: DTComp = 9
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 8: DTComp = 8
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 9: DTComp = 10
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 9: DTComp = 9
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 10: DTComp = 11
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 10: DTComp = 10
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 11: DTComp = 12
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 11: DTComp = 11
   Case Day([DATA_RESGATE]) >= 26 And Month([DATA_RESGATE]) = 12: DTComp = 1
   Case Day([DATA_RESGATE]) <= 25 And Month([DATA_RESGATE]) = 12: DTComp = 12
  
   Case Else
    DTComp = 0
    
End Select

End Function


Bom dia,

As vezes as coisas são mais simples que parecem:

Código:

Public Function DTComp(ByVal DATA_RESGATE As String)
    If Day(DATA_RESGATE) < 26 Then
        DTComp = Month(DATA_RESGATE)
    Else
        DTComp = Month(DATA_RESGATE) + 1
        If DTComp = 13 Then DTComp = 1
    End If
End Function

Abraço.

Bom dia Cassio,
Funcionou perfeitamente.
E de fato as coisas ficaram muito mais simples HAHAHA.

Obrigado.

Resolvido.

Olá a todos,

Antonio Ferraz, seja Bem-vindo ao fórum MaximoAccess

Concordo com o colega Cassio Fabre, está demonstrado, parabéns.