网页制作中使用VB语言 要求用select case获取系统时间,显示当天为星期几?你们的回答好像不能用的~是我的问题没有说明清楚·抱歉~各位高手在帮帮忙~感激不尽
第1个回答 2008-11-27
Sub Form_load()
Dim week_flag As String
Print Now '当前时间
Print DatePart("YYYY", Now) & "年" & DatePart("m", Now) & "月" & DatePart("d", Now) '显示年月日
week_flag = "今天是周"
Select Case Weekday(Now)
Case 1
Print week_flag & "日"
Case 2
Print week_flag & "一"
Case 3
Print week_flag & "二"
Case 4
Print week_flag & "三"
Case 5
Print week_flag & "四"
Case 6
Print week_flag & "五"
Case 7
Print week_flag & "六"
End Select
'这是你要的
End Sub
----------------------------------------------------------------------
--sql server
select '今天是'+datename(dw,getdate()),case when datepart(dw,getdate()) between 2 and 6 then '工作日' else '周末' end
--oracle
select to_char(sysdate,'day') from dual
Dim week_flag As String
Print Now '当前时间
Print DatePart("YYYY", Now) & "年" & DatePart("m", Now) & "月" & DatePart("d", Now) '显示年月日
week_flag = "今天是周"
Select Case Weekday(Now)
Case 1
Print week_flag & "日"
Case 2
Print week_flag & "一"
Case 3
Print week_flag & "二"
Case 4
Print week_flag & "三"
Case 5
Print week_flag & "四"
Case 6
Print week_flag & "五"
Case 7
Print week_flag & "六"
End Select
'这是你要的
End Sub
----------------------------------------------------------------------
--sql server
select '今天是'+datename(dw,getdate()),case when datepart(dw,getdate()) between 2 and 6 then '工作日' else '周末' end
--oracle
select to_char(sysdate,'day') from dual
第2个回答 2008-11-26
用以下两函数可以 判断
select datename(dw,'03/06/2003')
返回星期四
select datepart(dw,'03/06/2003')
返回5 (每个星期的星期天是第一天 所以星期四为5)
获取当前日期的 函数
getdate()
返回当前日期
类型为datetime本回答被网友采纳
select datename(dw,'03/06/2003')
返回星期四
select datepart(dw,'03/06/2003')
返回5 (每个星期的星期天是第一天 所以星期四为5)
获取当前日期的 函数
getdate()
返回当前日期
类型为datetime本回答被网友采纳
第3个回答 2008-11-26
select
case datepart(dw,getdate())
when 1
then '星期日'
when 2
then '星期一'
when 3
then '星期二'
when 4
then '星期三'
when 5
then '星期四'
when 6
then '星期五'
when 7
then '星期六'
else ''
end
as '今天日期'
case datepart(dw,getdate())
when 1
then '星期日'
when 2
then '星期一'
when 3
then '星期二'
when 4
then '星期三'
when 5
then '星期四'
when 6
then '星期五'
when 7
then '星期六'
else ''
end
as '今天日期'