i=Weekday(Format(a & ＂-＂ & b & ＂-＂ & c, ＂####,##,##＂))//vb里面求取时间的函数.直接用 Select Case i //对返回的数字进行处理,得到中文显示的礼拜几,显示在label中 Case 1 Label1.Caption = ＂ 星期天＂ Case 2 Label1.Caption = ＂
中文星期几VB不能直接获得 format获得的也是英文的, 所以你需要自己转换.下面是用Weekdad()函数进行转换的代码,给你借鉴下 Select Case Weekday(Date) Case 1 x = ＂星期日＂ Case 2 x = ＂星期一＂ Case 3 x = ＂星期二＂ Case 4 x = ＂星期三＂ Case 5 x = ＂星期四＂ Case 6 x = ＂星期五＂ Case 7 x = ＂星期六＂ End Select MsgBox x
用Weekday 函数即可实现,你可以指定星期日(数值1)为一个星期的第一天(或者不指定),那么返回值1就表示星期日,2 表示星期一, 等等; 如果你指定星期一(数值2)为一个星期的第一天,那么返回值1就表示星期一,2 表示星期二, 等等;比如今天是2015年12月18日星期五,函数Weekday(Now, 1)将返回6,而Weekday(Now, 2)将返回5
用weekdayname()函数可以求出星期几,返回的是一个字符串如(“星期一”),
你好!用weekdayname()函数可以求出星期几,返回的是一个字符串如(“星期一”),希望对你有所帮助,望采纳.
Private Sub Command1_Click() Dim i As Long i = Weekday(Now) Select Case i Case 1 Label1.Caption = ＂ 星期天＂ Case 2 Label1.Caption = ＂星期一＂ Case 3 Label1.Caption = ＂星期二＂ Case 4 Label1.Caption = ＂星期三＂ Case 5 Label1.Caption = ＂星期四＂ Case 6 Label1.Caption = ＂星期五＂ Case 7 Label1.Caption = ＂星期六＂ End Select End Sub
这个要算法, 教你一个简单的方法,把你的日期设置为系统时间,然后系统会自动获得星期,然后读取星期显示,再把系统时间改回去,代码自己实现
Dim myYear, myMonth, myDay, myWeek, Days As Integer Dim myDate As String myYear = Val(TextY.Text) myMonth = Val(TextM.Text) myDay = Val(TextD.Text) If myYear < 1980 Or myYear > 9999 Then MsgBox ＂输入的年份应在[1980, 9999]之间
Now 函数返回当前的日期和时间:Dim MyVarMyVar = Now ' MyVar 包含当前的日期和时间.Weekday 函数返回代表一星期中某天的整数.Weekday(date, [firstdayofweek])参数date可以代表日期的任意表达式.如果 date 参数中包含 Null,则返回
窗体一个textbox 一个commandbuttom,在文本框输入日期,点击按钮 Private Sub Command1_Click() Dim wkday As String Select Case Weekday(Text1) Case 1 wkday = ＂星期日＂ Case 2 wkday = ＂星期一＂ Case 3 wkday = ＂星期二＂ Case 4 wkday = ＂星期三＂ Case 5 wkday = ＂星期四＂ Case 6 wkday = ＂星期五＂ Case 7 wkday = ＂星期六＂ End Select MsgBox Text1 & ＂是＂ & wkday End Sub