ابتدا متغیری را به نام dtNow از نوع DateTime.Now تعریف میکنیم
Dim dtNow As DateTime = DateTime.Now
10/16/2006 10:11:56 AM litNow.Text = dtNow.ToString
10/16/2006 litDate.Text = dtNow.Date
10/16/2006 litToday.Text = dtNow.Today
10/16/2006 litToShortDateString.Text = dtNow.ToShortDateString
10:11 AM litToShortTimeString.Text = dtNow.ToShortTimeString
Monday, October 16, 2006 litToLongDateString.Text = dtNow.ToLongDateString
10:11:56 AM litToLongTimeString.Text = dtNow.ToLongTimeString
10/16/2006 2:11:56 PM litToUniversalTime.Text = dtNow.ToUniversalTime
289 litDayOfYear.Text = dtNow.DayOfYear
1 litDayOfWeek.Text = dtNow.DayOfWeek
10 litDay.Text = dtNow.Month
16 litDay.Text = dtNow.Day
2006 litDay.Text = dtNow.Year
10/17/2006 10:11:56 AM litAddDays.Text = dtNow.AddDays(1)
10/16/2006 11:11:56 AM litAddHours.Text = dtNow.AddHours(1)
10/16/2006 10:12:06 AM litAddMilliseconds.Text = dtNow.AddMilliseconds(10000)
10/16/2006 10:12:56 AM litAddMinutes.Text = dtNow.AddMinutes(1)
11/16/2006 10:11:56 AM litAddMonths.Text = dtNow.AddMonths(1)
10/16/2006 10:11:57 AM litAddSeconds.Text = dtNow.AddSeconds(1)
10/17/2006 1:58:36 PM litAddTicks.Text = dtNow.AddTicks(1000000000000)
10/16/2007 10:11:56 AM litAddYears.Text = dtNow.AddYears(1)
10/15/2006 10:11:56 AM litAddNegDays.Text = dtNow.AddDays(-1)
10/16/2005 10:11:56 AM litAddNegYears.Text = dtNow.AddYears(-1)
