“每天有大量比赛数据，如何快速判断某时间属于哪一场比赛，并自动获取最近3场记录？”
本文介绍 VBA和SQL双方案，实现：

• 自动匹配时间所属场次（如“第一场/第二场/第三场”）
• 智能返回最近3场比赛数据（跨日期自动调整）
• 完整代码+真实案例演示

需求场景分析

4种典型情况

原始数据源

TbDate表数据如下：

根据传入的时间获得如下结果

当1.传入日期 2025-04-19 03:18:00

获取当前场次：第三场，

所属日期：2025-04-18 （传入日期+Quantity）；

返回如下数据

所属日 场次

2025-04-18 第三场

2025-04-18 第二场

2025-04-18 第一场

当2.传入日期 2025-04-19 09:48:00

获取当前场次：第一场，

所属日期：2025-04-19（2025-04-19 09:48:00 +0）

返回如下数据

所属日 场次

2025-04-18 第三场

2025-04-18 第二场

2025-04-19 第一场

当3.传入日期 2025-04-19 17:48:00

获取当前场次：第二场，

所属日期：2025-04-19 （传入日期+Quantity）

返回如下数据

所属日 场次

2025-04-18 第三场

2025-04-19 第一场

2025-04-19 第二场

当4.传入日期 2025-04-19 23:45:00

获取当前场次：第三场，

所属日期：2025-04-19 （传入日期+Quantity）

返回如下数据

所属日 场次

2025-04-19 第一场

2025-04-19 第二场

2025-04-19 第三场

技术实现（分VBA和SQL两部分）

**(1)VBA方案（Excel自动化）

• 核心逻辑：
• 用 DateValue/TimeValue 分离日期和时间
• 用数组循环匹配时间范围
• 动态计算前几场数据（跨日自动调整）

'''''VBA写法
Sub 测试()
    ' 声明变量
    Dim DateOnly As Date, Date1 As Date       ' DateOnly用于存储日期部分，Date1是原始日期时间
    Dim TimeOnly As Date, Timemin As Date, Timemax As Date  ' TimeOnly用于存储时间部分，Timemin和Timemax用于时间范围比较
    Dim x As Integer, y As Integer, K As Integer  ' 循环变量和其他整型变量
    Dim strX As String                        ' 字符串变量(未使用)
    Dim ar, br(1 To 3, 1 To 2)               ' ar用于存储对照表数据，br用于存储结果(3行2列)
    
    ' 操作"对照表"工作表
    With Sheets("对照表")
        ' 设置初始日期时间(2025年4月19日 3:38:00)
        Date1 = CDate("2025-04-19 03:38:00")
        
        ' 从完整日期时间中提取日期部分和时间部分
        DateOnly = DateValue(Date1)  ' 只保留日期部分(2025-04-19)
        TimeOnly = TimeValue(Date1)  ' 只保留时间部分(03:38:00)
        
        ' 从工作表中读取F2:j5范围的数据到数组ar
        ar = .Range("f2:j5")
        
        ' 循环遍历数组ar的每一行(共4行)
        For x = 1 To 4
            ' 获取当前行的时间范围
            Timemin = ar(x, 1)  ' 第一列是最小时间
            Timemax = ar(x, 2)   ' 第二列是最大时间
            
            ' 检查当前时间是否在这个时间范围内
            If TimeOnly >= Timemin And TimeOnly <= Timemax Then
                ' 如果匹配，则根据第4列的值调整日期
                DateOnly = DateOnly + ar(x, 4)
                
                ' 存储结果到br数组的第一行
                br(1, 1) = DateOnly  ' 存储调整后的日期——所属日期
                br(1, 2) = ar(x, 3)  ' 存储第3列的值   ——场次
                
                ' 获取第5列
                y = ar(x, 5) ——场次 数字
             
              ' 找到匹配后退出循环
                Exit For
            End If
        Next x
    
        ' 填充br数组的第2行和第3行
        For x = 1 To 2
            y = y - 1  ' y值递减
            
            ' 根据y值决定如何填充br数组
            If y > 0 Then
                ' 如果y仍大于0，使用当前日期和ar数组中y+1行的第3列值
                br(x + 1, 1) = DateOnly
              ' 根据场次：数字 获取数组行号，获取场次（第 几场）
                br(x + 1, 2) = ar(y + 1, 3)
            Else
                ' 如果y小于等于0，使用前一天日期和ar数组中y+4行的第3列值
                br(x + 1, 1) = DateOnly - 1
          ' 根据场次：数字<=0  （每天3场  ）获取数组行号，获取场次（第 几场）
                br(x + 1, 2) = ar(y + 3 +1, 3)
            End If
        Next
        ' 将br数组的结果输出到工作表的J10单元格开始的3行2列区域
        .Range("j10").Resize(3, 2) = br
    End With
End Sub

(2)SQL Server方案（数据库查询）

• 核心逻辑：
• 用 BETWEEN 匹配时间区间
• 用 DATEADD 处理跨日计算
• 用临时表存储并排序结果

-SQL SERVER脚本

DECLARE @InputTime DATETIME;
SET @InputTime = '2025-04-19 23:25:00'; -- 第三场

-- 获取当前时间所属的场次和所属日
DECLARE @Batch NVARCHAR(10);
DECLARE @ResultDate DATE;
DECLARE @NUM INT;

-- 查询当前场次信息
SELECT TOP 1
    @Batch = Batch,
    @ResultDate = DATEADD(DAY, Quantity, CAST(@InputTime AS DATE)),
    @NUM = Num
FROM tbdate
WHERE CAST(@InputTime AS TIME) BETWEEN Time_S AND Time_E;
    
-- 创建临时表存储结果
DECLARE @Results TABLE (
    ResultDate DATE,
    Batch NVARCHAR(10),
    BatchNum INT  -- 添加数字字段便于排序
);

-- 插入当前场次
INSERT INTO @Results (ResultDate, Batch, BatchNum)
VALUES (@ResultDate, @Batch, @NUM);
         
-- 获取前两个场次
DECLARE @i INT = 1;
WHILE @i < 3
BEGIN
    DECLARE @PrevBatchNum INT = @NUM - @i;
    DECLARE @PrevBatchDate DATE = @ResultDate;
    DECLARE @PrevBatch NVARCHAR(10);
    
    -- 处理场次循环逻辑(1-3循环)
    IF @PrevBatchNum < 1
    BEGIN
        SET @PrevBatchNum = @PrevBatchNum + 3;
        SET @PrevBatchDate = DATEADD(DAY, -1, @PrevBatchDate);
    END
    
    -- 获取场次名称
    SELECT @PrevBatch = Batch 
    FROM tbdate 
    WHERE Num = @PrevBatchNum;
    
    -- 插入前序场次
    INSERT INTO @Results (ResultDate, Batch, BatchNum)
    VALUES (@PrevBatchDate, @PrevBatch, @PrevBatchNum);
    
    SET @i = @i + 1;
END

-- 按场次编号排序输出
SELECT ResultDate, Batch 
FROM @Results
ORDER BY BatchNum;