MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    FrrzJr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 06/01/2017

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

    Mensagem  FrrzJr em Seg Jun 04, 2018 6:00 am

    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
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

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

    Mensagem  CassioFabre em Seg Jun 04, 2018 6:20 am

    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.


    .................................................................................
    Só não tem código pra morte!

    FrrzJr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 06/01/2017

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

    Mensagem  FrrzJr em Seg Jun 04, 2018 6:25 am

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

    Obrigado.

    FrrzJr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 06/01/2017

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

    Mensagem  FrrzJr em Seg Jun 04, 2018 6:27 am

    Resolvido.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5496
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Seg Jun 04, 2018 6:32 am

    Olá a todos,

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

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

    cheers

      Data/hora atual: Ter Set 25, 2018 7:29 pm