一些關于日期的實用函數
时 间:2008-08-12 17:01:42
作 者:umvsoft整理 ID:43 城市:江阴
摘 要:数據處理離不開日期處理,以前經常是每次用到又重寫一次函數,挺浪費時間的。現整理了一些關于日期的實用函數,大家參考。附件中也有代碼,供下載用。
正 文:
数據處理離不開日期處理,以前經常是每次用到又重寫一次函數,挺浪費時間的。現整理了一些關于日期的實用函數,大家參考。附件中也有代碼,供下載用。
Public Function IsLeapYear(YearNumber As Integer) As Boolean
Dim dteLeapDay As Date
' if particular year is not leap year,
' dteLeapDay will become Mar-01
dteLeapDay = DateSerial(YearNumber, 2, 29)
IsLeapYear = (Month(dteLeapDay) = 2)
End Function
' Based on vdate, the function will return the
' first day of the month
Public Function FirstDayOfMonth(vdate As Date) As Date
Dim intCurrDate As Integer ' current date
intCurrDate = DatePart("d", vdate)
' Deduct intCurrDate - 1 days
FirstDayOfMonth = DateAdd("d", -intCurrDate + 1, vdate)
End Function
' Calculate first day of the month (method two)
' This method is quite straightforward
Public Function FirstOfMonth(vdate As Date) As Date
FirstOfMonth = DateSerial(DatePart("yyyy", vdate), DatePart("m", vdate), 1)
End Function
' Based on vdate, the function will
' return the last day of the month
Public Function LastDayOfMonth(vdate As Date) As Date
' Get the first day of the next month, and then deduct 1 day
LastDayOfMonth = DateSerial(DatePart("yyyy", vdate), DatePart("m", vdate) + 1, 1) - 1
End Function
' The function will return the first day of the year based on vdate
Public Function FirstDayOfYear(vdate As Date) As Date
FirstDayOfYear = DateSerial(Year(Date), 1, 1)
End Function
' The function will return the first day of the week, based on vdate
Public Function FirstDayOfWeek(vdate As Date) As Date
Dim intWeekday As Integer
intWeekday = Weekday(vdate, vbMonday)
FirstDayOfWeek = DateAdd("d", -intWeekday + 1, vdate)
End Function
' The function will return the last day of the week, based on vdate
' Monday is the first day (assumed)
Function LastDayOfWeek(vdate As Date) As Date
Dim intWeekday As Integer
intWeekday = Weekday(vdate, vbMonday)
LastDayOfWeek = DateAdd("d", -intWeekday + 1, vdate) + 6
End Function
' The function will return number of week days between two dates
Function NumberOfWeekdays(BeginDate As Date, EndDate As Date, IncludingFirstDay As Boolean) As Integer
Dim intCounter As Integer
Dim intMovingDate As Date
intCounter = 0
If IncludingFirstDay = True Then
intMovingDate = BeginDate
Else
intMovingDate = BeginDate + 1
End If
Do While intMovingDate <= EndDate ' End date inclusive
If Weekday(intMovingDate) <> vbSunday And Weekday(intMovingDate) <> vbSaturday Then
intCounter = intCounter + 1
End If
intMovingDate = intMovingDate + 1
Loop
Access软件网官方交流QQ群 (群号:54525238)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access自定义函数命名为中文名...(09.20)
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)