重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
可以訪問注冊表HKEY_CURRENT_USER\Control Panel\International下面的一些鍵值
創新互聯是一家專業提供??灯髽I網站建設,專注與網站建設、做網站、成都h5網站建設、小程序制作等業務。10年已為保康眾多企業、政府機構等服務。創新互聯專業網站建設公司優惠進行中。
如sShortDate鍵值表示的是短日期sLongDate表示的是長日期
中文下的短日期是 yyyy-M-d
中文下的長日期是 yyyy'年'M'月'd'日'
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)
日期字段用 format 格式化:
format(field1,"yyyy-mm-dd")
后面的格式要看實際情況修改
combobox1'年
combobox2'月
combobox3'日
trim(combobox1.text) trim(combobox2.text) trim(combobox3.text)
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