::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  김영대(2003-03-05 10:18:49, Hit : 6208, Vote : 1787
 날짜계산: (yyyy-4) + (mm+254) + (dd+1234) = 몇일?

function DateSer(y, m, d: Integer): TDateTime;
const
  mj: array[1..12] of Integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var
  add: Integer;
begin
While (true) do
begin
   y := y + (m-1) div 12;
   m := (m-1) mod 12 +1;

   if m <= 0 then
   begin
     Inc(m, 12);
     Dec(y);
   end;

   if ((y mod 4 = 0) and
      ((y mod 100 <> 0) or (y mod 400 = 0))) and
      (m = 2)
   then
     add:=1 //add one day in February
   else
     add:=0;

   if (d > 0) and (d <= (mj[m] + add)) then
     break;
   if d > 0 then
   begin
     Dec(d, mj[m]+add);
     Inc(m);
   end
   else
   begin
     Inc(d, mj[m]+add);
     Dec(m);
   end;
end;
Result := EncodeDate(y, m, d);
end;


// 사용예제
DecodeDate(Date, y, m, d);
NewDate := DateSer(y-4, m+254, d+1234);





971   [시스템] 델파이로 DOS 프로그램(Console application) 만들기  김영대 2003/03/06 8702 2828
970   [네트웍/인터넷] 윈도우즈 소켓의 에러번호에 대한 설명  김영대 2003/03/05 7600 2641
969   [시스템] 2기가 이상의 하드의 남은 용량 알아내기...  김영대 2003/03/06 7395 2071
968   [윈도우즈 API] 윈도우즈 커서(global cursor) 바꾸기  김영대 2003/03/07 6509 2020
967   [윈도우즈 API] 폼을 최상위로 설정 및 해제  김영대 2003/03/04 5683 2007
966   [시스템] 시스템 타임이 변경되었는지를 알아내려면...  김영대 2003/03/05 7243 2002
965   [네트웍/인터넷] RFC: Request for Comments  김영대 2003/03/05 7537 1977
964   [시스템] 마우스의 좌/우 기능설정과 버튼갯수 알기  김영대 2003/03/06 7208 1958
963   [일반/컴포넌트] ListBox에 검색(근접검색)기능 두기  김영대 2003/03/05 5857 1954
962   [윈도우즈 API] 작업표시줄의 시계 감추기/보이기  김영대 2003/03/27 7040 1921
961   [윈도우즈 API] "Windows 정보" About 화면 사용하기  김영대 2003/03/06 6236 1921
960   [네트웍/인터넷] How to bring a network down - "Win Nuke"  김영대 2003/03/06 7028 1919
959   [시스템] 내 PC에 사운드카드가 있는지 검사  김영대 2003/03/04 6586 1899
958   [윈도우즈 API] 실행된 Tray Icon 변경하기  김영대 2003/03/07 6123 1859
957   [데이터베이스] FoxPro의 제한  김영대 2003/03/05 6650 1846
956   [일반/컴포넌트] 동적으로 생성한 TLabel 마우스로 이동시키기  김영대 2004/08/04 6256 1845
955   [네트웍/인터넷] Ethernet 랜카드의 MAC adress 구하기  김영대 2003/03/07 7080 1843
954   [일반/컴포넌트] TStatusBar 의 각 Panel의 폰트 바꾸기  김영대 2003/03/04 5523 1833
953   [윈도우즈 API] IE의 "즐겨찾기 구성" 화면 띄우기  김영대 2003/03/30 5534 1831
952   [윈도우즈 API] WinPopup 을 만들기 위한 Mail Slot ?  김영대 2003/03/05 6418 1830
951   [일반/컴포넌트] 데스크탑의 아이콘을 몽땅 움직여보자!!  김영대 2003/03/05 6214 1829
950   [네트웍/인터넷] List of raw FTP commands  김영대 2003/03/05 7021 1828
949   [윈도우즈 API] 윈도우즈 탐색기의 아이콘 뽑아내서 사용하기  김영대 2003/03/07 6291 1825
948   [시스템] 키보드의 Num Lock 키 켜고 끄기  김영대 2003/03/05 6134 1822
947   [일반/컴포넌트] 명령행 인자 받아오기  김영대 2003/03/05 6986 1821
946   [네트웍/인터넷] RS232 통신  김영대 2003/03/07 6690 1801
945   [네트웍/인터넷] NetMask 알아내기  김영대 2003/03/07 7002 1797
  [일반/컴포넌트] 날짜계산: (yyyy-4) + (mm+254) + (dd+1234) = 몇일?  김영대 2003/03/05 6208 1787
943   [윈도우즈 API] System Images  김영대 2003/03/07 6127 1774
942   [시스템] 프린트 스풀러 제어방법  김영대 2003/03/07 6140 1770
941   [시스템] 마우스가 설치되어 있는지 검사하기  김영대 2003/03/07 6612 1765
940   [일반/컴포넌트] 윈도우즈 "날짜/시간" 설정화면 띄우기  김영대 2003/03/06 5984 1765
939   [시스템] 마우스 자취(trails)의 갯수 조정하기  김영대 2003/03/06 5621 1763
938   [시스템] 마우스 두 번 누르기 속도 조정하기  김영대 2003/03/06 5700 1762
937   [윈도우즈 API] TreeView의 hint popup 없애기  김영대 2003/03/07 5489 1755
936   [일반/컴포넌트] TRichEdit 를 disable 할 때 배경색과 폰트 바꾸기  김영대 2004/09/02 6098 1751
935   [일반/컴포넌트] 메뉴의 잘못된 accelerator 를 선택했을때  김영대 2003/03/05 6185 1750
934   [일반/컴포넌트] 사업자 등록번호를 검사하는 법  김영대 2003/03/06 6689 1742
933   [윈도우즈 API] 임시로 만든 파일 꼭 지우기  김영대 2003/03/04 6117 1736
932   [시스템] 윈도우즈 네트워크 드라이브 리스트  김영대 2003/03/05 6628 1734

1 [2][3][4][5][6][7][8][9][10]..[25] [다음 10개]
 

Copyright 1999-2019 Zeroboard / skin by zero