获得周末的日期
来源:互联网 发布:淘宝分销注意事项 编辑:程序博客网 时间:2024/06/10 03:54
Private Sub InsertWeekEnd()
'----------------------------------------------------
Dim strDate As String '记录日期
Dim strNextMonth As String '记录下一个月第一天的日期
Dim strNextDay As String '记录明天的日期
Dim adors As New ADODB.Recordset
'获得当月的第一天
SQL = "SELECT DATEADD(mm, DATEDIFF(mm, 0, GETDATE()), 0) AS FirstDay"
adors.Open SQL, DB, adOpenDynamic, adLockReadOnly
If Not adors.EOF Then strDate = adors!FirstDay
adors.Close
'获得下个月的第一天
SQL = "SELECT DATEADD(mm, DATEDIFF(m,0,getdate())+1, 0) as NextMonth"
adors.Open SQL, DB, adOpenDynamic, adLockReadOnly
If Not adors.EOF Then strNextMonth = adors!NextMonth
adors.Close
While strDate < strNextMonth
'判断是否周末,如果是则insert进表中
SQL = "select datename(weekday,'" & strDate & "') as weekday"
adors.Open SQL, DB, adOpenDynamic, adLockReadOnly
If Not adors.EOF Then
If adors!Weekday = "星期六" Or adors!Weekday = "星期日" Then
SQL = "insert into kq_xxrq (date8) values ('" & strDate & "')"
DB.Execute SQL
End If
End If
adors.Close
'获得下一天的日期
SQL = "SELECT DATEADD(day, DATEDIFF(d,0,'" & strDate & "')+1, 0) as Nextday"
adors.Open SQL, DB, adOpenDynamic, adLockReadOnly
If Not adors.EOF Then strNextDay = adors!NextDay
adors.Close
strDate = strNextDay
Wend
'----------------------------------------------
End Sub
- 获得周末的日期
- 找出非节假日与周末的日期
- 找出非节假日与周末的日期
- 获取当年所有的周末日期
- 查找日期区间的所有周末
- 获得日期的方法
- java日期操作(月末、周末等的日期操作)
- JS 获取当前日期三个月的日期,去除周末
- SQL输出周末日期
- 获得日期的年周次并且反算回日期
- 获得两个日期之间的 日期
- 获得两个日期之间的所有日期
- 获得两个日期之间的所有日期
- 计算一段日期内的周末天数(星期六,星期日总和
- 【学习】取得指定时间范围内的周末日期
- Oracle 取上周一到周末日期的查询语句
- sql建立一年的日期,并区分周末
- Oracle取上周一到周末日期的查询语句
- ASP 编程中20个非常有用的例子
- JAVA虚拟机源码学习笔记之二
- SQL常用命令使用方法:
- P2P直播的技术原理和改进
- 利用AJAX技术实现网页无刷新进度条显示
- 获得周末的日期
- HtmlTextWriter学习笔记
- 堕落
- 2007年值得去思考的N大软件技术(1)
- 如何使用monitor、threshld插件
- GDI+对象的释放
- JSP运行服务器的安装与配置
- Java 中 抽象类 接口 区别!
- 同时运行两个JBoss和运行一个JBoss的两个实例