Funzioni DateTime per la gestione delle date
<%@ Page Language="vb" %>
<%@ Import Namespace="System.Text" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<script runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dtNow As DateTime = DateTime.Now
Dim sb As StringBuilder = New StringBuilder
sb.Append("Oggi è: " & dtNow.ToString & "<br><br>")
sb.Append("<table border=1>")
sb.Append("<tr><td>METODO</td><td>OUTPUT</td></tr>")
sb.Append("<tr><td>ToString</td><td>" & dtNow.ToString & "</td></tr>")
sb.Append("<tr><td>Date</td><td>" & dtNow.Date & "</td></tr>")
sb.Append("<tr><td>Today</td><td>" & dtNow.Today & "</td></tr>")
sb.Append("<tr><td>ToShortDateString</td><td>" & dtNow.ToShortDateString & "</td></tr>")
sb.Append("<tr><td>ToShortTimeString</td><td>" & dtNow.ToShortTimeString & "</td></tr>")
sb.Append("<tr><td>ToLongDateString</td><td>" & dtNow.ToLongDateString & "</td></tr>")
sb.Append("<tr><td>ToLongTimeString</td><td>" & dtNow.ToLongTimeString & "</td></tr>")
sb.Append("<tr><td>ToUniversalTime</td><td>" & dtNow.ToUniversalTime & "</td></tr>")
sb.Append("<tr><td>DayOfYear</td><td>" & dtNow.DayOfYear & "</td></tr>")
sb.Append("<tr><td>DayOfWeek</td><td>" & dtNow.DayOfWeek & "</td></tr>")
sb.Append("<tr><td>Month</td><td>" & dtNow.Month & "</td></tr>")
sb.Append("<tr><td>Day</td><td>" & dtNow.Day & "</td></tr>")
sb.Append("<tr><td>Year</td><td>" & dtNow.Year & "</td></tr>")
sb.Append("<tr><td>AddDays(1)</td><td>" & dtNow.AddDays(1) & "</td></tr>")
sb.Append("<tr><td>AddHours(1)</td><td>" & dtNow.AddHours(1) & "</td></tr>")
sb.Append("<tr><td>AddMinutes(1)</td><td>" & dtNow.AddMinutes(1) & "</td></tr>")
sb.Append("<tr><td>AddMonths(1)</td><td>" & dtNow.AddMonths(1) & "</td></tr>")
sb.Append("<tr><td>AddSeconds(1)</td><td>" & dtNow.AddSeconds(1) & "</td></tr>")
sb.Append("<tr><td>AddYears(1)</td><td>" & dtNow.AddYears(1) & "</td></tr>")
sb.Append("<tr><td>AddDays(-1)</td><td>" & dtNow.AddDays(-1) & "</td></tr>")
sb.Append("<tr><td>AddYears(-1)</td><td>" & dtNow.AddYears(-1) & "</td></tr>")
sb.Append("</table>")
lbDatetime.Text = sb.ToString()
End Sub
</script>
<body>
<form id="Form1" method="post" runat="server">
<asp:Label id="lbDatetime" runat="server"></asp:Label>
</form>
</body>
</HTML>
Scarica il Codice...
Stampa la pagina