计算一个月有几天并且有几个周六日的小函数
2007-11-06 13:55
260 查看
'计算一个月有几天
'参数:fYM 格式 YYYYMM
Function MonthDay(fYM)
t_Date = DateAdd("m",1,Left(fYM,4)&"-"&Right(fYM,2)&"-1")
MonthDay = Day(DateAdd("d",-1,t_Date))
End Function
'计算一个月有几个周六周日
'参数:fDate 格式 YYYYMM
Function WeekSum(fDate)
t_Day = MonthDay(fDate)
t_NDate = Left(fDate,4)&"-"&Right(fDate,2)&"-"
t_Sum = 0
For i = 1 To t_Day
If Weekday(t_NDate&i) = 1 Or Weekday(t_NDate&i) = 7 Then
t_Sum = t_Sum + 1
End If
Next
WeekSum = t_Sum
End Function
'参数:fYM 格式 YYYYMM
Function MonthDay(fYM)
t_Date = DateAdd("m",1,Left(fYM,4)&"-"&Right(fYM,2)&"-1")
MonthDay = Day(DateAdd("d",-1,t_Date))
End Function
'计算一个月有几个周六周日
'参数:fDate 格式 YYYYMM
Function WeekSum(fDate)
t_Day = MonthDay(fDate)
t_NDate = Left(fDate,4)&"-"&Right(fDate,2)&"-"
t_Sum = 0
For i = 1 To t_Day
If Weekday(t_NDate&i) = 1 Or Weekday(t_NDate&i) = 7 Then
t_Sum = t_Sum + 1
End If
Next
WeekSum = t_Sum
End Function
相关文章推荐
- php计算几分钟前、几小时前、几天前的几个函数、类功能实现
- 关于日期天数计算的几个函数!
- 计算一个月有几天 sql
- java 计算距离现在几分,几个小时,几天
- php计算时间几分钟前、几小时前、几天前的几个函数
- python-Levenshtein几个计算字串相似度的函数解析
- php计算几分钟前、几小时前、几天前的几个函数分享
- 创建一个三角形类并且通过成员函数计算三角形的周长和面积《1》
- 学习PHP几个数学计算的隔膜泵内部函数
- MFC 的几个常用函数,用来计算文件大小,下载速度,转换时间的
- C语言中几个常用数学计算函数ceil(), floor(), round()的用法
- 创建一个三角形类并且使用成员函数计算三角形的周长和面积《2》
- matlab 计算程序运行时间 的几个函数
- python-Levenshtein几个计算字串相似度的函数解析
- PHP几个数学计算的内部函数学习整理
- java根据两个日期计算每月的天数,并且除去周六日
- java根据两个日期计算每月的天数,并且除去周六日
- MFC 的几个常用函数,用来计算文件大小,下载速度,转换时间的
- MATLAB中计算程序运行时间的几个函数
- php计算几分钟前、几小时前、几天前的几个函数、类分享