质量认证体系怎么办理:关于VB日期的问题

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/13 12:16:18
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 ")