循环增加
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | Declare j Number; Str Nvarchar2(100); Sb Nvarchar2(100); Begin For i In 1 .. 365 Loop Str := To_Char((To_Date( '2018-08-31 00:00:00' , 'yyyy-mm-dd hh24:mi:ss' )) + i, 'yyyy-mm-dd hh24:mi:ss' ); --dbms_output.put_line(str ); For s In 1 .. 365 Loop Sb := To_Char((To_Date( '2018-08-31 00:00:00' , 'yyyy-mm-dd hh24:mi:ss' )) + s, 'yyyy-mm-dd hh24:mi:ss' ); Select Count(*) Into j From 病案主页 Where 入院日期 < To_Date(Str, 'yyyy-mm-dd hh24:mi:ss' ) And 出院日期 > To_Date(Sb, 'yyyy-mm-dd hh24:mi:ss' ); If (j > 50) Then Dbms_Output.Put_Line(j || 'k' || Str); End If; End Loop; End Loop; End; |
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步