excel 中使用vba 实现时间的计算

Function gettime(t)

Randomize

If VBATypeName(t) = "String" Then tmp = TimeValue(t) Else tmp = t

gettime = Format(tmp - Rnd 20 / 24 / 60, "hh:mm")

End Function

使用方法

=gettime("08:00")

或

=gettime($B$1)

(假设B1中填着08:00

在VBA中日期的一部分加减可以使用dateadd函数。

比如dateadd("yyyy",1,now())，在今天的日期上加上一年。

比如dateadd("yyyy",-1,now())，在今天的日期上减去一年。

比如dateadd("d",1,now())，在今天的日期上加上一天。

比如dateadd("d",-1,now())，在今天的日期上减去一天。

比如dateadd("m",1,now())，在今天的日期上加上一月。

比如dateadd("d",-1,now())，在今天的日期上减去一月。

Sub xxx()

MsgBox Format(Time, "hh:mm:ss am/pm")

End Sub

运行上面的例子程序，输出的结果只是多了一个你不需要的AM/PM，可以使用LEFT函数的获取你需要的部分。