大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
不是 有 函数嘛?
成都创新互联公司是一家专业提供宁安企业网站建设,专注与网站建设、成都做网站、H5网站设计、小程序制作等业务。10年已为宁安众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
now() 就是 吧
取得 后 再 分离出你所需的,分别赋值 就行了,当然 还是 有 函数的
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)
用日期函数day()可获得当前日期,time()可获得当前系统时间.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16显示当前日期
now 这个函数可以获得当前系统时间(包括年月日,小时分钟秒)
而
year()
month()
day()
等等则可以从now返回的值中分别提取年,月,日的信息
窗体放一个monthcalender、一个文本框、一个按钮:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m As Int16 = Convert.ToInt16(TextBox1.Text)
If m = 1 And m = 12 Then
MonthCalendar1.SetDate(DateSerial(Year(DateAndTime.Now), m, 1))
End If
End Sub
1、时间可以直接比较大小,定义两个时间的变量,直接使用或者即可判断,跟数据大小判断是一样的
2、时间差值,可以使用DateDiff函数进行
3、比如取一个现在的时间now,使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒