1樓：網海1書生
msgbox "今天是" & date() & vbcrlf & "再過1個月是" & dateadd("m", 1, date())
msgbox "今天是" & date() & vbcrlf & "再過5個月是" & dateadd("m", 5, date())
要想精確計算兩個日期間間隔多少個月是很困難的，因為1個月的天數是不固定的，有28天、29天、30天、31天，比如2014-1-31再過1個月按常理來說是2014-2-31，但這一天卻是不存在的，只能是2014-2-28，而且2014-1-28、2014-1-29、2014-1-30這三天計算一個月後也只能是2014-2-28這一天，而你可以想象一下，如果反過來，你要計算2014-2-28的前一個月是哪一天，是2014-1-28、2014-1-29、2014-1-30還是2014-1-31呢？你可能想當然地認為2014-1-28才是2014-2-28的前一個月，但是既然2014-1-29、2014-1-30和2014-1-31的後一個月是2014-2-28，憑什麼它們就不能是2014-2-28的前一個月呢？因此實際計算過程會很複雜的。
當然解決辦法也是有的，一種是先算出兩個日期間隔的天數，再把天數除以30，就知道多少個月了，但這隻能是大約數，不是精確值。
還有一種相對比較精確的辦法，就是把兩個日期中較小的（或者說比較早的）日期用最上面的dateadd函式一個月一個月地遞增，然後把遞增後的日期與較大的（或者說較晚的）日期比較，如果剛好是同一天，那麼兩個日期就是間隔這個月數了；如果大於，那麼可以取整得x，再算出餘數y，那麼就是「間隔x月零y天」；如果小於，那麼就繼續遞增。
2樓：聽嵐逸畔
通過dateadd函式可以獲取指定日期增加指定時間的新日期
通過datediff函式可以獲取兩個日期之類指定時間型別的差值.
我沒弄清楚你想要的效果是什麼.是獲取兩個指定的時間滿了幾個月?
VB寫按照日期執行的程式，VB寫一個按照日期執行的程式
思路是這樣的 1.每天都開機執行一下 2.執行過程中，首先判斷今天是不是2009.3.123.如果是，繼續執行 4.如果不是，就推出程式 以下 能夠實現 private declare function setwindowpos lib user32 byval hwnd as long,byval...
求vb的求數平方的程式設計，求一個vb的求一個數平方的程式設計
樓主您好！什麼也不用畫，直接複製貼上 簡單就一句 msgbox 這個數的平方為 val inputbox 請輸入要求平方的數 提示視窗 2 64 vbokcancel vbdefaultbutton1,提示視窗 多寫點就這樣 dim number1 as double dim number2 as ...
怎麼讓VB的顯示字元，怎麼讓VB一個一個的顯示字元？
可能是使用這個exe檔案的這臺電腦的桌面字型大小使用不是系統標準大小 我這臺電腦上用的字型大小就是不標準的 你試下把按鈕大小調大一點,或者使用和開發平臺一樣的字型大小設定,要不就換種字型 新增一label控制元件label1,和一個timer 複製 執行即可 private subform load...