<script language="vb" runat="server"> Sub Page_Load(Sender as Object, E as EventArgs) dim strshortDate as String = System.DateTime.Now.ToShortDateString() shortDate.Text = "Short Date: " & strshortDate
dim strLongDate as String = System.DateTime.Now.ToLongDateString() longDate.Text = "Long Date: " & strLongDate
dim strshortTime as String = System.DateTime.Now.toShortTimeString() shortTime.Text = "Short Time: " & strshortTime
dim strlongtime as String = System.DateTime.Now.ToLongtimeString() longTime.Text = "Long Time: " & strlongtime
dim stradddays as String = cstr(System.DateTime.Today.AddDays(+15)) addDays.Text = "Add 15 days: " & stradddays
dim strSubTractDays as String = cstr(System.DateTime.Today.AddDays(-15)) subtractDays.Text = "Subtract 15 Days: " & strSubtractDays End Sub </script>