一个自定义月份的函数,与大家一起分享

fnsmydyang

我本人在access这个论坛上受益不多,多蒙受各位老师指点,今有心得,写一自定月份的函数,与大家一起分享...


Public Function MyMonth(MyDate As Date, last_day As Integer) As String
      
    Dim intYear As Integer
    Dim intMonth As Integer
    Dim intDay As Integer
   
    Dim S As String
   
    intYear = Year(MyDate)
    intMonth = Month(MyDate)
    intDay = Day(MyDate)
   
    If intDay > last_day Then
        intMonth = intMonth + 1
        If intMonth > 12 Then
            intYear = intYear + 1
            intMonth = 1
        End If
    End If
    S = intYear & "年" & Right("00" & intMonth, 2) & "月"
    MyMonth = S
End Function
调试成功:
? mymonth(#2008-12-21#,20)
2009年01月
? mymonth(#2008-12-21#,25)
2008年12月

ui

谢谢分享,不过要说明函数的用途,我看了很久才明白函数的功能

Henry D. Sy

是不是求
下一个day（日期）=last_day 的年月

fnsmydyang

因为每个公司每月的结帐日期不一样,有的公司是1号~30号是正常的结帐,而有的公司是20号至下个月的20号一结算,例如10月21日~11月20为一结帐时段,last_day表示结帐日(20号为结帐日).

tmtony

谢谢分享!!

zyp

支持一下

changweiren

好,谢谢分享

Grant

学习一下,谢谢分享

cqj2009

学习一下,谢谢分享

tzh1600

学习一下,谢谢分享