allday.sql

				
--**************************************
-- Name: allday.sql
-- Description:You enter a day say 'monday' & it finds the dates of all mondays in the month.
-- By: Dhairyasheel Tawde
--
-- Inputs:One just has to input the day in quotes like say
'monday' or 'tuesday' etc.
--
-- Returns:it returns the dates, corresponding to the day entered, in the current month.
--
--This code is copyrighted and has-- limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=465&lngWId=5--for details.--**************************************

declare
x date;
y date;
z date;
a char(10):= &day;
b char(10);
begin
select trunc(to_date(sysdate),'month') into x from dual;
select to_char(x,'day') into b from dual;
select last_day(sysdate) into y from dual;
dbms_output.put_line(a);
if a=b then
dbms_output.put_line(x);
end if;
loop
	select next_day(x,a) into z from dual;
 
	x:=z;
	exit when x>y;
	dbms_output.put_line(z);
end loop;
end;