select sysdate - 5 - to_char(sysdate, 'd'), sysdate + 1 - to_char(sysdate, 'd') from dual
-- 이번주 월요일부터 일요일까지
select sysdate + 2 - to_char(sysdate, 'd'), sysdate + 8 - to_char(sysdate, 'd') from dual
출처
http://www.w3schools.com/sql/sql_between.asp
select decode(statusid,1,1,0) as f1,
decode(statusid,2,1,0) as f2,
decode(statusid,3,1,0) as f3,
decode(statusid,4,1,0) as f4
from jsp_board
where write_date
BETWEEN to_date(to_char(sysdate,'yyyymmdd') || '000000','yyyymmddhh24miss')
and to_date(to_char(sysdate + 1,'yyyymmdd') || '000000','yyyymmddhh24miss')
출처
http://kurapa.com/content-a411_%25ED%2588%25AC%25EB%25AA%2585%25EC%259C%2588%25EB%258F%2584%25EC%259A%25B0
http://careerblog.scout.co.kr/home/?pSeq=665762&blogURL=http://neodreamer.tistory.com/39
http://careerblog.scout.co.kr/search/?searchtype=4&searchtext=CodeGear
// 투명 윈도우 만들기
procedure TfmMain.Button1Click(Sender: TObject);
begin
SetWindowLong(handle, GWL_EXSTYLE, GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(handle, 0, Round((255 * 70 ) / 100), LWA_ALPHA);
end;
// 투명 윈도우 만들기 + 최상위 윈도우 + 이벤트 활성화
procedure TfmMain.Button2Click(Sender: TObject);
begin
Self.Color := RGB(1, 1, 1);
SetWindowLong(handle, GWL_EXSTYLE, GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes( handle, RGB(1, 1, 1), 127, LWA_COLORKEY or LWA_ALPHA);
Self.FormStyle := fsStayOnTop;
end;
