如何通过ODBC将PostgreSQL的INTERVAL类型转为Excel的Time单元格类型

嘿，这个问题我之前帮同事处理过，PostgreSQL的INTERVAL类型通过ODBC导入Excel时确实容易被识别成「常规」格式，不过有几个实用的办法能搞定，我给你一步步讲：

这是最直接的办法，让驱动在传输数据时就把INTERVAL转成Excel能识别的时间类型：

• 打开ODBC数据源管理器，找到你配置的PostgreSQL DSN，点击「配置」
• 切换到「Data Options」（不同驱动版本标签名可能略有差异）
• 勾选「Convert INTERVALs to SQL_TIMESTAMP」选项（建议用最新版psqlODBC驱动，旧版本可能没有这个功能）
• 保存配置后重新导入数据，此时Excel应该会自动把该列识别为时间格式

如果驱动配置没效果，你可以在导出数据的SQL里直接把INTERVAL转成Excel友好的格式：

• 如果你只需要时分秒部分，用TO_CHAR函数转成标准时间文本：

  SELECT TO_CHAR(your_interval_column, 'HH24:MI:SS') AS formatted_interval FROM your_table;
  

  导入后选中列，右键「设置单元格格式」→「时间」，就能转成时间类型。
• 如果你需要包含天数的完整时间值，用EXTRACT拆分后计算成Excel可识别的小数（1小时=1/24天）：

  SELECT 
    (EXTRACT(DAY FROM your_interval)*24 + EXTRACT(HOUR FROM your_interval) + 
     EXTRACT(MINUTE FROM your_interval)/60 + EXTRACT(SECOND FROM your_interval)/3600)::NUMERIC 
  AS interval_as_time 
  FROM your_table;
  

  导入后直接设置单元格格式为「时间」（选带天数的格式，比如「d hh:mm:ss」）即可。

如果已经把数据导入成常规格式了，也可以在Excel里直接处理：

• 对于格式统一的INTERVAL文本（比如「02:30:00」或者「1 day 03:45:00」）：
  1. 选中目标列，右键选择「设置单元格格式」
  2. 在「数字」标签里选「时间」，然后挑适合的显示格式（比如「hh:mm:ss」或者「d hh:mm:ss」）
• 如果是带文字描述的INTERVAL（比如「2 days 5 hours」），可以用Excel函数拆分计算：
  假设A列是原始INTERVAL，B列输入公式：

  =TIME(IFERROR(LEFT(A1,FIND(" hour",A1)-1),0), IFERROR(MID(A1,FIND("hour ",A1)+5,FIND(" min",A1)-FIND("hour ",A1)-5),0), 0) + IFERROR(LEFT(A1,FIND(" day",A1)-1)*1,0)
  

  这个公式会提取天数和小时、分钟，转换成Excel时间值，之后设置单元格格式即可。

如果数据量很大，手动操作太麻烦，可以写个简单的VBA宏批量转换：

Sub ConvertIntervalToTime()
    Dim rng As Range
    Dim cell As Range
    Set rng = Selection '先选中要转换的列再运行宏
    
    For Each cell In rng
        If cell.Value <> "" Then
            Dim intervalStr As String
            intervalStr = cell.Value
            Dim totalDays As Double
            totalDays = 0
            
            '处理包含天数的情况
            If InStr(intervalStr, "day") > 0 Then
                totalDays = totalDays + CInt(Split(intervalStr, " ")(0))
                intervalStr = Trim(Split(intervalStr, "day")(1))
            End If
            
            '处理时分秒部分
            If InStr(intervalStr, ":") > 0 Then
                Dim timeParts As Variant
                timeParts = Split(intervalStr, ":")
                totalDays = totalDays + CInt(timeParts(0))/24 + CInt(timeParts(1))/1440 + CDbl(timeParts(2))/86400
            End If
            
            cell.Value = totalDays
            cell.NumberFormat = "d hh:mm:ss" '可以改成你需要的时间格式，比如"hh:mm:ss"
        End If
    Next cell
End Sub

使用方法：

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 插入一个新模块，把上面的代码粘贴进去
3. 回到Excel表格，选中要转换的列，然后运行这个宏

内容的提问来源于stack exchange，提问作者Michal Špondr