Sub huoquqiqi()

Dim g_year As Integer
Dim g_month As Integer
Dim g_days As Integer

g_year = Year(Now) '時間函式，獲取當前時間的年份
g_month = Month(Now)
If g_month = 2 Then  '當二月份時，判斷當前年份是否為閏年
    
    If g_year Mod 400 = 0 Or g_year Mod 4 = 0 Then
        g_days = 29
    Else
    g_days = 28
    End If
    
Else
    Select Case g_month
    Case 1, 3, 5, 7, 8, 10, 12
        g_days = 31
    Case 4, 6, 9, 11
        g_days = 30
    End Select
End If
Range("c2") = g_year & g_month & g_days