用vba在excel中计算时间

使不规则化

如果VBA。TypeName（t）=“String“然后tmp = time value（t）否则tmp = t

gettime = Format（tmp-Rnd * 20/24/60，“hh:mm“）

结束功能

施用方式

= gettime（“08:00“）

或者

= gettime（1美元）

（假设B1用08:00填充。