社区
VB基础类
帖子详情
求救!时间的计算
lwdz
2004-11-21 01:51:07
问题是这样的:1个工人干活,我记下他的开始工作时间,记下他的结束工作时间
工人的工资是按照小时计算的,我用结束时间减去开始时间后,怎么能把这个时间转换成小时啊?
...全文
109
4
打赏
收藏
求救!时间的计算
问题是这样的:1个工人干活,我记下他的开始工作时间,记下他的结束工作时间 工人的工资是按照小时计算的,我用结束时间减去开始时间后,怎么能把这个时间转换成小时啊?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
newsuperstar
2004-11-21
打赏
举报
回复
学习
Mars.CN
2004-11-21
打赏
举报
回复
就是一楼的:
Private Sub Command1_Click()
Dim pValue As Long
Dim a As Date, b As Date
Dim xx As Single, hh As Long, mm As Long, ss As Long
a = #4/25/2004 1:06:55 PM#
b = #4/25/2004 2:09:01 PM#
pValue = DateDiff("s", a, b)
xx = pValue / 3600
hh = Int(xx)
mm = Int((pValue - 3600 * hh) / 60)
ss = pValue - hh * 3600 - mm * 60
MsgBox "相差小时:" & Format(hh, "00")
MsgBox "相差分钟:" & Format(mm, "00")
MsgBox "相差秒:" & Format(ss, "00")
End Sub
creazyfish
2004-11-21
打赏
举报
回复
这个我估计算到分钟就算可以了吧呵呵
tztz520
2004-11-21
打赏
举报
回复
Private Sub Command1_Click()
Dim pValue As Long
Dim a As Date, b As Date
Dim xx As Single, hh As Long, mm As Long, ss As Long
a = #4/25/2004 1:06:55 PM#
b = #4/25/2004 2:09:01 PM#
pValue = DateDiff("s", a, b)
xx = pValue / 3600
hh = Int(xx)
mm = Int((pValue - 3600 * hh) / 60)
ss = pValue - hh * 3600 - mm * 60
MsgBox "相差小时:" & Format(hh, "00")
MsgBox "相差分钟:" & Format(mm, "00")
MsgBox "相差秒:" & Format(ss, "00")
End Sub
敌兵布阵ACM代码
C国的死对头A国这段
时间
正在进行军事演习,所以C国间谍头子Derek和他手下Tidy又开始忙乎了。A国在海岸线沿直线布置了N个工兵营地,Derek和Tidy的任务就是要监视这些工兵营地的活动情况。由于采取了某种先进的监测手段...
【纯开源uniapp】小程序APP网约车代驾顺风车货运货拉拉网约车司机入驻双端小程序包搭建
5. 一键导航,线路规划,等待
时间
计算
方式 后台功能简介: 1、会员管理:会员分组、会员规则 2、认证管理:实名认证管理、驾驶证认证管理、车主认证管理理 3、代驾管理:订单管理、轮播图管理、话题列表、话题...
基于机器学习图像视觉的安全急救系统python实现源码+项目说明(本科毕设).zip
1.项目代码功能经验证ok,确保稳定...APP 组成,采用自主设计的安全急救方法,结合 UWB 定位以及多传感器融合技术,实现当危险发生时,能够及时向外界发送
求救
信息,精准定位险情地点,以达到缩短黄金救援
时间
的目的。
智能定位安全帽.pdf
态 到 场 时 间 离 场 时 间 休 息 时 间 4 5 6 刘伟 08:00 18:00 1h 11 12 13 王大大 08:00 20:00 1h 18 19 20 毛毛 08:00 14:00 1h 25 26 27 张三 08:00 15:00 1h 作业人员的上下班
时间
、工作状态,一目了然。...
结构静力重分析预处理共轭梯度法的一种有效改进 (2014年)
考虑预处理共轭梯度法在结构静力重分析中的改进.利用增量刚度矩阵相对结构修改后刚度矩阵稀疏的特点,修改处理共轭梯度法的实施过程,以达到降低
计算
量、节省
计算
时间
的目的.数值算例验证了该方法的有效性.
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章