[Resolvido]Intervalo de Datas

Bom dia quero que apareça no meu formulário um intervalo de datas semanal

estou tentando assim

    Me.dtaini = DateSerial(Year(date), Month(date), 1)
   Me.dtafim = DateSerial(Year(date), Month(date) + 1, 0) mas, assim me retorna um mês

Como fazer para retornar a semana do mês atual ?

Me.dtini = esovidoDateSerial(Year(date), Day(date), 1)
   Me.dtfinal = DateSerial(Year(date), Day(date) + 1, 0)
também não funciona

Up

Boa tarde, se é o intervalo em semanas das duas datas,
tente assim:
Obs: Me.SeuTexBox pode ser qualquer lugar onde queira aprensentar esse resultado.

Código:

 Me.SeuTextBox = DateDiff("ww", Me.dtaini, Me.dtafim)

Olá Marcelo
aqui não funcionou
coloquei no evento ao carregador do form

Poste o código do evento Ao carregar, por favor...

Private Sub Form_Load()
Me.txtIntervalo = DateDiff("ww", Me.dtini, Me.dtfinal)
End Sub

Os campos Me.dtaini e Me.dtafim,
já carregam com as datas?

Pois o código só deve ser executado após
os campo estarem preenchidos...

São campos desacoplados e coloquei como valor padrão  data()

minha intenção é que ao abrir o Formulário já apareça o intervalo de datas da semana vigente.

Então o código que passei fica mais apropriado no evento ao abrir.

Só não funcionou porque no evento ao carregar, o valor padrão ainda não foi definido...

Esse código, como falei, deve ser executado após as datas terem sido carregadas.

é necessário que o campo dtini e dtfinal esteja associado a uma tabela ou não?

Não, mas é necessário que eles estejam preenchidos...
Preencha os campos antes de chamar o código que passei e verás que irá funcionar. Pois DateDiff precisa da data inicial e final que podem serem vindos de qualquer lugar, como variáveis, textbox, caption, etc, para assim poder calcular...

Olá Marcelo ,talves não tenha compreendi bem minha duvida ,eu pretendo apenas apresentar no formulário o intervalo de datas da semana vigente .
Exemplo

Periodo semana Vigente 29/10/2018 a 03/11/2018

Se é de dias, basta informar no datediff que é em dias, assim:

Me.txtIntervalo = DateDiff("d", Me.dtini, Me.dtfinal),
e usando a data que você exemplificou (29/10/2018 a 03/11/2018)
, irá retornar 5 dias.


Veja no exemplo, pus inclusive as datas no valor padrão, e testei com sucesso.

Pelo que eu estou entendendo você quer fornecer a primeira data e então calcular a segunda. Neste caso a função correta é DateAdd que adiciona. Seria algo assim:

Código:

Me.dtfinal = DateAdd("ww", 1, Me.dtini)

Na linha acima o Access soma 1 semana (Week) à dtini e joga o resultado em dtfinal.

Se quiser somar 1 mês (Month)

Código:

Me.dtfinal = DateAdd("m", 1, Me.dtini)

Se quiser 1 ano (Year)

Código:

Me.dtfinal = DateAdd("y", 1, Me.dtini)

A documentação da MS está aqui
https://support.office.com/en-us/article/dateadd-function-63befdf6-1ffa-4357-9424-61e8c57afc19


A função DateDiff serve para calcular a diferença entre duas datas.

Obrigado Aos amigos Marcelo David e Thiagomcosta

Consegui adptar o exemplo do amigo Marcelo

Grato pelo retorno!