برخی اعمال متدوال روی تاریخ میلادی
https://barnamenevis.org/showpo...0&postcount=58
' // Create a TimeSpan representing 2.5 days.
Dim timespan1 As TimeSpan = New TimeSpan(2, 12, 0, 0)
'// Create a TimeSpan representing 4.5 days.
Dim timespan2 As TimeSpan = New TimeSpan(4, 12, 0, 0)
'// Create a TimeSpan representing 1 week.
Dim oneWeek As TimeSpan = timespan1 + timespan2
'// Create a DateTime with the current date and time.
Dim now As DateTime = DateTime.Now
'// Create a DateTime representing 1 week ago.
Dim past As DateTime = now - oneWeek
'// Create a DateTime representing 1 week in the future.
Dim future As DateTime = now + oneWeek
مثال : پیدا کردن اختلاف تعداد روزهای بین دو تاریخ :
کد:
Dim dateFrom As DateTime = DateTime.Parse("10/10/2007")
Dim dateTo As DateTime = DateTime.Parse("11/12/2007")
Dim ts As TimeSpan = dateTo - dateFrom
Dim days As Integer = ts.Days
و یا :
کد:
Dim dtFirst As DateTime = New DateTime(2007, 10, 10)
Dim dtSecond As DateTime = New DateTime(2007, 11, 12)
Dim diffResult As TimeSpan = dtSecond.Subtract(dtFirst)
