[VB6] Come formattare le date?

[printlist]

[VB6]

Salve ragazzi ho un problemino con le date,ho già letto gli altri articoli ma non ho avuto alcun chiarimento ,questo è il codice che ho usato.


Private Sub Command1_Click()
Dim itmX As ListItem
Dim DB As Database
Dim sQL As String
ListView1.ListItems.Clear
sQL = "select * from Rubrica where [DataChiusura] BETWEEN #" & (Text1.Text) & "#And #" & (Text2.Text) & "#"

Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set RS = DB.OpenRecordset(sQL)
Do Until RS.EOF
Set itmX = ListView1.ListItems.Add()

With RS
itmX.Text = .Fields("ID")
itmX.SubItems(1) = .Fields("O_F")
itmX.SubItems(2) = .Fields("Piano")
itmX.SubItems(3) = .Fields("Call_Center")
itmX.SubItems(4) = .Fields("Operatore_SIT")
itmX.SubItems(5) = .Fields("DataApertura")
itmX.SubItems(6) = .Fields("DataChiusura")

RS.MoveNext
End With
Loop
End Sub

[MdE2005]

Ma qual'è realmente il problema riscontrato? Viene restituito un errore? Non dà errori ma non funziona?
Così ha poco senso..

[printlist]

No non da nessun errore ,se non giro il mese con il giorno non ottengo i record filtrati.

[MdE2005]

Se il mese e il giorno le inserisci nelle due textbox chiaramente basterebbe invertirle..
Ammettiamo che la data completa sia contenuta in una variabile denominata data:

Dim Data As Date, Giorno As Byte, Mese As Byte, Anno As Double
Data = "01-02-03"
Anno = Mid(Data, 7, 4)
Mese = Mid(Data, 1, 2)
Giorno = Mid(Data, 4, 2)
Data = Giorno & "/" & Mese & "/" & Anno
MsgBox Data

Prova a vedere se fa al caso tuo; in caso contrario spiegami cosa contengono le due textbox..ok?

ciao

[power.mobile]

il problema è stato affrontato in un post qualche giorno fa...
il linguaggio SQL nella clausola WHERE accetta solo date in formato americano, cioè: mm/dd/yyyy. adesso per formattare la tua data basta usare la funzione format che ti restituisce la data in base al formato che vuoi tu.
in questo caso:

"SELECT * FROM tuatabella WHERE data=#" & Format(txtdata, "mm/dd/yyyy") & "#"

spero di essermi spiegato bene... ciao ciao

[printlist]

Grazie mille anche se in ritardo!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!