VB6.0計算 今天是今年的第幾天怎麽編程？謝謝了，大神幫忙啊

先用Year() 取它的年份，再用 DateDiff 算當天與當年 1 月 1 日的差，再加 1 MsgBox DateDiff("d", CDate(Year(Date) & "-01-01"), Date) 代碼如下： Dim Date1 As Date '取今年第壹天 Date1 = Format(Format(Date, "yyyy") & "-01-01", "yyyy-mm-dd hh:mm:ss") '得到到今天的天數 MsgBox DateDiff("d", Date1, Date)

上一篇:剛接觸vb，想用mschart繪圖，但是不知道怎麽編程。有沒有可供參考的例子？我用的是visual basic2008。

下一篇:vsual studio編程環境中,程序生成出現錯誤...