| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 
 | Dim StartDate As DateTime = Convert.ToDateTime(MainDataSource.CreateNavigator().SelectSingleNode("/my:mesChamps/my:DateDebut", NamespaceManager).Value)
            Dim EndDate As DateTime = Convert.ToDateTime(MainDataSource.CreateNavigator().SelectSingleNode("/my:mesChamps/my:DateFin", NamespaceManager).Value)
            Dim DateDifference As TimeSpan = EndDate.Subtract(StartDate)
            Dim diff As String = DateDifference.Days.ToString()
            diff = diff + 1
            MainDataSource.CreateNavigator().SelectSingleNode("/my:mesChamps/my:Diff", NamespaceManager).SetValue(diff)
            Dim dateEnCours As DateTime
            Dim dateTexte As String
            While diff > 0
                diff = diff - 1
                dateEnCours = StartDate.AddDays(diff)
                dateTexte = dateEnCours.ToString()
 
                MainDataSource.CreateNavigator().SelectSingleNode("/my:mesChamps/my:Date" & diff, NamespaceManager).SetValue(dateTexte)
 
            End While | 
Partager