重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '获得当前日期字符串
创新互联公司专注于新民网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供新民营销型网站建设,新民网站制作、新民网页设计、新民网站官网定制、微信小程序定制开发服务,打造新民网络公司原创品牌,更为您提供新民网站排名全网营销落地服务。
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '当前日期转换成DateTime
Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '获得当前日期是星期几
Dim differadd As Integer = 1 - ThisWeekDay '相差的天数(星期1与当前星期几相差的天数)
Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)
Dim MyYear As Integer = Format(Now, "yyyy") '获取当前日期的年份
Dim MyMonth As Integer = Format(Now, "MM") '获取当前日期的月份
Dim MyDay As Integer = Format(Now, "dd") '获取当前日期是几号
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是:" Yourday)
用TIMER控件调用NOW函数,可取得系统的日期和时间:
Private Sub Timer1_Timer()
Text1 = Now
End Sub
首先建立一个timer控件和一个label控件,之后把timer控件的interval属性改为1000
之后编写代码:
Private Sub Timer1_Timer()
a = Time$
Label1.Caption = "当前时间为:" a
End Sub
我想应该是,你试试看把……
用Date直接得到日期,不要用now。
有格式方面的要求,再用 format
用日期函数day()可获得当前日期,time()可获得当前系统时间.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16显示当前日期
now 这个函数可以获得当前系统时间(包括年月日,小时分钟秒)
而
year()
month()
day()
等等则可以从now返回的值中分别提取年,月,日的信息