Página 1 de 1

Função que altera data de 2 em 2 meses

Enviado: Qua Mai 15, 2019 12:26 pm
por flaviaS1erro
Olá,

Eu preciso de uma função que retorne duas datas com intervalo de 3 meses entre cada uma, por exemplo 01/03/2019 a 01/06/2019... até aí blz, eu consigo fazer;

Porém, preciso fazer com que essa data atualize automaticamente, de dois em dois meses tbm
por exemplo 01/03/2019 a 01/06/2019... quando estivermos no dia 01/06/2019, ele começa a consultar 01/06/2019 a 01/09/2019 .. quando for 01/09/2019.. ele consulta de 01/09/2019 a 01/11/2019 e assim sucessivamente.
Ele retorna em string, o resultado está sendo inserido em uma caixa de teste de um web scraping que to fazendo em um site.

Vou colocar o código que eu já tenho:


Function teste() ' que retorna de dois em dois meses

Dim dta As Date

dta = DateSerial(2019, 3, 1) ' retorna 01/03/2019
dt = DateAdd("m", 3, dta) ' retorna '01/06/2019
teste = dta & " e " & dt
Debug.Print teste

End Function

Re: Função que altera data de 2 em 2 meses

Enviado: Qua Mai 15, 2019 2:35 pm
por Reinaldo
Creio não haver entendido corretamente; qual o parâmetro para especificar o trimestre (ou bimestre) inicial?