한국 델파이 개발자 모임 - 음력 계산 질문 입니다.

음력 계산 질문 입니다.

제목 그데로 음력 계산 질문 입니다.

오늘 날짜를 음력으로 계산해서 날짜 값을 화면에 표시할려구 하는데 잘 모르 겠습니다.

아시는분 답변 부탁합니다.

죄송 하지만 말로 설명 하심 제가 초보라 잘 모름니다.

예제 설명 부탁 합니다.

이 게시물을

2 COMMENTS

정형준 • 2002.05.08 16:57

양력에서 음력으로 변환하는것은 계산식이 아니고
데이터에 의해 바꿀수 있습니다.

예전에 어디선가 다운받은 소스입니다. (저자는 최경원으로 되어있습니다.)
다음은 소스의 내용입니다.
참고 : 1901년부터 1999년까지 처리할 수 있습니다.

unit sunlun;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Spin, StdCtrls, Buttons;

type
  Tyun = class(TForm)
    yy: TSpinEdit;
    mm: TSpinEdit;
    dd: TSpinEdit;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    yymmdd: TPanel;
    Panel8: TPanel;
    ok: TBitBtn;
    Panel6: TPanel;
    procedure okClick(Sender: TObject);
    procedure yyChange(Sender: TObject);
    procedure mmChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure tran;
    procedure chkmaxday ;
  public
    { Public declarations }
  end;

var
  yun: Tyun;

implementation

{$R *.DFM}

procedure Tyun.tran ;
  Type
        lunTYPE = array[1..99,1..13] of integer ;
          vvm = Array[1..6] of Integer;
          yday = Array[1..10,1..2] of integer;
          eday = Array[1..7,1..2] of integer;
          um = Array[1..99,1..13] of Longint;
        Days = set of 3..6;
        Days1 = set of 3..4;
        Days2 = set of 5..6;

  const

eum : lunTYPE = ((354, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1),
                (355, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2),
                (383, 1, 2, 1, 2, 3, 2, 1, 1, 2, 2, 1, 2),
                (354, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1),
                (355, 2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2),
                (384, 1, 2, 2, 4, 1, 2, 1, 2, 1, 2, 1, 2),
                (354, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1),
                (355, 2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2),
                (384, 1, 5, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2),
                (354, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1),
                (384, 2, 1, 2, 1, 1, 5, 1, 2, 2, 1, 2, 2),
                (354, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2),
                (354, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2),
                (384, 2, 2, 1, 2, 5, 1, 2, 1, 2, 1, 1, 2),
                (355, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2),
                (354, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1),
                (384, 2, 3, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1),
                (355, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2),
                (384, 1, 2, 1, 1, 2, 1, 5, 2, 2, 1, 2, 2),
                (354, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2),
                (354, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2),
                (384, 2, 1, 2, 2, 3, 2, 1, 1, 2, 1, 2, 2),
                (354, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2),
                (354, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1),
                (385, 2, 1, 2, 5, 2, 1, 2, 2, 1, 2, 1, 2),
                (354, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1),
                (355, 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2),
                (384, 1, 5, 1, 2, 1, 1, 2, 2, 1, 2, 2, 2),
                (354, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2),
                (383, 1, 2, 2, 1, 1, 5, 1, 2, 1, 2, 2, 1),
                (354, 2, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1),
                (355, 2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2),
                (384, 1, 2, 2, 1, 6, 1, 2, 1, 2, 1, 1, 2),
                (355, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2),
                (354, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1),
                (384, 2, 1, 4, 1, 2, 1, 2, 1, 2, 2, 2, 1),
                (354, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1),
                (384, 2, 2, 1, 1, 2, 1, 4, 1, 2, 2, 2, 1),
                (354, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2),
                (354, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1),
                (384, 2, 2, 1, 2, 2, 4, 1, 1, 2, 1, 2, 1),
                (355, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2),
                (355, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2),
                (384, 1, 1, 2, 4, 1, 2, 1, 2, 2, 1, 2, 2),
                (354, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2),
                (354, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2),
                (384, 2, 5, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2),
                (354, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2),
                (384, 2, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2),
                (354, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1),
                (355, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2),
                (384, 1, 2, 1, 2, 4, 2, 1, 2, 1, 2, 1, 2),
                (355, 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 2),
                (354, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2),
                (384, 2, 1, 4, 1, 1, 2, 1, 2, 1, 2, 2, 2),
                (354, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2),
                (384, 2, 1, 2, 1, 2, 1, 1, 5, 2, 1, 2, 2),
                (354, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2),
                (354, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1),
                (384, 2, 1, 2, 1, 2, 5, 2, 1, 2, 1, 2, 1),
                (355, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2),
                (354, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1),
                (384, 2, 1, 2, 3, 2, 1, 2, 1, 2, 2, 2, 1),
                (355, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2),
                (353, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1),
                (384, 2, 2, 5, 2, 1, 1, 2, 1, 1, 2, 2, 1),
                (355, 2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2),
                (384, 1, 2, 2, 1, 2, 1, 5, 2, 1, 2, 1, 2),
                (354, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1),
                (355, 2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2),
                (384, 1, 2, 1, 1, 5, 2, 1, 2, 2, 2, 1, 2),
                (354, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1),
                (354, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 1),
                (384, 2, 2, 1, 5, 1, 2, 1, 1, 2, 2, 1, 2),
                (354, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2),
                (384, 2, 2, 1, 2, 1, 2, 1, 5, 2, 1, 1, 2),
                (354, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1),
                (355, 2, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1),
                (384, 2, 1, 1, 2, 1, 6, 1, 2, 2, 1, 2, 1),
                (355, 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2),
                (354, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2),
                (384, 2, 1, 2, 3, 2, 1, 1, 2, 2, 1, 2, 2),
                (354, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2),
                (384, 2, 1, 2, 2, 1, 1, 2, 1, 1, 5, 2, 2),
                (354, 1, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2),
                (354, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1),
                (385, 2, 1, 2, 2, 1, 5, 2, 2, 1, 2, 1, 2),
                (354, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1),
                (355, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 2),
                (384, 1, 2, 1, 1, 5, 1, 2, 2, 1, 2, 2, 2),
                (354, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2),
                (354, 1, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2),
                (383, 1, 2, 5, 2, 1, 2, 1, 1, 2, 1, 2, 1),
                (355, 2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2),
                (384, 1, 2, 2, 1, 2, 2, 1, 5, 2, 1, 1, 2),
                (354, 1, 2, 1, 2, 2, 1, 2, 1, 2, 2, 1, 1),
                (355, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1),
                (384, 2, 1, 1, 2, 3, 2, 2, 1, 2, 2, 1, 2),
                (354, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1));

var
i,yy1,mm1,j : integer;
ddd,tt,pv_odate,Stdate : TdateTime;
dg,dd1 : real;

yhday : yday;
ehday  :eday;
vm : vvm;
dyn : days;
dyn1 : days1;
dyn2 : days2;
tmp1,tmp2,tmp3 : string;
Year, Month, Day,Year1, Month1, Day1: word;
begin
        year := yy.value;
        month := mm.value;
        Day :=  dd.value;

        ddd := encodeDate( Year, Month, Day);

        vm[1] := 29 ;
        vm[2] := 30 ;
        vm[3] := 29 + 29 ;
        vm[4] := 29 + 30 ;
        vm[5] := 30 + 29 ;
        vm[6] := 30 + 30 ;

{ky=LEFT(DTOC(ddd),4)}
        year := 1900;
        month := 12;
        Day :=  31;
        Stdate := encodeDate( Year, Month, Day);

        tt :=ddd-Stdate-49 ;

        yy1 :=1;

WHILE tt>eum[yy1,1] do begin
   tt := tt-eum[yy1,1];
   yy1 := yy1+1 ;
END;
mm1 := 2;

WHILE tt>vm[eum[yy1,mm1]] do begin
   tt := tt-vm[eum[yy1,mm1]] ;
   mm1 := mm1+1 ;
END;

dd1 := tt;

IF eum[yy1,mm1] in dyn        then begin
   IF (eum[yy1,mm1] in dyn1) AND (tt > 29) then
      dd1 :=tt-29;
   IF (eum[yy1,mm1] in dyn2) AND (tt > 30) then
      dd1 := tt-30;
END;

        year := yy1+1900;
        month := mm1-1;
        Day :=  Trunc(dd1);
        yymmdd.caption := IntTOStr(year)+ '년' +IntTOStr(month) + '월' + IntTOStr(Day)+ '일';
end;

procedure Tyun.okClick(Sender: TObject);
begin
   tran;
end;
procedure Tyun.chkmaxday ;
var
        myym : integer;
begin
        myym := yy.value mod 4;
   case mm.value of
           1  : begin
              dd.MaxValue := 31;
      end;
      2  : begin
              if myym = 0 then begin
                      if dd.value > 29 then
                    dd.value := 29;
                      dd.MaxValue := 29;
         end
         else begin
                      if dd.value > 28 then
                    dd.value := 28;
                      dd.MaxValue := 28;
         end;
      end;
      3  : begin
              dd.MaxValue := 31;
      end;
      4  : begin
              if dd.value > 30 then
                 dd.value := 30;
              dd.MaxValue := 30;
      end;
      5  : begin
              dd.MaxValue := 31;
      end;
      6  : begin
              if dd.value > 30 then
                 dd.value := 30;
              dd.MaxValue := 30;
      end;
      7  : begin
              dd.MaxValue := 31;
      end;
      8  : begin
              dd.MaxValue := 31;
      end;
      9  : begin
              if dd.value > 30 then
                 dd.value := 30;
              dd.MaxValue := 30;
      end;
      10 : begin
              dd.MaxValue := 31;
      end;
      11 : begin
              if dd.value > 30 then
                 dd.value := 30;
              dd.MaxValue := 30;
      end;
      12 : begin
              dd.MaxValue := 31;
      end;
      else
              mm.value := 1;
   end;
end;

procedure Tyun.yyChange(Sender: TObject);
begin
        chkmaxday;
end;

procedure Tyun.mmChange(Sender: TObject);
begin
        chkmaxday;
end;

procedure Tyun.FormShow(Sender: TObject);
var
        year,month,day : word;
begin
        DecodeDate(Now,year,month,day);
   yy.value := year;
   mm.value := month;
   dd.value := day;
        chkmaxday;
   tran;
end;

end.
- 0
- 0
- 삭제
- 수정
- 댓글
최병권 • 2002.06.27 05:13

게시하신 소스 대단히 감사 합니다.
그런데 실제 프로그렘에서 unit를 사용하는 법좀 부탁 합니다.
감사합니다.
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 나옹이
- •
- 2002.05.08 23:21
- 1 COMMENTS
- /
- 0 LIKES
Pannel 안에 있는 Panel
- 최용일
  
  •
  
  2002.05.09 00:11
  
  안녕하세요. 최용일입니다. Panel2의 OnMouseDown이벤트에서 아래와 같이 해보세요. 간단합니다... p...
- 이윤주
- •
- 2002.05.08 23:08
- 3 COMMENTS
- /
- 0 LIKES
StringGrid에서 FixedCols 로 설정된 칼럼을 에디트 가능하게 할수는 없나요?
- 홍성락
  
  •
  
  2002.05.09 23:54
  
  hsr/////////////////////////////////////////////////////////////// 고정된 셀에서 EditorMode := True...
- 장태원
  
  •
  
  2002.05.09 01:05
  
  fixedcol 로 사용하시지..말고..첫 row를 색깔만 바꿔서 사용하셈..ㅡㅡ;
- 이윤주
  
  •
  
  2002.05.09 01:13
  
  칼럼이 너무 많아서 스크롤이 생기는데.. 스크롤을 해두 앞에 세 칼럼은 고정적으루 보여주게 해줄려구 한 ...
- 이은경
- •
- 2002.05.08 22:42
- 5 COMMENTS
- /
- 0 LIKES
자동증가된 필드값을 Insert후 바로 알고싶습니다.
- KDDG_Hoya
  
  •
  
  2002.05.08 23:16
- 이은경
  
  •
  
  2002.05.09 00:58
- KDDG_Hoya
  
  •
  
  2002.05.09 01:24
- 이은경
  
  •
  
  2002.05.09 01:38
- KDDG_Hoya
  
  •
  
  2002.05.09 02:14
- 이선옥
- •
- 2002.05.08 22:41
- 1 COMMENTS
- /
- 0 LIKES
mysql과 연동된 예제 소스프로그램 구합니다..
- 전민식
  
  •
  
  2002.05.08 22:52
  
  zeos 컴포넌트를 사용하면.. 일단 데이터 베이스 사용 구분과 같습니다. 이 예제는 zmysqlquery1이라는 sq...
- 델.초
- 2002.05.08 21:26
- 0 COMMENTS
- /
- 0 LIKES
DrawText 에 관해서 질문입니다.
- 김형수
- •
- 2002.05.08 21:25
- 2 COMMENTS
- /
- 0 LIKES
엑셀 출력에 관한 질문입니다.
- 김도형
  
  •
  
  2002.05.08 22:18
  
  엑셀에서는 00011 이라고 넣으면 숫자형으로 인식하기 때문에 그렇습니다... '00011 이라고 하면 문...
- 김형수
  
  •
  
  2002.05.08 22:38
  
  .
- 신태균
- 2002.05.08 21:20
- 0 COMMENTS
- /
- 0 LIKES
Windows Media Player (Active X사용시 error) 질문입니다.
- 나옹이
- •
- 2002.05.08 21:18
- 1 COMMENTS
- /
- 0 LIKES
폼 이동에 관련된 질문...
- 최용일
  
  •
  
  2002.05.08 21:39
  
  안녕하세요. 최용일입니다. WM_MOVING이라는 윈도우 메세지를 이용하세요... type &nbs...
- 지니
- 2002.05.08 20:45
- 0 COMMENTS
- /
- 0 LIKES
메시지 전송시
- 안희준
- •
- 2002.05.08 20:20
- 1 COMMENTS
- /
- 0 LIKES
random 알고리즘..
- 최용일
  
  •
  
  2002.05.08 21:27
  
  안녕하세요. 최용일입니다. 아래와 같이 해보세요... var Source: TString...
- 강동순
- 2002.05.08 19:49
- 0 COMMENTS
- /
- 0 LIKES
Left Join에 관한 질문 입니다.
- 지니
- 2002.05.08 19:39
- 0 COMMENTS
- /
- 0 LIKES
External exception c000001d 발생
- 임주현
- 2002.05.08 17:20
- 0 COMMENTS
- /
- 0 LIKES
양면프린트에 관해서
- 델피초짜
- •
- 2002.05.08 17:09
- 1 COMMENTS
- /
- 0 LIKES
계산 필드 뽑아 내는법 좀 갈켜 주세요!!!
- KDDG_ZZOM
  
  •
  
  2002.05.08 18:27
  
  select sawoncode,MAX(bonbong + (sudang*0.1) as 필드명 이렇게 하세요... QueryTemp.Fieldbyname('필...
- 정성우
- •
- 2002.05.08 09:41
- 2 COMMENTS
- /
- 0 LIKES
음력 계산 질문 입니다.

제목 그데로 음력 계산 질문 입니다. 오늘 날짜를 음력으로 계산해서 날짜 값을 화면에 표시할려구 하는데 잘 모르 겠습니다. 아시는분 답변 부탁합니다. 죄송 하지만 말로 설명 하심 제가 초보라 잘 모름니다. 예제 설명 부탁 합니다.
- 정형준
  
  •
  
  2002.05.08 16:57
  
  양력에서 음력으로 변환하는것은 계산식이 아니고 데이터에 의해 바꿀수 있습니다. 예전에 어디선가 ...
- 최병권
  
  •
  
  2002.06.27 05:13
  
  게시하신 소스 대단히 감사 합니다. 그런데 실제 프로그렘에서 unit를 사용하는 법좀 부탁 합니다. 감사...
- 신복호
- •
- 2002.05.08 09:19
- 1 COMMENTS
- /
- 0 LIKES
데이터를 입력하려면 어떻게 해야하는지
- 성낙균
  
  •
  
  2002.05.08 11:58
  
  버튼을 누르실때 Edit; ..... .... Post; Table1.Refresh; 하시면 될겁니다...
- 이원근
- 2002.05.08 08:43
- 0 COMMENTS
- /
- 0 LIKES
directShow를 좀 가르쳐 주세요.
- 김용훈
- •
- 2002.05.08 06:14
- 1 COMMENTS
- /
- 0 LIKES
그림 좌우이동이요~
- 최석기
  
  •
  
  2002.05.08 08:56
  
  unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphi...
- 김종균
- •
- 2002.05.08 05:39
- 1 COMMENTS
- /
- 0 LIKES
폼에 배경화면 넣을수 있어여?
- 김형수
  
  •
  
  2002.05.08 05:46
  
  제가 쓰는 방법은 additional 의 image 콤포넌트를 폼에 배치하고, object inspector 의...
- 권혁규
- 2002.05.08 05:23
- 0 COMMENTS
- /
- 0 LIKES
동적 DLL함수 호출시 메모리 해제가 안됩니다.

정성우
2002/05/08 09:41
Views453

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

1027 1028 1029 1030 1031 1032 1033 1034 1035 1036

Last Page→