如何分割開時間?

kuong2211

各位大神們,
我想把時間分割細分成每1小時一條記錄,想問如何做到?
原有記錄:                                                              

No	start	end	Total
123	12:45	13:20	100
123	14:30	14:50	200
456	20:05	23:30	300
567	23:07	01:30	400

   

  要求完成:

No	start	end	Mins	Total
123	12:45	13:00	15	100
123	13:00	13:20	20	100
123	14:30	14:50	20	200
456	20:05	21:00	55	300
456	21:00	22:00	60	300
456	22:00	23:30	30	300
567	23:07	00:00	53	400
567	00:00	01:00	60	400
567	01:00	01:30	30	400

jiangxiaoyun

1. Sub g()
   
2.     Dim arr, brr(1 To 66666, 1 To 5)
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         x = Hour(arr(i, 2))
   
6.         y = Hour(arr(i, 3))
   
7.         jj = y - x
   
8.         If jj = 0 Then
   
9.             k = k + 1
   
10.             brr(k, 1) = arr(i, 1)
    
11.             brr(k, 2) = arr(i, 2)
    
12.             brr(k, 3) = arr(i, 3)
    
13.             brr(k, 4) = Minute(brr(k, 3) - brr(k, 2))
    
14.             brr(k, 5) = arr(i, 4)
    
15.         Else
    
16.             jj = IIf(jj = 1, 2, IIf(jj > 1, jj, y - x + 25))
    
17.             For j = 1 To jj
    
18.                 k = k + 1
    
19.                 brr(k, 1) = arr(i, 1)
    
20.                 brr(k, 2) = IIf(j = 1, arr(i, 2), TimeSerial(x + j - 1, 0, 0))
    
21.                 brr(k, 3) = IIf(j = jj, arr(i, 3), TimeSerial(x + j, 0, 0))
    
22.                 brr(k, 4) = IIf(j = 1, Minute(brr(k, 3) - brr(k, 2)), IIf(j = jj, Minute(brr(k, 3) - brr(k, 2)), 60))
    
23.                 brr(k, 5) = arr(i, 4)
    
24.             Next
    
25.         End If
    
26.     Next
    
27.     [g2:k66666] = ""
    
28.     [g2].Resize(k, 5) = brr
    
29. End Sub
    

复制代码

jiangxiaoyun

sample.zip (18.1 KB, 下载次数: 2)

2018-8-5 09:57 上传

点击文件名下载附件

时间处理麻烦得要死

kuong2211

非常感謝,完美解決.
還有一個問題便是如果開始時間格式是(1234)請問如何解決?再次感謝!
原來數值:

No	start	end	Total
123	1245	1320	100
123	1430	1450	200
456	2005	2330	300
567	2307	130	400

出來格式:

No	start	end	Mins	Total
123	1245	1300	15	100
123	1300	1320	20	100
123	1430	1450	20	200
456	2005	2100	55	300
456	2100	2200	60	300
456	2200	2330	30	300
567	2307	0000	53	400
567	0000	0100	60	400
567	0100	0130	30	400

蓝桥玄霜

请见代码。

kuong2211

藍橋玄霜老師的更加完美,感謝啦!
追加問下能幫助解決4 樓的難題嗎?

jjmysjg

kuong2211 发表于 2018-8-5 12:25
藍橋玄霜老師的更加完美,感謝啦!
追加問下能幫助解決4 樓的難題嗎?

5楼代码是用在哪个附件上的？我这怎么不能运行

kuong2211

1 樓附件上能運行