|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Pegar registros que estão entre duas Datas
|
 |
|
|
|
Postada em 4/5/2006 por Smir9
No Form. coloque List1, List2, Command1, Text1 e Text2
Agora digite ou cole o código abaixo.
Dim i As Integer
Dim a As String
Dim Inicial As Date
Dim Final As Date
Private Sub Command1_Click()
List1.Clear
List2.Clear
'Pegará todas datas entre 05 de fevereiro e 17 de fevereiro
Text1.Text= "05/02/2006"
Text2.Text= "17/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 = 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
Um abraço
Sérgio Smir9
|
|
|
|
|
