循环插入，随机日期数据

create or replace procedure p_test_add
/**
* purpose  :  增加测试数据
* revisions:
   version     date        author                description
   --------    ----------  ------------------   ---------------------------------
     1.0       2010-10-22    sblig              1. 创建存储过程
*/

as
  TYPE user_array IS TABLE OF VARCHAR2(25)
  INDEX BY BINARY_INTEGER;
 
  arrUserName user_array;
  i_randomNum   number;
  d_randomDay   Date;
  i_number1       number;
   i_number2       number;
begin
    select to_char(sysdate,'J') into i_randomNum from dual;--为今天的日期生成一个内部日期数
   
    arrUserName(1) := 'ddds';
    arrUserName(2) := 'asdnli';
    arrUserName(3) := 'godod';
    arrUserName(4) := 'ssdsss';
    arrUserName(5) := 'asnqi';
    arrUserName(6) := 'wwsww';
    arrUserName(7) := 'tttdt';
   

    FOR i IN 1..100000 LOOP
        --生成近两年内的随机日期
        SELECT TO_DATE(TRUNC(DBMS_RANDOM.VALUE(i_randomNum,i_randomNum-720)),'J') into d_randomDay FROM DUAL;
        i_number1 := mod(i,8);
        i_number2 := mod(i,4);
        if i_number1 = 0 then
           i_number1 := 1;
        end if;
        if i_number2 = 0 then
           i_number2 := 1;
        end if;
           insert into t_loginlog
             (
                    udsername,
                    lsosgindtype,
                    crdeatedtime
             )
             values
             (
                   arrUserName(i_number1),
                   i_number2,
                   d_randomDay
             );
    END LOOP;
    commit;
end p_stat_test_add;