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]Extrair domingos

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3199
    Registrado : 06/11/2009

    [Resolvido]Extrair domingos

    Mensagem  Assis em Sab 27 Jan 2018, 22:18

    Boa noite Amigos

    No exemplo abaixo como extrair os domingos do intervalo entre "DI" e Data1.

    O "Di" é sempre o primeiro dia do mês corrente.

    O Data1 é o último dia da tabela MaxData


    Private Sub Form_Current()

    Dim Data1 As Date
    Di = DateSerial(Year(Me.Data), Month(Me.Data), 1)
    Data1 = DMax("[maxdedatarec]", "MaxData")
    Me.Dif = DateDiff("d", Di, Data1) + 1

    End Sub


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3199
    Registrado : 06/11/2009

    Re: [Resolvido]Extrair domingos

    Mensagem  Assis em Dom 28 Jan 2018, 00:26

    Com a função abaixo contei os domingos entre as datas

    Public Function ContaDomingo(Di As Date, DATA1 As Date) As Long
    'By JPaulo ®️ Maximo Access
    Dim ContaDias As Long
    Dim PercorreDatas As Date
    Dim inConta As Long

    ContaDias = 0
    For PercorreDatas = Di To DATA1
    inConta = Weekday(PercorreDatas)
    If inConta = 1 Then
    ContaDias = ContaDias + 1
    End If
    Next PercorreDatas
    ContaDomingo = ContaDias
    End Function


    E depois

    Me.Dif = (DateDiff("d", Di, Data1) + 1) - txtDomingo

    txtDomingo é o campo que recebe o numero de domingos

    Bom domingo para todos


    Obrigado




    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Sab 24 Fev 2018, 00:33