[Resolvido]recorrente semanal numero da semana

Olá mestres, mais uma vez venho recorrer aos seus conhecimentos de VBA, tenho um formulário onde insiro os dados dos titulos e gostaria que ao apertar o botão recorrente além de inserir as datas colocasse a semana correspondente

arquivo para conferencia

O que seria a semana correspondente?

Acho que seja a semana correspondente do ano

Código:

datediff("ww",dateserial(year(date),1,1),date,vbSunday,vbFirstFourDays)

A semana que me refiro é correspondente a semana do ano mesmo que são 52 semanas. O codigo do Ivan funcionou apenas tem uma questão ele colocou em todas parcelas a semana que estamos não evoluiu junto com as datas

Só mostrei como conseguir a semana referente do ano, minha ideia era que você estudasse a função e a adaptasse


datediff("ww",dateserial(year(date),1,1),SeuCampoData,vbSunday,vbFirstFourDays)

Substitua a parte em vermelho pela data que queres saber a que semana pertence

Ok Ivan sua idéia foi bem captada estudei e tentei de varias formas , mas não consegui ainda consegui que ela mostrasse aparir de uma data que é a data da primeira parcela , mas daí ele me mostra a semna seguinte a ea como primeira ou seja a semana que deveria ser a 2 ele me ostra como 6.
Veja bem eu coloquei dessa maneira que demonstra mas não rolou , lembrando que ele esta dentro de um recordset e seu codigo foi colocado como semana a partir da data de vencimento

Se for a diferença em semanas da data da primeira parcela para as datas das demais parcelas, então seria

datediff("ww",DataPrimeiraParcela,DataParcelaTalTal,vbSunday,vbFirstFourDays)

eu coloco a data da primeira parcela e ele faz as outras pelo comando "For"

Deu certo? Se ainda não, anexe o BD com os objetos envolvidos e o passo a passo de como queres para que a solução seja encontrada.

Está anexado lá no começo, quero que quando clicar em recorrente ele insira no mes o nome do mes e na semana o numero correspondente a semana do ano é isso.

Tente

Código:

DateDiff("ww", DateSerial(Year(Rs("VENCIMENTO")), 1, 1), Rs("VENCIMENTO"), vbSunday, vbFirstFourDays)

Explicação:
"ww" = diferença em semanas
Year(Rs("VENCIMENTO")) = capturando o ano da data de vencimento, afinal, queres a semana do ano da data de vencimento
DateSerial(Year(Rs("VENCIMENTO")), 1, 1) = garantindo o primeiro de janeiro do ano da data de vencimento como a data inicial
Rs("VENCIMENTO") = data de vencimento como data final
vbSunday = dizendo que o domingo deve ser considerado o primeiro dia da semana
vbFirstFourDays = dizendo que a primeira semana deve ser aquela que tem pelo menos quatro dias já dentro do ano
DateDiff("ww", DateSerial(Year(Rs("VENCIMENTO")), 1, 1), Rs("VENCIMENTO"), vbSunday, vbFirstFourDays) = diferença em semanas entre o primeiro dia do ano da data de vencimento e o dia do vencimento

aguardo retorno

Ivan ele continua me dando a primeira semana como 6 sendo qu coloquei 01/01/2019 no vencimento em 12 parcelas para fazer o ano , começa com 6 ,desculpe charopear sou leigo e preciso estudar mais.
Agora está quase certo, mas acho que ele deve pensar que a primeira semana não conta porque 1 de janeiro de 2019 é terça ele deve estar contando apartir da segunda semana por ser domingo o inicial da semana

Nada melhor do que o passo a passo.

Vamos fazer assim. Sei que já colocou na sua segunda mensagem mas anexe aqui o arquivo já com a adaptação que você fez do código que passei e me dê o passo a passo do que eu devo fazer, de qual formulário tenho que abrir, quais valores devo inserir e em quais campos e onde devo conferir se tudo correu bem, e de como tem que ser.

Ivan Resolvi coloque uma soma de mais 1 no fim da formula e funcionou, só não sei nos outros anos , mas vou daptando , RESOLVIDO meu amigo , muito grato a sua ajuda

Opa... ótimo. Mas se em outros anos der problema torne a voltar e reabrir o tópico que eu ou um dos colegas ajudaremos. O intuito é que você aprenda assim como a gente também enquanto enfrentamos diversas situações que surgem. Obrigado pelo retorno. Sucesso.