Office中国论坛/Access中国论坛

标题: 一个自定义月份的函数,与大家一起分享 [打印本页]

作者: fnsmydyang 时间: 2008-11-23 07:59
标题: 一个自定义月份的函数,与大家一起分享
我本人在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 时间: 2008-11-23 08:09
谢谢分享,不过要说明函数的用途,我看了很久才明白函数的功能

作者: Henry D. Sy 时间: 2008-11-23 09:14
是不是求
下一个day（日期）=last_day 的年月

作者: fnsmydyang 时间: 2008-11-23 13:36
标题: 回复 3# 的帖子
因为每个公司每月的结帐日期不一样,有的公司是1号~30号是正常的结帐,而有的公司是20号至下个月的20号一结算,例如10月21日~11月20为一结帐时段,last_day表示结帐日(20号为结帐日).

作者: tmtony 时间: 2008-11-23 15:57
谢谢分享!!

作者: zyp 时间: 2008-11-23 18:37
支持一下

作者: changweiren 时间: 2008-11-23 19:10
好,谢谢分享

作者: Grant 时间: 2008-11-23 20:37
学习一下,谢谢分享

作者: cqj2009 时间: 2008-11-25 23:25
学习一下,谢谢分享

作者: tzh1600 时间: 2008-11-26 08:37
学习一下,谢谢分享

作者: yanwei82123300 时间: 2009-6-24 10:34
学习一下,谢谢分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)