1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| If (jour_anc_echelle.SelectedIndex <> -1 And mois_anc_echelle.SelectedIndex <> -1 And annee_anc_echelle.SelectedIndex <> -1) Then
j_a_echelle = CInt(jour_anc_echelle.SelectedItem)
m_a_echelle = (mois_anc_echelle.SelectedIndex)
a_a_echelle = CInt(annee_anc_echelle.SelectedItem)
date_anc_echelle = New Date(a_a_echelle, m_a_echelle, j_a_echelle)
'Dim dateInMay As New System.DateTime(1993, 5, 31, 12, 14, 0)
End If
If (jour_anc_echelon.SelectedIndex <> -1 And mois_anc_echelon.SelectedIndex <> -1 And annee_anc_echelon.SelectedIndex <> -1) Then
j_a_echelon = CInt(jour_anc_echelon.SelectedItem)
m_a_echelon = (mois_anc_echelon.SelectedIndex)
a_a_echelon = CInt(annee_anc_echelon.SelectedItem)
date_anc_echelon = New Date(a_a_echelon, m_a_echelon, j_a_echelon)
End If
If (jour_nais.SelectedIndex <> -1 And mois_nais.SelectedIndex <> -1 And annee_nais.SelectedIndex <> -1) Then
j_nais = CInt(jour_nais.SelectedItem)
m_nais = (mois_nais.SelectedIndex)
a_nais = CInt(annee_nais.SelectedItem)
date_nais = New Date(a_nais, m_nais, j_nais)
End If
If (jour_recrut.SelectedIndex <> -1 And mois_recrut.SelectedIndex <> -1 And annee_recrut.SelectedIndex <> -1) Then
j_rec = CInt(jour_recrut.SelectedItem)
m_rec = (mois_recrut.SelectedIndex)
a_rec = CInt(annee_recrut.SelectedItem)
date_recrut = New Date(a_rec, m_rec, j_rec)
End If |
Partager