Q&A

  • 매달 말일을 구하고 싶은데요..




시스템 날짜를 가져오되 그달 말일만을 가져 오고 싶거든요...

어떻게 해야 할지???



초보이니 자세한 사항 부탁 드립니다...

2  COMMENTS
  • Profile
    혀노 2000.02.28 23:28
    아래 두개의 함수를 사용해보세요~



    //윤년 체크

    Function TForm.Year(const nYear : Integer) : Boolean;

    begin

    Result := (nYear Mod 4 = 0) and ((nYear Mod 100 <> 0) or (nYear Mod 400 = 0));

    end;



    //월 말일 체크

    Function TForm.MonthDay(const nMonth, nYear : Integer) : Integer;

    const

    Month : Array[1..12] Of Integer

    = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

    begin

    Result := Month[nMonth];

    If (nMonth = 2) and Year(nYear) then Inc(Result);

    end;



    한영주 wrote:

    >

    >

    > 시스템 날짜를 가져오되 그달 말일만을 가져 오고 싶거든요...

    > 어떻게 해야 할지???

    >

    > 초보이니 자세한 사항 부탁 드립니다...

  • Profile
    강인규 2000.02.28 22:13
    코딩을 올리는 것보단 그냥 답변을 드리겠습니다.

    뭐 좋은 디비는 lastday라는 함수도 있다더구만 코딩으로 막고품자면.....



    오늘날짜를 가져와 그달이 12월인지 검사합니다.

    12월이면 다음년도 1월을 구합니다.

    아니면 그달에 1을 더합니다.

    다음달 (지급 구한달)의 1일을 구해서 데이트형으로 만듭니다.

    거기서 1을 뺍니다.

    그러면 그달의 마지막달이 됩니다.



    아님 다른 막고품는법



    1,3,5,7,8,10,12월은 말일이 31일입니다

    4,6,9,11월은 30일이죠

    2월은 28일 그런데.....

    년도를 4로 나누면 윤년 이걸 다시 100으로 나누면 윤년아님 다시 400으로 나누면 윤년

    이딴 알고리즘 있습니다.

    조건문으로 돌리면 됩니다.





    한영주 wrote:

    >

    >

    > 시스템 날짜를 가져오되 그달 말일만을 가져 오고 싶거든요...

    > 어떻게 해야 할지???

    >

    > 초보이니 자세한 사항 부탁 드립니다...

    • 한영주
    • 2000.02.28 20:46
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 혀노
      2000.02.28 23:28
      아래 두개의 함수를 사용해보세요~ //윤년 체크 Function TForm.Year(const nYear : Integer) : Boolea...
    • 강인규
      2000.02.28 22:13
      코딩을 올리는 것보단 그냥 답변을 드리겠습니다. 뭐 좋은 디비는 lastday라는 함수도 있다더구만 코딩으...
    • 삐루
    • 2000.02.28 20:32
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김진호
      2000.02.28 23:03
      삐루 wrote: > 현업 전산실에서 > 억세스 DB가 로컬 뿐아니라, > 멀티유저를 지원한다며 억세스로 해...
    • 장성준
    • 2000.02.28 20:19
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김광섭
      2000.02.29 01:55
      장성준 wrote: > 제목그대로입니다. > 디비그리드상의 선택된 자료(다중선택)만 퀵레포트로 출력하길 원...
    • 초보맨
    • 2000.02.28 20:15
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이재식
      2000.02.29 01:19
      초보맨 wrote: > DB GRID 에서 CTRL+DELETE 를 눌렀을때 뜨는 삭제 확인창을 사용자가 만든 버튼으로 > ...
    • 김도완
    • 2000.02.28 19:38
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2000.02.28 21:17
      질문만 봐서는 어디서 에러가 났는지 모르겠군요... Access Violation에러는 할당받지않은 메모리 영역을 ...
    • 조창범
    • 2000.02.28 19:35
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 조창범
      2000.02.28 19:44
      참 , 참고로 이 프로그램은 엔티에서 그대로 실행하는것이 아니라 각 클라언트에서 실행을하는 것이거든요...
    • 최용일
      2000.02.28 21:08
      이렇게 해보세요... 로그파일에서 WinExec('MainFile.exe LoginID, SW_SHOW);하고 메인파일에서 LoginID...
    • 민호
    • 2000.02.28 18:44
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2000.02.28 21:12
      새롭게 만들어 쓰세요... 그렇게 어렵지 않습니다... 몇가지 편법이 있지만 새롭게 만들어 쓰는게 훨씬 났...
    • 여용구
    • 2000.02.28 18:38
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 강인규
      2000.02.28 22:23
      오성과 한음에 가시면 위의 콤포넌트를 판매하고 있습니다. 파는걸 보니 쉽게 되는건 아닌가봐요 저두 ...
    • 최용일
      2000.02.28 21:14
      CoolBar, ToolBar, ControlBar와 같은 콤포넌트를 사용하시면 됩니다. 여용구 wrote: > 안녕하십니까.....
    • 초보
    • 2000.02.28 18:35
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 하얀까마귀
      2000.02.28 19:47
      저도 3.0을 사용하다가 5.0을 쓰게되면서 알았어요.. 얼마전에.. 어떻게 쓰시는데 안나오는지 모르겠는데....
    • 최용일
      2000.02.28 19:43
      윈도API함수인 EnumWindows를 이용하시면 원하시는 핸들을 얻으실 수 있습니다. 원하시는 처리는 콜백함수...
    • 저요
      2000.02.28 23:41
      최용일 wrote: > 윈도API함수인 EnumWindows를 이용하시면 원하시는 핸들을 얻으실 수 있습니다. > 원하...
    • 최용일
      2000.02.29 00:04
      배열과 같은 변수에 저장하시면 돼죠... 그리고 콜백함수를 호출한 루틴보다는 콜백함수에서 처리를 하시...
    • 김용찬
    • 2000.02.28 11:38
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김용찬
      2000.02.28 12:53
      에구에구... 여기서 여러가지 글을 읽다보니까... 다들 ISAPI로 컨버젼한다구 하길래.. 저두 어차피 필...
    • hart
      2000.02.28 18:31
      이상주 wrote: > 현재일을기준으로 전후한달씩을 스트링그리드로 불러오려하면... > 어떻케하면돼나요???...
    • 최은창
      2000.02.28 18:25
      가장 쉬운 방법은 델파이에 포함된 QuickReport를 이용하는 방법입니다. 폼위에 QuickReport를 배치해 두...
    • hart
      2000.02.28 18:22
      서지현 wrote: > 안녕하십니까??? > > 많은 사람들의 질문에 답변을 해주시는 모든 고수님들게 감사의 ...
    • 최용일
      2000.02.28 09:25
      폼의 OnCreate이벤트를 다음과 같이 작성하면 됩니다. procedure TForm1.FormCreate(Sender: TObject); b...
    • 떴다 왕초보
      2000.02.28 11:43
      안냐세요~~ 아래와 같이 하니 폼은 커지는데, 화면은 그 크기 그대로 더군요~~ 혹시 비율로써 생각하면...
    • 최용일
      2000.03.05 09:52
      아마도 원하시는 예제인것 같아서 올립니다... 안경훈님의 홈페이지에서 퍼왔습니다... 작성자 : 안경...