循环增加

最新推荐文章于 2024-11-20 00:01:38 发布

weixin_30443747

最新推荐文章于 2024-11-20 00:01:38 发布

阅读量275

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xh0626/p/11053150.html

博客展示了一段代码，通过双重循环对日期进行增加操作。外层循环从 1 到 365，内层循环同样从 1 到 365，每次循环将日期增加相应天数并转换格式。还从“病案主页”表中查询满足特定日期条件的数据，若数量大于 50 则输出结果。

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;

转载于:https://www.cnblogs.com/xh0626/p/11053150.html