1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim date01, date02 As String
Dim dat, dat2 As Date
Dim jour, mois, an, j, m, a As Integer
date01 = Me.DateTimePicker1.Text
date02 = Me.DateTimePicker2.Text
jour = Me.DateTimePicker1.Value.Day
mois = Me.DateTimePicker1.Value.Month
an = Me.DateTimePicker1.Value.Year
j = Me.DateTimePicker2.Value.Day
m = Me.DateTimePicker2.Value.Month
a = Me.DateTimePicker2.Value.Year
dat = CDate(String.Format(jour & "/" & mois & "/" & an, "dd/MM/yyyy"))
dat2 = CDate(String.Format(m & "/" & j & "/" & a, "dd/MM/yyyy"))
sql = "select saisi.* from saisi where saisi.dat_sai between #" & dat & "# and #" & dat2 & "# " |
Partager