13518219792
您好，请调用AddDays函数！
白云网站建设公司成都创新互联,白云网站设计制作，有大型网站制作公司丰富经验。已为白云上1000+提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱，请找那个售后服务好的白云做网站的公司定做！
给个小例子：给DateTimePicker1控件的日期的天数加1 。则是这样！
DateTimePicker1.Value = DateTimePicker1.Value.AddDays(1)
有问题HI我！
Module Module1
Sub Main()
Console.WriteLine(DateTimeAdd("01:23:45"))
Console.ReadLine()
End Sub
''' summary
''' 获取时间的累加值
''' /summary
''' param name="sDatetime"/param
''' returns/returns
''' remarks/remarks
Private Function DateTimeAdd(ByVal sDatetime As String) As DateTime
Dim sysTime As DateTime = DateTime.Now
Return sysTime.Add(TimeSpan.Parse(sDatetime))
End Function
End Module
VB可以使用Date 函数获取当前日期拼接数字字符串组成日期加数字序列号字符串。
Date函数返回包含系统日期的 Variant (Date)。
Option Explicit
Dim strsz As String * 3
Dim a As Integer
Private Sub Command1_Click()
a = a + 1
Text2 = a
strsz = Format(a, "000")
Text3 = Date$ strsz '显示日期加序号(1-999)
End Sub
Private Sub Form_Load()
Text1 = Date$
Text2 = a
End Sub
