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;