您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

以当前时间取周一日期

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

以当前时间取周一日期

发表于：2007-07-09 16:57:48 楼主

谁来帮忙搞定，现有一报表提交系统

需要根据当前系统时间，判断出来周一的时间，做出提交
礼拜天算做每周的最后一天。
刚才查了下日期函数好像不能直接搞定
哪位大侠帮个忙了

发表于：2007-07-09 19:02:341楼得分:0

i= weekday（date, vbmonday)
得出来的值是当前星期几，如果是1今天就是周一
如果不是1，那么就是2，3，4，5几个数，然后用dateadd来做一下减法就好了
msgbox dateadd（ "d ", 1-i, date)

发表于：2007-07-09 20:04:592楼得分:0

刚刚做个项目，新鲜出炉。。。cheers!

public function getweekstartdate（byval indate as date, byval weekbeginson as vbdayofweek) as date

'// 返回这周的第一天

getweekstartdate = indate - weekday（indate, weekbeginson) + 1

end function

private sub form_load（)
debug.print "现在时间是 " & now & " 当前时间取周一日期是 " & format$（getweekstartdate（now, vbmonday), "yyyy-mm-dd ")
end sub

现在时间是 7/9/2007 8:01:43 pm 当前时间取周一日期是 2007-07-09

发表于：2007-07-14 10:51:543楼得分:0

同意楼上两位,程序是死的,但人是活的啊!

发表于：2007-07-18 08:01:574楼得分:0

lz到哪里去了，还没结帖。

下一篇：怎么用vb语言将文件夹中的图片存到sql中
上一篇：关于vb中combo控件获得sql数据库中某一列全部内容

其他资讯