帮帮我！

Question

Dim l As Long
    Dim d As Date
    l = Date
    Debug.Print l
    d = l
    Debug.Print d
    Debug.Print Month(d)

Answer 1

    Dim X As Date
    X = 2958465
    Debug.Print X　　　'''得到　9999-12-31  '''这是上线
　　
　　X = -657343　　　　　　　　　　
　　Debug.Print X　　　 '''得到　100-4-2　　　X = -657434　　　　　　　　　　
　　Debug.Print X　　　 '''得到　100-1-1　  '''这是底线　　Debug.Print Month(X)  '''月份求法你用循环求吧，date类型在这个范围内（-657434　～　2958465）都有对应的日期