quarta-feira, 29 de setembro de 2010
quinta-feira, 23 de setembro de 2010
terça-feira, 21 de setembro de 2010
segunda-feira, 20 de setembro de 2010
sexta-feira, 17 de setembro de 2010
segunda-feira, 13 de setembro de 2010
sexta-feira, 10 de setembro de 2010
Sorteio das chávenas nespresso...

Os vencedores foram o josé e o Rui, o script utilizado para sortear foi o seguinte
declare
type tt_varchar2 is table of varchar2(50) index by binary_integer;
Candidatos tt_varchar2;
L_sorteado Number;
-------------
procedure add_nome(I_nome varchar2, I_quantidade number)
is
begin
For i in 1..I_quantidade
loop
Candidatos(NVL(Candidatos.last,0)+1) := I_nome;
End loop;
end;
begin
add_nome('João ------', 4);
add_nome('José ------', 10);
add_nome('Miguel ------', 3);
add_nome('Orlando ----------', 1);
add_nome('Ricardo ------', 2);
add_nome('Rui ------', 5);
for i in 1..Candidatos.count
loop
dbms_output.put_line('('||i||')->'||Candidatos(i));
End Loop;
-------------------------------------------
SELECT reverse(to_char(to_number(to_char(systimestamp, 'FF6'))))
into L_sorteado
FROM dual;
dbms_output.put_line('milisegudos ->'||L_sorteado);
L_sorteado := mod(L_sorteado,Candidatos.count)+1 ;
dbms_output.put_line(' o sorteado foi o ('||L_sorteado||') ->'||Candidatos(L_sorteado));
End;
segunda-feira, 6 de setembro de 2010
quarta-feira, 1 de setembro de 2010
Subscrever:
Comentários (Atom)










