查人人中国名人网南京固强建筑公司如何:VB日期函数问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 12:26:26
如何用VB实现当前星期各天的日期或当前周星期一的日期？请高手指教，谢谢！
偶要问的是：当前所在周某天的日期（如星期一的日期）用什么函数实现？作用是返回当前所在周的第一天的日期（注意：是返回日期，不是星期几，如当前所在周的第一天是2006-3-6）
偶要问的是：当前所在周某天的日期（如星期一的日期）用什么函数实现？作用是返回当前所在周的第一天的日期（注意：是返回日期，不是星期几，如当前所在周的第一天是2006-3-6）
Private Sub Command1_Click()
Dim d As Date
'声明一个日期型变量
d = Date
'使用Date函数获取当前日期
Print WeekdayName(Weekday(d))
Rem weekday()函数是返回当前星期的整形值分别为1到7之间
Rem 当返回值为1则是星期天，为6时则是星期六
Rem 而WeekdayName函数返回的是当天星期的名称，如星期日等
End Sub
注：还有几个常用的函数如year,month,day等，year是返回当前年的值，month返回值是当前月的值，day函数返回当前天的值。