循环增加

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;

  

posted @   刀小爱  阅读(187)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示