1樓:奈米世界
不能用減法的,如果這一天是週日那到一減就成了「周0」啦我的方法是這樣的,要改一下才行
private sub form_click()x = #1/9/2005#
a = x - date
select case weekday(x)case 1: b = "日": case 2:
b = "一": case 3: b = "二":
case 4: b = "三"
case 5: b = "四": case 6: b = "五": case 7: b = "六"
end select
'b = weekday(x) 這一行不要了c = year(date)
d = month(date)
e = hour(time)
f = minute(time)
print "現在距離2023年元旦還有:"; a; "天"
print "2023年元旦是:星期"; b '這裡-1去掉就可以了
print "本月份是:"; c; "年"; d; "月"
print "現在是:"; e; "時"; f; "分"
end sub
2樓:
因為vb(不單只是vb,還有許多西方國家)把星期天當作一個星期的第一天。因此星期天是0星期六當然是7了,所以要減1。
VB寫程序XP化後中文處理問題,VB寫程式XP化後中文處理問題
不要用vb程式去做xp介面化處理,這個東西有嚴重的相容性問題。在正式開發中是不用的。如果你確實想的話,把所有的string型別都轉化成unicode的格式,用convert函式。語法 strconv 函式 返回按指定型別轉換的 variant string 語法strconv string,conv...
用VB設計程式中遇到的問題,用VB設計程式中遇到的一個問題
哦,這樣的話應該先畫一個按鈕。預設命名command1。這裡舉例x y x y 然後 sub command1 click dim a as long 宣告a變數 a x y x y 記住不要加 if a 某值 then msgbox 等於這個值 else msgbox 不等於這個值 end if ...
問關於VB的問題,問一個關於VB的問題
執行順序如下 注 帶有 的是被執行的語句,後面的數字是被執行的順序。x 0 1 for i 1 to 10 2if i mod 2 1 then 3x x 1 4 else x x 1 end if 5 exit for 6 問題就出在這裡 你退出掉迴圈幹嘛 next i print x 7 結束所...