循环增加

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;