十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
VB可使用DateAdd 函数来获取加上了一段时间间隔后的日期和时间数据。
我们提供的服务有:成都网站设计、成都做网站、微信公众号开发、网站优化、网站认证、巴里坤哈萨克ssl等。为数千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的巴里坤哈萨克网站制作公司
DateAdd 函数,返回包含一个日期的 Variant
(Date),这一日期还加上了一段时间间隔。
代码实例:
Private Sub Command1_Click()
Dim D As Date
Dim Sj As Long
Sj = InputBox("输入秒数:", Sj)
D = DateAdd("s", Sj, #1/1/1970#)
Debug.Print D
End Sub
Dim unix As DateTime = #1/1/1970#
unix = unix.AddSeconds(CDbl("时间戳"))
MsgBox(unix)
'--------------------
百度VB2010(VB.NET)吧建设发展中,需要你的支持和帮助!!!
快加入我们吧!发表你的疑问,经验,程序,分享..
让我们共同进步!
在你对日期/时间进行格式化时,控制面板中的地区与语言选项部分的设置会影响你所得到的结果。那些设置用来初始化DateTimeFormatInfo对象,这个对象与当前线程的文化有关,并提供控制格式的值。
Dim dateTimeInfo as DateTime = DateTime.Now
MessageBox.Show (dateTimeInfo)
Dim strMonth as String = dateTimeInfo.ToString("F")
MessageBox.Show(strMonth)
上面的代码定义了日期时间变量dateTimeInfo并将其值设为当前日期/时间。然后,我再定义字符串变量strMonth并将dateTimeInfo的值转换为"带长时间的完整日期/时间"格式下的字符串。
下面是一个标准日期格式说明符列表:
d:短日期
D:长日期
t:短时间
T:长时间
f:带短时间的完整日期/时间
F:带长时间的完整日期/时间
g:带短时间的一般日期/时间
G:带长时间的一般日期/时间
M或m:月-日
R或r:RFC1123
s:遵守ISO 8601的可分类日期/时间
u:国际可分类日期/时间
U:带长时间的完整日期/时间。(此格式与F相同,但它用于国际GMT时间。)
Y或y:年-月
Dim a As String
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函数,这个函数是用于把字符型变量转换成日期型变量,
字符型变量(本例中的a)如果不是标准的日期格式,请先用字符串函数处理成标准日期格式再用CDate函数进行转换,否则会报错