本篇重點：

• 日期格式的轉換
• 時間區間計算
• Calendar 用法介紹

日期格式的轉換

1. 轉換為短日期格式 (MM/dd/yyyy)：

Dim dateValue As DateTime = DateTime.Now
Dim shortDate As String = dateValue.ToString("MM/dd/yyyy")

<br/>

2. 轉換為長日期格式 (dddd, MMMM d, yyyy)：

Dim dateValue As DateTime = DateTime.Now
Dim longDate As String = dateValue.ToString("dddd, MMMM d, yyyy")

<br/>

3. 轉換為自訂格式 (yyyy-MM-dd HH:mm:ss)：

Dim dateValue As DateTime = DateTime.Now
Dim customFormat As String = dateValue.ToString("yyyy-MM-dd HH:mm:ss")

<br/>

4. 轉換為時間 (HH:mm:ss)：

Dim dateValue As DateTime = DateTime.Now
Dim timeOnly As String = dateValue.ToString("HH:mm:ss")

<br/>

5. 轉換為簡寫日期格式 (M/d/yy)：

Dim dateValue As DateTime = DateTime.Now
Dim shortDateFormat As String = dateValue.ToString("M/d/yy")

<br/>

還有另一個更快速的方法，直接用 Today.ToString("yyyyMMdd")，也可以轉換成日期格式。

時間區間計算

1. 計算兩日期的天數

DateDiff(DateInterval.Day, CDate(過去的日期), CDate(今天或未來的日期))

2. 未來30天

DateAdd("d", +30, DateTime.Now).ToString("yyyy/MM/dd")

d = 日、m = 月、yyyy = 年; DateTime.Now 可以換成任一日期做計算。

Calendar 用法介紹

先在前端頁面拉一個 Calendar 的控制向。<br/>

前端程式：

<asp:Calendar ID="Calendar" runat="server"></asp:Calendar>
<br/>
<asp:Label ID="Label1" runat="server" Text=""></asp:Label>

後端程式：

 If Not Me.Page.IsPostBack Then
　　'點選後顯示在Label上
   Label1.Text = Calendar.SelectedDate.ToString("yyyy/MM/dd")
 End If