' 使用 Choose() 將星期(Integer)轉為對應文字 Choose跟兩個Function意思
Function getWk2(ByVal w As Integer) As String
    If (w > 7) Or (w < 1) Then
        getWk2 = ""
    Else
        getWk2 = Choose(w, "週日", "週一", "週二", "週三", "週四", "週五", "週六")
    End If
End Function

Function getDateTime1() As String
    getDateTime1 = Format(Now(), "yyyy-MM-dd-aaa, hh:mm:ss")
End Function

Function getDateTime2() As String
    ' Year(), Month(), Day(), Hour(), Minute(), Second() 回傳值為 Integer
    Dim y: y = Year(Now())
    Dim m: m = Month(Now())
    Dim d: d = Day(Now())
    Dim h: h = Hour(Now())
    Dim mn: mn = Minute(Now())
    Dim s: s = Second(Now())
    Dim w: w = Weekday(Now())

    ' 根據數值大小判斷是否要補零
    '     小於指定值時補零. 字串(String)與整數(Integer)做字串合併(&)時，Integer 會轉為 String
    '     大於等於指定值時將 Integer 轉為 String
    y = IIf(y < 1000, "0" & y, CStr(y))
    m = IIf(m < 10, "0" & m, CStr(m))
    d = IIf(d < 10, "0" & d, CStr(d))
    h = IIf(h < 10, "0" & h, CStr(h))
    mn = IIf(mn < 10, "0" & mn, CStr(mn))'"0"這幹嘛用?
    s = IIf(s < 10, "0" & s, CStr(s))
    w = getWk2(w)

    getDateTime2 = y & "-" & m & "-" & d & "-" & w & ", " & h & ":" & mn & ":" & s'這段是甚麼意思?
End Function

Function getDateTime3() As String
    ' Year(), Month(), Day(), Hour(), Minute(), Second() 回傳值為 Integer
    ' 預先將 Integer 轉為 String
    Dim y: y = CStr(Year(Now()))
    Dim m: m = CStr(Month(Now()))
    Dim d: d = CStr(Day(Now()))
    Dim h: h = CStr(Hour(Now()))
    Dim mn: mn = CStr(Minute(Now()))
    Dim s: s = CStr(Second(Now()))
    Dim w: w = getWk1(Weekday(Now()))

    ' String() 為產生重複文字的函數 (Strings 模組)
    y = String(4 - Len(y), "0") + y
    m = String(2 - Len(m), "0") + m
    d = String(2 - Len(d), "0") + d
    h = String(2 - Len(h), "0") + h
    mn = String(2 - Len(mn), "0") + mn'怎麼判斷?-?補0?
    s = String(2 - Len(s), "0") + s

    getDateTime3 = y & "-" & m & "-" & d & "-" & w & ", " & h & ":" & mn & ":" & s
End Function