新增文章

文章标题分类内容

一、Format与Format$
1-1）内置格式化函数格式日期 1.0

Option Explicit

Private Sub Form_Load()
On Error Resume Next

Dim vDate As Variant
    
    Debug.Print 1
    vDate = "2022/04/28"
    Debug.Print vDate, "→", Format(vDate, "YYYY-MM-DD")
    Debug.Print vDate, "→", Format$(vDate, "YYYY-MM-DD")
    
    Debug.Print 2
    vDate = "2022-04-28 星期四"
    Debug.Print vDate, "→", Format(vDate, "YYYY-MM-DD")
    Debug.Print vDate, "→", Format$(vDate, "YYYY-MM-DD")
    
    Debug.Print 3
    vDate = "星期四 2022-04-28"
    Debug.Print vDate, "→", Format(vDate, "YYYY-MM-DD")
    Debug.Print vDate, "→", Format$(vDate, "YYYY-MM-DD")

End Sub

运行结果：

1 
2022/04/28    →            2022-04-28
2022/04/28    →            2022-04-28
 2 
2022-04-28 星期四           →            2022-04-28 星期四
2022-04-28 星期四           →            2022-04-28 星期四
 3 
星期四 2022-04-28           →            星期四 2022-04-28
星期四 2022-04-28           →            星期四 2022-04-28
 4 
2023-02-19 1:40:45          →            2023-02-19
2023-02-19 1:40:45          →            2023-02-19