＃＃自定义日期代码怪异问题

sf

请教各位大侠：
如果修改系统时间在2003年12月21日---2004年1月20日，以下代码，函数myday()和myday2()的值应该分别为03－11－21日和03－12－20日，为何在日期段2003年12月21日---2003年12月31日内，我得到的值却为02－11－21日和02－12－20日。结果是错误的。系统时间在每年的12月21日---12月31日都是如此，在年份上出错误。其它时间就无问题。请指点。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Compare Database
Function Totalmonth(dteinput As Date) As Integer
Dim intdays As Integer
intdays = DateSerial(Year(dteinput), Month(dteinput) + 1, day(dteinput)) _
    - DateSerial(Year(dteinput), Month(dteinput), day(dteinput))
    Totalmonth = intdays
    Debug.Print intdays
End Function


Function MyMonth() As String
'获取月份编号的函数，如果月份大于9，代号分别为A（10）、B（11）、C（12），如果小于或等于，代号就等于月份。
    Dim MonthName, a As String
    a = Format(Date, "dd")
    Select Case a
    Case Is <= 20
      MyMonth = Format(Date, "mm")
    Case Is > 20
      MyMonth = Format(CDate(Format(Now(), "yyyy/mm/") & Totalmonth(Now())) + 1, "MM")
End Select
End Function



Function FirstdayOfmyMonth()
Dim D As Integer, M As Integer, Y As Integer
   
        D = Format(Date, "dd")
        M = MyMonth() - 2
        Y = Format(Date, "yyyy")
        FirstdayOfmyMonth = DateSerial(Y, M, 1)
   
End Function

Function myday()

        myday = FirstdayOfmyMonth() + 20
   
End Function
Function lastdayOfmyMonth()
Dim D As Integer, M As Integer, Y As Integer
   
        D = Format(Date, "dd")
        M = MyMonth() - 1
        Y = Format(Date, "yyyy")
        lastdayOfmyMonth = DateSerial(Y, M, 1)
   
End Function

Function myday2()

        myday2 = lastdayOfmyMonth() + 19
   
End Function

[此贴子已经被作者于2003-12-24 8:02:31编辑过]

sf

请高手们指教！

wuyuanhui

可能与系统日期格式有关,请在"控制面板"--"区域选项"--"日期"将短日期格式设定为"yyyy-mm-dd"

sf

谢谢，我试了一下，与系统日期格式没有关系，问题依旧！