SQL面试题，求时间间隔内访问ID及其明细

xuzong

数据分析｜SQL面试题—间隔问题
由于数据大，最好能用SQL
求在时间间隔10天内访问3次以上的ID和具体的到访时间
比如第一个客户，在114天，116天，122天访问了，刚好在10天间隔内
第二个客户在第96,99,100天访问了，刚好也在10天内，也符合要求

我查了一下，一个字段之间的间隔，暂时没有找到相关函数,难道要用DATEDIF（）？ 间隔问题.rar (19.39 KB, 下载次数: 13)

2021-5-31 14:45 上传

点击文件名下载附件
间隔问题

还请大家指点下，谢谢！

marchwen01

WHERE Date_Column > date AND Date_Column < date

zpy2

https://zhuanlan.zhihu.com/p/354816097

xuzong

marchwen01 发表于 2021-5-31 15:07
WHERE Date_Column > date AND Date_Column < date

没有体现10天内，3次以上
谢谢你！

marchwen01

xuzong 发表于 2021-5-31 16:35
没有体现10天内，3次以上
谢谢你！

刚没看附件，搞错了。

zpy2

感觉有点烧脑。。。
WITH RECURSIVE 父(行,客户ID,访问时间第几天,父访问时间第几天,时间间隔) AS ( select min(rowid) 行,客户ID,访问时间第几天,1000 父访问时间第几天,1000-访问时间第几天 时间间隔 from 客户访问时间明细表 group by 客户ID UNION SELECT 子.rowid,子.客户ID,子.访问时间第几天,父.访问时间第几天,子.访问时间第几天-父.访问时间第几天 FROM 客户访问时间明细表 子 JOIN 父 ON 子.客户ID=父.客户ID and cast(子.访问时间第几天 as integer)>cast(父.访问时间第几天 as integer)) select *,count(*),group_concat(访问时间第几天) from 父 where 时间间隔<10 group by 客户ID,父访问时间第几天 having count(*)>2 limit 300

行	客户ID	访问时间第几天	父访问时间第几天	时间间隔	count(*)	group_concat(访问时间第几天)
377	34	137	129	8	3	135,136,137
53	4	177	170	7	3	175,176,177
514	48	145	136	9	3	137,139,145
702	67	96	88	8	3	89,93,96
89	7	177	168	9	3	175,176,177
90	7	181	175	6	3	176,177,181

jiangxiaoyun

用函数或者vba倒是挺简单的

xuzong

zpy2 发表于 2021-5-31 18:24
感觉有点烧脑。。。
WITH RECURSIVE 父(行,客户ID,访问时间第几天,父访问时间第几天,时间间隔) AS ( selec ...

这个面试题还真不容易，我看得都很吃力，感谢关注！

xuzong

jiangxiaoyun 发表于 2021-5-31 18:56
用函数或者vba倒是挺简单的

数量少是可以用VBA，访问数据太多，只能用SQL

xuzong

Sub 统计间隔()
    Dim Conn As Object, Rst As Object
    Dim strConn As String, strSQL As String
    Dim i As Integer, PathStr As String
    Set Conn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
    Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
    Case Is <= 11
        strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    Case Is >= 12
        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    End Select
    Conn.Open strConn    '打开数据库链接
   
strSQL = "Select * From [数据$]a ,[数据$]b where a.客户=b.客户 and b.时间-a.时间<10and b.时间 > a.时间" '
    Set Rst = Conn.Execute(strSQL)    '执行查询，并将结果输出到记录集对象
    With Worksheets(2)
        .Cells.Clear
        For i = 0 To Rst.Fields.Count - 1    '填写标题
            .Cells(1, i + 1) = Rst.Fields(i).Name
        Next i
        .Range("A2").CopyFromRecordset Rst

    End With
    Rst.Close    '关闭数据库连接
    Conn.Close
    Set Conn = Nothing
    Set Rst = Nothing
End Sub



采用别名可以达到预期目标，目前只差访问3次以上的ID和具体的到访时间，继续努力