循环插入，随机日期数据

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;