關於vb寫程式的問題

2023-01-25 00:10:56 字數 709 閱讀 3846

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 結束所...