跨越Excel 60进制栅栏
答:Excel 中的确没有提供这方面的功能,但利用自定义函数,可以满足你的需求。按组合键“ Alt+F11 ” 打开VBA 编辑器,单击“ 插入” 菜单中的“ 模块” 命令,在当前的工作簿中插入一个模块,在默认的“ 模块1 ” 中定义一个名为“ TimeAdd ” 的自定义函数,自定义函数的代码下载地址: http://download.cpcw.com 。
小提示:代码中用到了Split 函数,该函数可以把字符串按指定的分隔符分割成若干个部分并保存到相应的数组变量中去。这样就突破了常规方法中用Left 、Mid 、Right 函数只能提取两位数时间的限制,也解决了用Hour 、Minute 、Second 函数提取时间时不能超过60 分钟和60 秒钟的限制,3 位数以上时间也一样运算,非常的方便。
关闭VBA 编辑器返回到Excel 工作表中,此时利用 TimeAdd 函数 就可以方便地计算出两段时间之间的和了(见图)。
若要计算两个时间之间的差值,可再定义一个函数TimeDec ,将代码中的“ newtime = atime + btime ” 改为“ newtime=atime - btime ” ,代码末尾一行的变量“ timeadd ” 改为“ timedec ” 就可以了。
相关推荐
评论
没安装畅言模块