来自于四明山的码农

摘要： Public Shared Function GetCenturyDate(ByVal sDate As Date) As Integer Dim one As Date Dim oDay As Date one = DateAdd(DateInterval.Month, -(Month(sDate) - 1), sDate) oDay = DateAdd(DateInterval.Day, -one.Day + 1, one) Dim diff As Long diff = DateDiff(DateInterval.Day, oDay, sDate) '不满三位补0 diff = 阅读全文