Formatting Dates

Posted by David Wier on 04/23/10 | Code Samples

This sample shows the different ways we can format dates, using ASP.Net. Just pick a format type from the listbox, and the details about that particular formatting will appear on the right.

‘ Code Behind:
    Dim myDate As DateTime
    Protected Sub Page_Load(ByVal Source As Object, ByVal E As EventArgs)
        myDate = DateTime.Now
        If Not Page.IsPostBack Then
            lbDate.Items.Add(New ListItem("Short Date Format", "d"))
            lbDate.Items.Add(New ListItem("Long Date Format", "D"))
            lbDate.Items.Add(New ListItem("Short Time Format", "t"))
            lbDate.Items.Add(New ListItem("Long Time Format", "T"))
            lbDate.Items.Add(New ListItem("Full Date/Time Format (Short time)", "f"))
            lbDate.Items.Add(New ListItem("Full Date/Time Format (Long time)", "F"))
            lbDate.Items.Add(New ListItem("General Date/Time Format (Short time)", "g"))
            lbDate.Items.Add(New ListItem("General Date/Time Format (Long time)", "G"))
            lbDate.Items.Add(New ListItem("Month day format", "m"))
            lbDate.Items.Add(New ListItem("RFC 1123 format", "r"))
            lbDate.Items.Add(New ListItem("Sortable date/time format", "s"))
            lbDate.Items.Add(New ListItem("Universable sortable date/time “ & _
                “format (short)", "u"))
            lbDate.Items.Add(New ListItem("Universable sortable date/time “ & _
                “format (long)", "U"))
            lbDate.Items.Add(New ListItem("Year Month", "Y"))
        End If
    End Sub


    Protected
Sub doDate(ByVal Source As Object, ByVal E As EventArgs)
        If lbDate.SelectedItem.Value <> "None" Then
            lblPattern.Text = lbDate.SelectedItem.Value
            lblType.Text = lbDate.SelectedItem.Text
            lblOutput.Text = "String.Format(""{0:" & _
                lbDate.SelectedItem.Value & "}"", Item)"
            lblExample.Text = String.Format("{0:" & _
                lbDate.SelectedItem.Value & "}", myDate)
        End If
    End Sub
‘ ASPX page:
<%@ Page Language="VB" %>
<html>
<head>
    <title>Formatting Dates</title>
</head>
<body>
    <form id="form1" runat="server">
    <table>
        <tr>
            <td align="Left" valign="Top" rowspan="5">
                <i><b>Select Formatting Type:</b></i><br>
                <asp:ListBox ID="lbDate" AutoPostBack="True"
                    OnSelectedIndexChanged="doDate" runat="server" />
            </td>
        </tr>
        <tr>
            <td align="Right" valign="Top">
                <b>Format Pattern:</b>
            </td>
            <td align="Left" valign="Top">
                <asp:Label ID="lblPattern" runat="server" />
            </td>
        </tr>
        <tr>
            <td align="Right" valign="Top">
                <b>Format Type:</b>
            </td>
            <td align="Left" valign="Top">
                <asp:Label ID="lblType" runat="server" />
            </td>
        </tr>
        <tr>
            <td align="Right" valign="Top">
                <b>Output: </b>
            </td>
            <td align="Left" valign="Top">
                <asp:Label ID="lblOutput" runat="server" />
            </td>
        </tr>
        <tr>
            <td align="Right" valign="Top">
                <b>Example: </b>
            </td>
            <td align="Left" valign="Top">
                <asp:Label ID="lblExample" runat="server" />
            </td>
        </tr>
    
</table>
    </form>
</body>
</html>





























0 Comments

COMMENTS

Name:
URL:
Comment:

Comments are disabled for this article.