取得2个区间的交集

tlwh163

在群里问了 好像是没有相关的API可以调用 自己手搓。。。

1. ''区间样式:[起点,长度],使用[a,b]返回同样式的交集        '取得2个区间([a,b]和[c,d])的交集
   
2. Function GetInterSection(ByRef a As Long, ByRef b As Long, ByVal c As Long, ByVal d As Long) As Boolean
   
3.     If (b Or d) <= 0 Then Exit Function                 '长度不允许小于等于0
   
4.     Dim aa As Long, bb As Long: aa = a : bb = (a + b)
   
5.     If aa < c Then aa = c                               'max(a,c)
   
6.     If bb > (c + d) Then bb = (c + d)                   'min(b,d)
   
7.     If aa <= (bb - 1) Then                              '有交集: max(a,c)<=min(b,d)
   
8.         a = aa
   
9.         b = bb - aa
   
10.         GetInterSection = true
    
11.     End If
    
12. End Function

复制代码

文字总是对不齐 恼火、、、

0xAA55

“Intersection”是一个单词，而不是“Inter Section”

tlwh163

0xAA55 发表于 2025-1-1 13:36
“Intersection”是一个单词，而不是“Inter Section”

你说的对 不过单词太长了 我是想方便看清楚重点