Various methods of setting Date values to a string

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