重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
不是 有 函数嘛?
成都创新互联-成都网站建设公司,专注做网站、网站建设、网站营销推广,申请域名,虚拟空间,网站改版维护有关企业网站制作方案、改版、费用等问题,请联系成都创新互联。
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)
Date函数:返回系统的日期。
Now函数:返回系统的日期和时间。
Format函数:根据格式表达式来格式化数据。
date()例子:在PHP中
?php
// 设定要用的默认时区。自 PHP 5.1 可用:
date_default_timezone_set('UTC');
// 输出类似:
Mondayecho date("l");
// 输出类似:
Monday 15th of August 2005 03:12:46 PMecho date('l dS \of F Y h:i:s A');
// 输出:July 1, 2000 is on a Saturdayecho "July 1, 2000 is on a " .
date("l", mktime(0, 0, 0, 7, 1, 2000));
/* 在格式参数中使用常量 */
// 输出类似:Mon, 15 Aug 2005 15:12:46
UTCecho date(DATE_RFC822);
// 输出类似:2000-07-01T00:00:00+0000echo
date(DATE_ATOM, mktime(0, 0, 0, 7, 1, 2000));
?
扩展资料:
作用Date 函数可返回当前的系统日期。
提示:获取时间可参考Time()函数
语法
Date
实例
Dim MyDate
MyDate = Date ' MyDate 的值为系统当前的日期(如:2010-07-03)。
说明
VB 中Date语句可以用于设置系统日期
如:
Date = "2012-8-8" '这样就把当前系统日期改为2012-8-8了
1、时间可以直接比较大小,定义两个时间的变量,直接使用或者即可判断,跟数据大小判断是一样的
2、时间差值,可以使用DateDiff函数进行
3、比如取一个现在的时间now,使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒