60进制的递加，谢谢liulang0808老师！

lhj323323

老师：


上传的附件里，没有对应的VB语句
是关于60进制的递加的计算
已知【计算起点】和【时间间隔】，计算到第40行

求助.rar (15.92 KB, 下载次数: 4)

2024-10-18 07:43 上传

点击文件名下载附件

请看图示


A列从第2行起，虽然加入了函数，而且还没有计算正确
但我求助的本意，是采用VB来写，而不是函数

老师如有空，请帮忙看看，先谢谢了！

ynzsvt

60进制就用时分秒的文本处理。

lhj323323

ynzsvt 发表于 2024-10-18 07:46
60进制就用时分秒的文本处理。

就算采用函数，我也完全没头绪，不知怎么构思。

liulang0808

liulang0808

不知道，理解对不对的

ynzsvt

1. Function AddU60Z(Time1, AddTime$)
   
2. Dim T1 As Date, T2 As Date
   
3. T1 = Format(--Time1, "00:00:00")
   
4. T2 = Format(--AddTime, "00:00:00")
   
5. AddU60Z = Format(T1 + T2, "hmmss")
   
6. End Function

复制代码

lhj323323

ynzsvt 发表于 2024-10-18 08:11

老师，这个怎么运用在按纽里？

lhj323323

liulang0808 发表于 2024-10-18 08:01

版主老师：
能否把这个调成【初级】，搞得我不好意思

飞天篮球猪

供参考...

xlj310

设置单元格格式显示出时间不用:表示，然后依然是直接用加法就可以了。