[Resolvido]Listar todas as datas em um intervalor de data inicial e final

Olá Mestre,

Veja se isso ajuda.

Abraços

Substitua o código do botão Visualizar por conteúdo abaixo (mais completo).


Dim DataInicial As Date
Dim DataFinal As Date
Dim DataAtual As Date
Dim i As Integer

' Verificar se campos estão preenchidos

' Verifique se o campo de DataInicial está vazio ou não é uma data válida
   If IsNull(Data_Inicial) Or Not IsDate(Data_Inicial) Then
       MsgBox "Por favor, insira uma data válida em Data Inicial.", vbExclamation
       Me.Data_Inicial.SetFocus
       Exit Sub
   End If

' Verifique se o campo de DataFinal está vazio ou não é uma data válida
   If IsNull(Data_Final) Or Not IsDate(Data_Final) Then
       MsgBox "Por favor, insira uma data válida em Data Final.", vbExclamation
       Me.Data_Final.SetFocus
       Exit Sub
   End If
' Obtenha as datas de DataInicial e DataFinal a partir dos controles do formulário
   DataInicial = Me.Data_Inicial.Value
   DataFinal = Me.Data_Final.Value

' Limpe a ListBox (ou outra lista) antes de adicionar as datas
   Me.LstDatas.RowSource = ""

' Inicialize a variável i
   i = 0

' Loop pelas datas entre DataInicial e DataFinal
   DataAtual = DataInicial
   Do While DataAtual <= DataFinal
' Adicione a data à lista
       Me.LstDatas.AddItem DataAtual
' Incremente a variável i
       i = i + 1
' Adicione 1 dia à DataAtual
       DataAtual = DateAdd("d", 1, DataAtual)
   Loop

' Se datas sequenciais invertidas
   If i = 0 Then
       MsgBox "Não há datas entre o intervalo fornecidos erradamente.", vbInformation
   End If


Muito Grato

Abraços

Obrigado pelo retorno. Que bom que deu certo. Abraço.