[已解决]如何判断和计算时间

ljf708 · 发表于 2010-5-20 22:08

如何判断和计算时间

Sub ww() 'B列的功能看样实现?

For i = 1 To Range("a65536").End(xlUp).Row
Cells(i, "c") = Cells(i, "a") + TimeSerial(0, 30, 0)
Cells(i, "d") = Cells(i, "a") & "～" & Cells(i, "a") + TimeSerial(0, 40, 0)
Next i
End Sub

3mheR6pn.rar (5.27 KB, 下载次数: 1)

fjmxwrs · 发表于 2010-5-20 22:12

等，学习来

上清宫主 · 发表于 2010-5-20 22:16

没看懂，等高手

枯禅 · 发表于 2010-5-20 22:22

2010-5-17 7:33

应该为30－3＝27　

27＋33＝60,50怎解？

ljf708 · 发表于 2010-5-20 22:26

QUOTE:

以下是引用枯禅在2010-5-20 22:22:00的发言：

2010-5-17 7:33

应该为30－3＝27　

27＋33＝60,50怎解？

<5的数为20-3=17

17+33=50

枯禅 · 发表于 2010-5-20 23:15

没明白你的换算关系，试着做了一下：

Sub ww()
Dim arr, F%, arrt
arr = Range("a1:d4")
For i = 1 To 4
    F = Minute(arr(i, 1))
    If Val(Right(F, 1)) < 5 Then
        arr(i, 1) = arr(i, 1) + TimeSerial(0, 20 - Val(Right(F, 1)), 0)
        arr(i, 3) = Format(arr(i, 3) + TimeSerial(0, 20 - Val(Right(F, 1)), 0), "hh:mm")
    Else
        arr(i, 1) = arr(i, 1) + TimeSerial(0, 30 - Right(F, 1), 0)
        arr(i, 3) = Format(arr(i, 3) + TimeSerial(0, 30 - Val(Right(F, 1)), 0), "hh:mm")
    End If
    arrt = Split(arr(i, 4), "～")
    arr(i, 4) = Format(arrt(0), "hh:mm") & "～" & Format(arrt(1), "hh:mm")
[a13].Resize(4, 4) = arr
Next
End Sub

		自动登录	找回密码
密码			注册