红豆杉如何养殖方法:关于VB日期的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/10 05:32:42
Private Sub Form_Load()
Dim NowNow
NowNow = Now
Text1.Text = Format(NowNow, "d,mmmm,yyyy ")
End Sub

这样可以表示今天的日期,那么如何表示下一个月呢?

Dim NowNow
dim nextmonth
NowNow = Now
nextmonth=month(nownow)+1
Text1.Text = Format(NowNow, "d,mmmm,yyyy ")
//如果再有一个text2文本框对象
text2.text=nextmonth

Format(DateDiff("n",1,Now()), "d,mmmm,yyyy ")