问一个关于时间的问题。

yuma 发布于 2012-06-17 19:09， 711 次点击

正在自主开发一个小软件，其中有关于时间的计算。

例：现在系统时间是12：33：40 那么：2：30：30之后，是什么时间？

12：33：40 + 2：30：30 = 15：04：10

这个系统时间：12：33：40，我可以用time()或now()来获取。

我想知道，这个用代数式，应该如何进行计算，哪样计算更简单。

另外需要用到哪些函数？

麻烦给个思路，谢谢了。

[ 本帖最后由 yuma 于 2012-6-17 19:10 编辑 ]

9 回复

风吹过b2012-06-18 08:37

Dim t1 As Date, t2 As Date

t1 = #12:33:40 PM#          '计算时，根据系统设置而自动以 12小时制或 24小时制显示。
t2 = #2:30:30 AM#           '输入时，以 # 引号来的，就是告诉系统这是一个日期/时间类型的数据

t1 = t1 + t2                '时间可以直接做加法，减法

MsgBox Format(t1, "HH:mm:ss")           'format 强制转化为 24 小时制进行显示

yuma2012-06-18 08:42

回复 2楼风吹过b

高级语言也太神了，谢版主了，

我以为要把时间打散，进行计算，满60进一位呢。

yuma2012-06-18 11:27

Dim b As Data
Dim a As String
a = "11" & ":" & "02" & ":" & "22"
MsgBox (a)
b = Format(a, "HH:mm:ss")
MsgBox (b)

我第一个弹出的是字符串，第二个应该弹出的是时间啊。为何第二个没有弹出来啊？

我想把时间字符串 a ，转换后，拿去进行和其它的时间相加，请问，如何转换呢？

[ 本帖最后由 yuma 于 2012-6-18 11:37 编辑 ]

风吹过b2012-06-18 15:47

Dim b As Date
Dim a As String
a = "11" & ":" & "02" & ":" & "22"
MsgBox (a)
b = Format(a, "HH:mm:ss")
MsgBox (b)

注意看红色部分

---------------

b = Format(a, "HH:mm:ss")
可以直接赋值
b=a

[ 本帖最后由风吹过b 于 2012-6-18 15:48 编辑 ]

yuma2012-06-18 20:35

谢谢，开发完成了。

[ 本帖最后由 yuma 于 2012-6-19 20:13 编辑 ]

peter58432012-06-19 16:06

a=(现在的小时)
b=(现在的分钟)
c=(现在的秒）
d=(加上的时间）(xx:xx:xx)
aa=left(d,2）
bb=right(left(d,5),2)
cc=right(d,2)
nc=c+cc
if nc>= 60 then
nc=nc-60
nb=1
end if
nb=nb+b+bb
if nb>= 60 then
nb=nb-60
na=1
end if
na=na+a+aa
t=na & ":" & nb & ":" & "nc"

yuma2012-06-19 20:16

我都写了近300行代码了，还有一个问题，大家一定要帮帮我啊。

2012-6-19 21：14:00 + 23：54:00 = 2012-6-20 21：08:00
2012-6-19 21：14:00 + 3：54:00 = 2012-6-20 1：08:00

也就是问：Now() + Time() =??????

这个怎么进行相加计算啊？

我的程序进行相加后，都计算成1899年的某一天了。

[ 本帖最后由 yuma 于 2012-6-19 20:33 编辑 ]

风吹过b2012-06-20 08:02

Option Explicit
Private Sub Command1_Click()
Dim a As Date, b As Date
a = #6/19/2012 9:14:00 PM#
b = #11:54:00 PM#
Debug.Print a; "+"; b; "="; a + b
MsgBox a & "+" & b & "=" & a + b
End Sub

只有本站会员才能查看附件，请登录

#10

yuma2012-06-20 10:05

最后的开发工作总算完成了。

感谢“风吹过b”朋友，提供技术支持。

这个程序使用了我近300行代码，总算完成了。大家试用一下吧。

只有本站会员才能查看附件，请登录

[ 本帖最后由 yuma 于 2012-6-24 20:06 编辑 ]