1 2 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