日期、时间与格式化

12.1 DateTime 是什么？

DateTime 是 .NET 用来表示日期和时间的重要类型。它可以同时保存年、月、日、时、分、秒等信息。

Dim currentTime As DateTime = DateTime.Now
Dim today As DateTime = DateTime.Today

例如建立一个固定日期：

Dim courseDate As New DateTime(2026, 9, 15)

这里依次表示：

12.2 DateTime.Now 与 DateTime.Today

Dim nowValue As DateTime = DateTime.Now
Dim todayValue As DateTime = DateTime.Today

lblResult.Text =
    "现在：" & nowValue.ToString() & Environment.NewLine &
    "今天：" & todayValue.ToString()

12.3 取得年、月、日与时间部分

DateTime 提供很多属性，可以分别取得日期和时间组成部分：

Dim nowValue As DateTime = DateTime.Now

Dim yearValue As Integer = nowValue.Year
Dim monthValue As Integer = nowValue.Month
Dim dayValue As Integer = nowValue.Day
Dim hourValue As Integer = nowValue.Hour
Dim minuteValue As Integer = nowValue.Minute
Dim secondValue As Integer = nowValue.Second

12.4 日期加减

DateTime 提供非常方便的日期运算方法：

Dim today As DateTime = DateTime.Today

Dim tomorrow As DateTime = today.AddDays(1)
Dim nextWeek As DateTime = today.AddDays(7)
Dim nextMonth As DateTime = today.AddMonths(1)
Dim nextYear As DateTime = today.AddYears(1)

例如计算 30 天后的日期：

Dim dueDate As DateTime = DateTime.Today.AddDays(30)

12.5 TimeSpan：两个时间之间的差

两个 DateTime 相减，会得到一个 TimeSpan：

Dim startDate As New DateTime(2026, 8, 1)
Dim endDate As New DateTime(2026, 8, 11)

Dim difference As TimeSpan = endDate - startDate

lblResult.Text = "相差天数：" & difference.TotalDays.ToString()

这里结果是 10 天。

12.6 DateTimePicker 控件

Windows Forms 提供 DateTimePicker，让用户通过日期选择器输入日期，比要求用户手动输入日期文字更可靠。

从 Toolbox 拖入 DateTimePicker 后，可以通过：

Dim selectedDate As DateTime = dtpDate.Value

取得用户选择的日期。

常见设置：

12.7 标准日期与时间格式

和 Lesson 10、11 一样，可以调用 ToString()，但这次传入日期时间格式代码。

Dim nowValue As DateTime = DateTime.Now

Dim shortDate As String = nowValue.ToString("d")
Dim longDate As String = nowValue.ToString("D")
Dim shortTime As String = nowValue.ToString("t")
Dim longTime As String = nowValue.ToString("T")
Dim general As String = nowValue.ToString("g")

12.8 自定义日期时间格式

如果希望固定显示结构，可以使用自定义格式：

Dim nowValue As DateTime = DateTime.Now

lblResult.Text = nowValue.ToString("yyyy-MM-dd HH:mm:ss")

12.9 数字格式化

格式化并不会改变原数值，只改变它转换成 String 时的显示方式。

Dim value As Double = 12345.6789

Dim n0 As String = value.ToString("N0")
Dim n2 As String = value.ToString("N2")
Dim n3 As String = value.ToString("N3")

12.10 金额与百分比格式

金额

Dim amount As Decimal = 1250.5D
Dim displayAmount As String = amount.ToString("C2")

C2 使用当前系统文化的货币符号，并显示两位小数。

百分比

Dim discountRate As Decimal = 0.15D

Dim p0 As String = discountRate.ToString("P0")
Dim p2 As String = discountRate.ToString("P2")

典型显示：

• P0 → 15%
• P2 → 15.00%

12.11 数据值与显示格式要分开

下面的 amount 仍然是 Decimal：

Dim amount As Decimal = 1250.5D

只有显示时才转换成 String：

lblAmount.Text = amount.ToString("N2")

不要因为界面需要显示两位小数，就过早把数值变成 String。后面还要继续计算时，应尽量保留原来的数值类型。

12.12 实作：日期时间与格式化工具箱

建立新的 Windows Forms 项目：

DateTimeFormatter2026

程序让用户选择一个日期，显示标准与自定义格式，并计算该日期与今天相差多少天；同时让用户输入金额与折扣率，练习数字格式。

在 Form1 加入：

显示日期格式按钮

Private Sub btnShowDate_Click(sender As Object, e As EventArgs) _
    Handles btnShowDate.Click

    Dim selectedDate As DateTime = dtpSelectedDate.Value

    txtOutput.Text =
        "短日期：" & selectedDate.ToString("d") & Environment.NewLine &
        "长日期：" & selectedDate.ToString("D") & Environment.NewLine &
        "自定义：" & selectedDate.ToString("yyyy-MM-dd") & Environment.NewLine &
        "年：" & selectedDate.Year.ToString() & Environment.NewLine &
        "月：" & selectedDate.Month.ToString() & Environment.NewLine &
        "日：" & selectedDate.Day.ToString()

End Sub

计算相差天数

Private Sub btnDifference_Click(sender As Object, e As EventArgs) _
    Handles btnDifference.Click

    Dim selectedDate As DateTime = dtpSelectedDate.Value.Date
    Dim today As DateTime = DateTime.Today

    Dim difference As TimeSpan = selectedDate - today

    txtOutput.Text =
        "今天：" & today.ToString("yyyy-MM-dd") & Environment.NewLine &
        "选择日期：" & selectedDate.ToString("yyyy-MM-dd") & Environment.NewLine &
        "相差天数：" & difference.TotalDays.ToString("N0")

End Sub

格式化数字按钮

Private Sub btnFormatNumber_Click(sender As Object, e As EventArgs) _
    Handles btnFormatNumber.Click

    Dim amount As Decimal = CDec(txtAmount.Text)
    Dim rate As Decimal = CDec(txtRate.Text)

    txtOutput.Text =
        "数字 N2：" & amount.ToString("N2") & Environment.NewLine &
        "金额 C2：" & amount.ToString("C2") & Environment.NewLine &
        "百分比 P0：" & rate.ToString("P0") & Environment.NewLine &
        "百分比 P2：" & rate.ToString("P2")

End Sub

清除按钮

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

    dtpSelectedDate.Value = DateTime.Today
    txtAmount.Clear()
    txtRate.Clear()
    txtOutput.Clear()
    txtAmount.Focus()

End Sub

12.13 逐步理解实作程序

12.14 初学者常见错误

12.15 小练习

1. 加入“7 天后”按钮，显示 dtpSelectedDate.Value.AddDays(7)。
2. 加入“3 个月后”按钮，使用 AddMonths(3)。
3. 显示选择日期是星期几，使用 DayOfWeek。
4. 用 yyyy年MM月dd日 格式显示日期。
5. 加入一个时间 DateTimePicker，并将 Format 设为 Time。
6. 测试 N0、N2、F2 的不同显示效果。
7. 输入 0.075，分别用 P0、P1、P2 显示。