Question

用select case和if语句判断系统当前日期是星期几？

网页制作中使用VB语言 要求用select case获取系统时间，显示当天为星期几？你们的回答好像不能用的~是我的问题没有说明清楚·抱歉~各位高手在帮帮忙~感激不尽

Answer 1

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

Answer 2

用以下两函数可以 判断

select datename(dw,'03/06/2003')
返回星期四

select datepart(dw,'03/06/2003')
返回5 (每个星期的星期天是第一天 所以星期四为5)

获取当前日期的 函数
getdate（）
返回当前日期
类型为datetime

Answer 3

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 '今天日期'