Discussion :

[bernidupont]

Bonjour la team,

Connaissez-vous une façon propore pour mettre en place une solution du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
 
create or replace
PROCEDURE    MA_FONCTION 
AS	
 
 type table_type is table of date;
 ma_table table_type;
 ma_date date;
 W_TEST varchar2(64);
 W_IDX number;
 
BEGIN
 
ma_table(1) := TO_DATE('01/01/2000','dd/mm/yyyy'); 
ma_table(2) := TO_DATE('01/01/2001','dd/mm/yyyy'); 
ma_table(3) := TO_DATE('01/01/2002','dd/mm/yyyy'); 
 
ma_date := TO_DATE('01/01/2003','dd/mm/yyyy');
 
for W_IDX in ma_table.first..ma_table.last loop
 
   IF ma_date  IN ( ma_table(W_IDX) )then
       W_TEST := 'OK'; 
    else
      W_TEST := 'KO'; 
    end if;
 
end loop;
END;

Existet-il un moyen pour faire quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
IF ma_date  IN ma_table
  ...
THEN

Merci pour votre aide,
Berni.

[mnitu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
 
Connected to Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 
Connected as impdata
 
SQL> set serveroutput on
SQL> 
SQL> declare
  2    type date_nt Is table of date ;
  3    l_date_tab   date_nt := date_nt(trunc(sysdate), trunc(sysdate - 1), trunc(sysdate- 2));
  4    --
  5    l_adate1      date := trunc(sysdate - 1);
  6    l_adate2      date := trunc(sysdate - 5);
  7  Begin
  8    If l_adate1 Member Of l_date_tab Then
  9      dbms_output.put_line('OK');
 10    End If;
 11    --
 12    If l_adate2 Not Member Of l_date_tab Then
 13      dbms_output.put_line('KO');
 14    End If;
 15  End;
 16  /
 
OK
KO
 
PL/SQL procedure successfully completed
 
SQL>