为什么vb获取星期几时要减一 VB编程显示星期几
VB \u5f53\u524d\u65e5\u671f \u51cf\u53bb \u4e00\u4e2a\u6708Private Function \u51cf\u53bb\u6574\u6708(\u57fa\u51c6\u65f6\u95f4 As Date, \u6708\u6570 As Integer) As Date
y = Year(\u57fa\u51c6\u65f6\u95f4)
m = Month(\u57fa\u51c6\u65f6\u95f4)
d = Day(\u57fa\u51c6\u65f6\u95f4)
m = m - \u6708\u6570
Do While m < 1
m = m + 12
y = y - 1
Loop
\u51cf\u53bb\u6574\u6708 = CDate(y & "-" & m & "-" & d)
End Function
Private Sub Command1_Click()
Print \u51cf\u53bb\u6574\u6708(Now, 1)
End Sub
\u6709\u4e86\u8fd9\u4e2a\u51fd\u6570\uff0c\u60f3\u51cf\u51e0\u4e2a\u6708\u5c31\u51cf\u51e0\u4e2a\u6708\uff0c\u4e0d\u6015\u5927\u6708\u3001\u4e0d\u6015\u5c0f\u6708\u3001\u4e5f\u4e0d\u6015\u95f0\u6708\uff01
\u8865\u5145\uff0c\u4f60\u7684\u51fd\u6570\u56e0\u8be5\u8fd9\u6837\u7528\uff1a
DateAdd("m", -1, Now())
Private Sub Command1_Click()
Dim i As Long
i = Weekday(Now)
Select Case i
Case 1
Label1.Caption = " \u661f\u671f\u5929"
Case 2
Label1.Caption = "\u661f\u671f\u4e00"
Case 3
Label1.Caption = "\u661f\u671f\u4e8c"
Case 4
Label1.Caption = "\u661f\u671f\u4e09"
Case 5
Label1.Caption = "\u661f\u671f\u56db"
Case 6
Label1.Caption = "\u661f\u671f\u4e94"
Case 7
Label1.Caption = "\u661f\u671f\u516d"
End Select
End Sub
直接参照下面的列表转化就OK了。
假如Weekday(Date)返回3，那么就是 星期二
Weekday 函数
返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。
语法
Weekday(date, [firstdayofweek])
Weekday 函数语法有下列的命名参数：
部分 描述
date 必要。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。
Firstdayofweek 可选。指定一星期第一天的常数。如果未予指定，则以 vbSunday
为缺省值。
设置
firstdayofweek 参数有以下设定值：
常数 值 描述
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日（缺省值）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
返回值
Weekday 函数可以返回以下诸值：
常数 值 描述
vbSunday 1 星期日
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
因为西方习惯是星期日做为一星期开始的第一天，中国是以星期一做为一个星期的第一天。不过现在大部分人都是以星期天做为一星期的第一天了，日历上也是这样显示了。
因为默认的是周日为每星期的第一天
你可以这样改Weekday(Now, vbMonday)，这样就默认周一是每星期的第一天了
0
sunday to saturday
绛旓細濡傛灉鏈簣鎸囧畾锛屽垯浠 vbSunday 涓虹己鐪佸笺 璁剧疆firstdayofweek 鍙傛暟鏈変互涓嬭瀹氬硷細甯告暟 鍊 鎻忚堪 vbUseSystem 0 浣跨敤 NLS API 璁剧疆銆 VbSunday 1 鏄熸湡鏃ワ紙缂虹渷鍊硷級 vbMonday 2 鏄熸湡涓 vbTuesday 3 鏄熸湡浜 vbWednesday 4 鏄熸湡涓 vbThursday ...
绛旓細WeekDay(C/N)锛氳繑鍥炴暟鎹腑褰撳ぉ鏄鏄熸湡鍑銆傦紙杩斿洖鏁板煎疄闄呮樉绀鍑1鍗充负褰撳墠鏄熸湡鏁帮級Year(C/N)锛氳繑鍥炴暟鎹腑绗嚑骞淬侶our(C/N)锛氳繑鍥炴暟鎹腑褰撳ぉ绗嚑灏忔椂銆侻inute(C/N)锛氳繑鍥炴暟鎹腑褰撴椂灏忔椂鐨勭鍑犲垎閽熴係econd(C/N)锛氳繑鍥炴暟鎹腑褰撴椂鍒嗛挓鐨勭鍑犵銆
绛旓細榛樿鐨鏄熸湡涓鏄竴鍛ㄧ殑绗2澶 Weekday 鍑芥暟鍙互杩斿洖浠ヤ笅璇稿硷細甯告暟 鍊 鎻忚堪 vbSunday 1 鏄熸湡鏃 vbMonday 2 鏄熸湡涓 vbTuesday 3 鏄熸湡浜 vbWednesday 4 鏄熸湡涓 vbThursday 5 鏄熸湡鍥 vbFriday 6 鏄熸湡浜 vbSaturday 7 鏄熸湡鍏 ...
绛旓細VB涓悎娉曠殑鏃ユ湡鍨嬪父閲忕敤鏁板瓧绗﹀彿 (#) 鎵╄捣鏉ャ傛湀浠藉湪鍓嶏紝涓棿鏄棩鏈燂紝鏈鍚庢槸骞翠唤銆備緥濡傦紝#January 1, 1993# 銆傛棩鏈熷瀷鍙橀噺鎴栧父閲忎篃鍙互鐢ㄤ竴涓弻绮惧害娴偣鏁拌〃绀猴紝鍏朵腑鏁存暟閮ㄥ垎琛ㄧず浠1899-12-30鍒拌鏃堕棿鐨勫ぉ鏁帮紙1899-12-30浠ュ墠鐨勬棩鏈熷垯鐢ㄨ礋鏁拌〃绀猴級锛屽皬鏁伴儴鍒嗗垯鏄粠鍗堝璧峰埌璇ユ椂闂存墍缁忚繃鐨勭鏁板崰鍏ㄥぉ...
绛旓細绗笁绉嶆槸姣忓懆浠鏄熸湡鍑寮濮嬨傛垜浠繖閲屽亣璁锯滀粠鏄熸湡涓寮濮嬧濄備笅闈㈠垎鍒槸杈撳嚭鈥滄煇鏃ユ湡鎵鍦ㄧ殑鍛ㄥ缁堟棩鏈熲濄佲滄煇骞存煇鍛ㄥ缁堟棩鏈熲濄佲滄煇骞村悇鍛ㄥ缁堟棩鏈熲濈殑浠ｇ爜锛佸鏋滄瘡鍛ㄤ粠鏄熸湡鏃ュ紑濮嬶紝灏vbMonday鏇挎崲涓簐bSunday鍗冲彲銆'鏌愭棩鏈熸墍鍦ㄧ殑鍛ㄥ缁堟棩鏈 Private Sub Command3_Click()Dim dt As Date Dim wd As ...
绛旓細鍓嶉潰鍔犱笂瀹氫箟 dim a as date 鐒跺悗娉ㄦ剰weekday鍑芥暟 Weekday(date, [firstdayofweek]) 杈撳嚭缁撴灉鏄 鍏朵腑鍙傛暟Firstdayofweek 鍙夈傝〃绀烘寚瀹氫竴鏄熸湡绗竴澶╃殑甯告暟銆傚鏋滄湭浜堟寚瀹氾紝鍒欎互 vbSunday 涓虹己鐪佸 銆備及璁′綘鐨勯棶棰樺嚭鍦ㄨ繖锛屼綘璇曡瘯鏀规敼锛佺劧鍚庡氨鏄ゼ涓婄殑鍥炵瓟锛屽緢瀵广
绛旓細Sub Fweekday()Dim Firstday As Date For i = 1 To 12 Firstday = Year(Now) & "-" & i Print Firstday & "鏄鏄熸湡" & weekday(Firstday, vbMonday)Next End Sub
绛旓細鐢╓eekday 鍑芥暟鍗冲彲瀹炵幇锛屼綘鍙互鎸囧畾鏄熸湡鏃ワ紙鏁板1锛変负涓涓槦鏈熺殑绗竴澶╋紙鎴栬呬笉鎸囧畾锛夛紝閭ｄ箞杩斿洖鍊1灏辫〃绀烘槦鏈熸棩锛2 琛ㄧず鏄熸湡涓锛...绛夌瓑;濡傛灉浣犳寚瀹氭槦鏈熶竴锛堟暟鍊2锛変负涓涓槦鏈熺殑绗竴澶╋紝閭ｄ箞杩斿洖鍊1灏辫〃绀烘槦鏈熶竴锛2 琛ㄧず鏄熸湡浜岋紝...绛夌瓑;姣斿浠婂ぉ鏄2015骞12鏈18鏃ユ槦鏈熶簲锛屽嚱鏁癢eekday(Now,1)...
绛旓細-- firstdayofweek: 鍙; vbDayOfWeek绫诲瀷; 瀹氫箟姣忓懆绗竴澶(榛樿涓烘槦鏈熷ぉ)WeekdayName杩斿洖涓涓猄tring, 濡"鏄熸湡涓", 浣嗘牴鎹笉鍚岀殑绯荤粺, 涔熶細杩斿洖濡"Monday".=== 浣犱篃鍙互涓嶇敤WeekdayName鑷繁寰楀埌鏄熸湡鍚 Choose(Weekday(#8/8/2008#, vbMonday), "鏄熸湡涓", "鏄熸湡浜", "鏄熸湡涓", "鏄熸湡鍥",...
绛旓細璇峰弬鑰冿細Dim MyDate, MyWeekDay MyDate = Text1 ' 鎸囧畾涓鏃ユ湡銆侻yWeekDay = Weekday(MyDate) ' 杩斿洖鎸囧畾鏃ユ湡鏄鏄熸湡鍑锛1鏄槦鏈熷ぉ锛2鏄槦鏈涓锛屻傘傘傦紝7鏄槦鏈熷叚锛夈俆ext2 = MyWeekDay - 1 ' 0鏄槦鏈熷ぉ锛1鏄槦鏈熶竴锛屻傘傘傦紝6鏄槦鏈熷叚銆
