UC知道VB 时间相加问题
来源：百度知道 编辑：UC知道 时间：2024/07/04 15:04:02
我在窗口上有2个text1和text2控件
text1.text ="17:28:06"
text2.text ="00:56"
现在让2者相加为 text3.text = "17:29:02"
因为我有个播放器 WindowsMediaPlayer1 控件，里面播放的歌曲起始是00:00开始的，text1里面显示的是12：00：00 等歌曲播放完毕以后 看text2中歌曲的在什么时间段播放完毕的，假如歌曲是3分钟，那text2中显示的肯定是 12:03:00.
text1.text ="17:28:06"
text2.text ="00:56"
现在让2者相加为 text3.text = "17:29:02"
因为我有个播放器 WindowsMediaPlayer1 控件，里面播放的歌曲起始是00:00开始的，text1里面显示的是12：00：00 等歌曲播放完毕以后 看text2中歌曲的在什么时间段播放完毕的，假如歌曲是3分钟，那text2中显示的肯定是 12:03:00.
dim date1 as date = text1.text
dim date2 as date = text2.text
Dim date3 As Date = date1.AddHours(date2.Hour)
date3 = date1.AddMinutes(date2.Minute)
date3 = date1.AddSeconds(date2.Second)
MsgBox(date3)
注：date常数必须带有小时、分钟和秒钟，你的 Text2.Text 的值是不能转换为时间常数的。必须为“小时:分钟:秒钟”的格式。
另外：这是 2008 的代码。不是 6.0 的。
要是那样，你必须把歌曲播放时间转换为秒数。然后在 Date 变量上用 AddSeconds 函数加上秒数就可以了，VB 会自动转换为相应的分钟和小时……还是 2008 的
时间准换成秒 再相加求和 最后转换为text3类型的数据