时间段组的矢量运算,自定义函数的思路~

香川群子

默认mode=0 时自动计算合并时间集合。

如果mode=1 时，检查是否有交集。有交集就退出。
不过这种检查啥时候用，如何用，还需楼主明确。

比如，是直接在工作表中当函数用，或者是在宏代码过程中用？(如果这样，结果要改成布朗值True/False比较好)

香川群子

对有无交集的部分做了一些改进。

可以在Excel工作表中作为自定义公式直接使用。

whatyang

香川群子 发表于 2013-1-22 01:27
对有无交集的部分做了一些改进。

可以在Excel工作表中作为自定义公式直接使用。

太感谢了,减法和交集 时间差额 也都有思路了~

lee1892

香川群子 发表于 2013-1-22 01:10
计算原理很简单，不是采用人类的复杂思维方式，而是直接使用机器的简单逻辑思维方式：

1. 1天24小时即 2 ...

这么着虽然能应付楼主，但不是很合适吧
时间值是一个 [0,1) 的 Double，排下序，循环对比一下的事，非给弄成不连续的，偷懒~~

香川群子

lee1892 发表于 2013-1-22 09:24
这么着虽然能应付楼主，但不是很合适吧
时间值是一个 [0,1) 的 Double，排下序，循环对比一下的事，非给 ...

直接比对的算法代码，没你想象的那么简单。

要不你写个代码试一试？ 肯定不如我的方法好。

yjh_27

同意楼上意见，针对性太强。

lee1892

香川群子 发表于 2013-1-22 12:24
直接比对的算法代码，没你想象的那么简单。

要不你写个代码试一试？ 肯定不如我的方法好。

这不是好不好的问题吧，你那个办法是偷换概念嘛~

对比，也就是一个循环嵌套的事，又不麻烦。倒是排序啰嗦点儿~

写了个Merge的，没仔细调试，看个意思~

代码:

Function Merge(aRange1, aRange2)     Dim nLB1&, nUB1&, nLB2&, nUB2&     Dim aRes#(), i&     nLB1 = LBound(aRange1): nUB1 = UBound(aRange1)     nLB2 = LBound(aRange2): nUB2 = UBound(aRange2)     ReDim aRes(1 To nUB1 - nLB1 + nUB2 - nLB2 + 2, 1 To 2)     ReDim aTemp(1 To nUB1 - nLB1 + nUB2 - nLB2 + 2, 1 To 2)     For i = nLB1 To nUB1         aRes(i, 1) = aRange1(i, 1): aRes(i, 2) = aRange1(i, 2)     Next     For i = nLB2 To nUB2         aRes(i - nLB2 + 2 + nUB1 - nLB1, 1) = aRange2(i, 1)         aRes(i - nLB2 + 2 + nUB1 - nLB1, 2) = aRange2(i, 2)     Next     Call Unify(aRes)     Merge = aRes End Function Private Sub Unify(aRange)     Dim nLB&, nUB&, i&, j&, aTemp#(), nCount&     Call Sort(aRange)     nLB = LBound(aRange): nUB = UBound(aRange)     ReDim aTemp(1 To nUB - nLB + 1, 1 To 2)     For i = 1 To nUB - nLB + 1         nCount = nCount + 1         aTemp(nCount, 1) = aRange(i, 1)         aTemp(nCount, 2) = aRange(i, 2)         For j = i + 1 To nUB - nLB + 1             If aRange(j, 1) > aTemp(nCount, 2) Then Exit For             If aRange(j, 2) > aTemp(nCount, 2) Then                 aTemp(nCount, 2) = aRange(j, 2)             End If         Next         If j > i + 1 Then i = j - 1     Next     Erase aRange     ReDim aRange(1 To nCount, 1 To 2)     For i = 1 To nCount         aRange(i, 1) = aTemp(i, 1): aRange(i, 2) = aTemp(i, 2)     Next End Sub Private Sub Sort(aRange)     Dim nLB&, nUB&, i&, j&, dSwap#     nLB = LBound(aRange): nUB = UBound(aRange)     For i = nLB To nUB         If aRange(i, 1) > aRange(i, 2) Then             dSwap = aRange(i, 1): aRange(i, 2) = aRange(i, 1): aRange(i, 1) = dSwap         End If     Next     Call QuickSort(aRange, nLB, nUB)     For i = nLB To nUB - 1         For j = i + 1 To nUB             If aRange(i, 2) <> aRange(j, 2) Then Exit For         Next         If j > i + 1 Then             Call QuickSort(aRange, i, j - 1, 2)             i = j - 1         End If     Next End Sub Private Sub QuickSort(aRange, nLeft&, nRight&, Optional nCol& = 1)     Dim i&, j&, nOther&, dKey#, dSwap#     nOther = IIf(nCol = 1, 2, 1)     If nLeft >= nRight Then Exit Sub     dKey = aRange(nLeft, nCol)     i = nLeft + 1: j = nRight     Do         Do While i <= nRight             If aRange(i, nCol) > dKey Then Exit Do             i = i + 1         Loop         Do While j > nLeft             If aRange(j, nCol) < dKey Then Exit Do             j = j - 1         Loop         If i >= j Then Exit Do         dSwap = aRange(i, nCol): aRange(i, nCol) = aRange(j, nCol): aRange(j, nCol) = dSwap         dSwap = aRange(i, nOther): aRange(i, nOther) = aRange(j, nOther): aRange(j, nOther) = dSwap     Loop     dSwap = aRange(nLeft, nCol): aRange(nLeft, nCol) = aRange(j, nCol): aRange(j, nCol) = dSwap     dSwap = aRange(nLeft, nOther): aRange(nLeft, nOther) = aRange(j, nOther): aRange(j, nOther) = dSwap     Call QuickSort(aRange, nLeft, j, nCol)     Call QuickSort(aRange, j + 1, nRight, nCol) End Sub

whatyang

lee1892 发表于 2013-1-22 13:41
这不是好不好的问题吧，你那个办法是偷换概念嘛~

对比，也就是一个循环嵌套的事，又不麻烦。倒是排序啰 ...

非常感谢,让我的问题有了一种新的选择~

研究研究!!!

香川群子

其它几个时间函数的代码也编写好了。

因为我的电脑是日文环境，所以中文字符直接用了汉字双字节码输出。


很有意思，每一个函数难度都略有增加。
但忽然最后一个求时间合计的函数简单到无法再简单了，呵呵。

香川群子

lee1892 发表于 2013-1-22 13:41
这不是好不好的问题吧，你那个办法是偷换概念嘛~

对比，也就是一个循环嵌套的事，又不麻烦。倒是排序啰 ...

你的代码显然复杂过头了。

我的代码算法 简单容易懂，代码结构 简单清晰，维护、扩展方便。

我前面已经说过了，这种类型的题目，完全可以简单接入数据后，让电脑按简单逻辑运行计算即可。

没有必要搞得非常复杂。


…………
数一数，你代码中的变量个数会有多少？
远远超过我的简单算法。