Como pegar registros que estão entre uma data INICIAL e uma data FINAL.
Tentei a rotina abaixo mas ele trata as variáveis como números inteiros, ou seja não

funcionou...........

Dim i as Integer
Dim a as String
Dim Inicial as Date
Dim Final as Date

'DATA INICIAL
Text1.Text = "05/02/2006"
'DATA FINAL
Text2.Text = "10/02/2006"

Inicial = Text1.Text
Final = Text2.Text

'Carrega List1 com 20 dias do mês Fevereiro
For i = 1 to 20
a = i
if a < 10 then a = "0" & i
List1.additem a & "/02/2006"
Next i

'Carrega List2
For i = 1 to 20
List1.ListIndex = i
If List1.Text >= Inicial and List1.Text <= Final then List2.additem List1.Text
Next i

 

Obrigado, um abraço e até mais.

 

Smir9

Se vc quiser pegar um intervalo tenta assim:

**********************************************************

Dim DifDias As Long
Dim DataI As Date

DifDias = DateDiff("D", Data_Inicial, Data_Final) 'Diferenca de dias entre 2 datas

DataI = Data_Inicial 'Sendo Data_Inicial o valor de uma caixa de texto por exemplo

 

For I = 0 To DifDias
   List1.AddItem DataI
   DataI = DataI + 1
Next

***************************************************

 

Qq dúvida é só postar

 

t+

 

Mudei algumas coisas e funcionou direitinho.

 

 

Dim i As Integer
Dim a As String
Dim Inicial As Date
Dim Final As Date

Private Sub Command1_Click()

List1.Clear
List2.Clear

Inicial = Text1.Text
Final = Text2.Text

'Carrega List1 com 20 dias do mês Fevereiro
For i = 1 To 20
a = i
If a < 10 Then a = "0" & i
List1.AddItem a & "/02/2006"
Next i

'Carrega List2
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text >= Inicial And List1.Text <= Final Then List2.AddItem List1.Text
Next i

End Sub