Question

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

我想通过vba 将一个固定的时间例如：
8：00 生成一个比这个时间早1-20分钟的随机时间（需要用到随机函数） 结果可能：7：45 ； 0：00 生成一个结果可能为 23：58；
写一个 getTime（t as ***）的Function，以方便结果的生成；
将单元格内的值作为参数传递。
求给位大神赐教！

Answer 1

Function gettime(t)
Randomize
If VBA.TypeName(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

Answer 2

下面是例子代码：

Option Explicit
Sub test()
    MsgBox getTime(#8:00:00 AM#)
End Sub
Function getTime(t As Date) As Date
    getTime = t - Int(1 + Rnd * 19) / 60 / 24
End Function

追问

https://bss.blibee.net/v1/AUTH_apprelease/apprelease/ms/prod/80165_8010005_3549.apk