我认为我手头有一个非常简单的问题,但是我对此感到非常困惑。到目前为止,我相当熟悉日期并将其转换为“长”整数。但是,除了“交货日期”之外,我还必须为该特定实例添加一个时间值以反映“交货时间”的情况。我知道excel-vba分别提供日期和时间的功能。我想知道如何将日期和日期(例如10/06 / 2015、7pm或1900hrs)(请原谅我的非美国格式)反映为一个可以使用的整数。像这样的东西:
dim y as date
y = "10/06/2015"
dbldate = Clng(y)
但还要加上7点的时间。很抱歉我的帖子太冗长了!
对于工作表和VBA,时间只是浮点值的小数部分。所以:
Sub dural()
Dim db As Double, dt As Date
db = 12345.67
dt = CDate(db)
MsgBox dt
End Sub
产生:
编辑#1:
并将日期/时间作为字符串转换为浮点值:
Sub Backwards()
Dim st As String, db As Double
st = "12/25/2014 7:00PM"
db = DateValue(st) + TimeValue(st)
MsgBox db
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句