zqrx.net
当前位置:首页 >> vB星期几 >>

vB星期几

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

网站首页 | 网站地图
All rights reserved Powered by www.zqrx.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com