/*
	60갑지 달력
	음력 병기 표기,

*/
//---------------------------------------------------------------------------

#include 
#pragma hdrstop
#include  // 날짜 관련 유틸리티 헤더

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;



//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}


// 1. 1900~2050년 음력 데이터 (16진수 하나가 1년치 음력 정보)
// 데이터 구조: 앞 3자리(12개월 크기), 마지막 1자리(윤달 위치), 중간(윤달 크기)
unsigned int LunarInfo[] = {
    0x04bd8, 0x04ae0, 0x0a570, 0x054d5, 0x0d260, 0x0d950, 0x16554, 0x056a0, 0x09ad0, 0x055d2,
    0x04ae0, 0x0a5b6, 0x0a4d0, 0x0d250, 0x1d255, 0x0b540, 0x0d6a0, 0x0ada2, 0x095b0, 0x14977,
    0x04970, 0x0a4b0, 0x0b4b5, 0x06a50, 0x06d40, 0x1ab54, 0x02b60, 0x09570, 0x052f2, 0x04970,
    0x06566, 0x0d4a0, 0x0ea50, 0x06e95, 0x05ad0, 0x02b60, 0x186e3, 0x092e0, 0x1c8d7, 0x0c950,
    0x0d4a0, 0x1d8a6, 0x0b550, 0x056a0, 0x1a5b4, 0x025d0, 0x092d0, 0x0d2b2, 0x0a950, 0x0b557,
    0x06ca0, 0x0b550, 0x15355, 0x04da0, 0x0a5d0, 0x14573, 0x052d0, 0x0a9a8, 0x0e950, 0x06aa0,
    0x0aea6, 0x0ab50, 0x04b60, 0x0aae4, 0x0a570, 0x05260, 0x0f263, 0x0d950, 0x05b57, 0x056a0,
    0x096d0, 0x04dd5, 0x04ad0, 0x0a4d0, 0x0d4d4, 0x0d250, 0x0d558, 0x0b540, 0x0b5a0, 0x195a6,
    0x095b0, 0x049b0, 0x0a974, 0x0a4b0, 0x0b27a, 0x06a50, 0x06d40, 0x0af46, 0x0ab60, 0x09570,
    0x04af5, 0x04970, 0x064b0, 0x074a3, 0x0ea50, 0x06b58, 0x05ac0, 0x0ab60, 0x096d5, 0x092e0,
    0x0c960, 0x0d954, 0x0d4a0, 0x0da50, 0x07552, 0x056a0, 0x0abb7, 0x025d0, 0x092d0, 0x0cab5,
    0x0a950, 0x0b4a0, 0x0baa4, 0x0ad50, 0x055d9, 0x04ba0, 0x0a5b0, 0x15176, 0x052b0, 0x0a930,
    0x07954, 0x06aa0, 0x0ad50, 0x05b52, 0x04b60, 0x0a6e6, 0x0a4e0, 0x0d260, 0x0ea65, 0x0d530,
    0x05aa0, 0x076a3, 0x096d0, 0x04bd7, 0x04ad0, 0x0a4d0, 0x1d0b6, 0x0d250, 0x0d520, 0x0dd45,
    0x0b5a0, 0x056d0, 0x055b2, 0x049b0, 0x0a577, 0x0a4b0, 0x0aa50, 0x1b255, 0x06d20, 0x0ada0
};


// 윤달이 몇 월인지 반환
int GetLeapMonth(int y) { return LunarInfo[y-1900] & 0xf; }

// 윤달의 일수 반환 (있으면 29 or 30, 없으면 0)
int GetLeapMonthDays(int y) {
	if(GetLeapMonth(y)) return (LunarInfo[y-1900] & 0x10000) ? 30 : 29;
	else return 0;
}

// 특정 연도의 음력 총 일수 계산
int GetLunarYearDays(int y) {
	int i, sum = 348;
	for(i=0x8000; i>0x8; i>>=1) sum += (LunarInfo[y-1900] & i) ? 1 : 0;
	return (sum + GetLeapMonthDays(y));
}



// 해당 음력 월의 평달 일수
int GetLunarMonthDays(int y, int m) {
    return (LunarInfo[y-1900] & (0x10000 >> m)) ? 30 : 29;
}


//---------------------------------------------------------------------------
// 1. 간지 및 음력 데이터 정의
char *Gan[] = {"갑", "을", "병", "정", "무", "기", "경", "신", "임", "계"};
char *Ji[]  = {"자", "축", "인", "묘", "진", "사", "오", "미", "신", "유", "술", "해"};


// 2. 윤년 및 월별 일수 체크
bool IsLeap(int y) { return (y % 4 == 0 && y % 100 != 0) || (y % 400 == 0); }
int GetMaxDay(int y, int m) {
	int md[] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
	if (m == 2 && IsLeap(y)) return 29;
	return md[m - 1];
}


//yun은 윤달이 몇월인지 담는다.
// 하지만 이렇게 후처리가 힘드나, 여기서 윤달이면 참을 돌린다. 

void	ConvertSun2Lunar(int sY, int sM,int sD,int &iY,int &iM,int &iD, int &Yun)
{

	TDateTime baseDate(1900, 1, 31); // 음력 기준일 (1900년 1월 1일)
	TDateTime targetDate(sY, sM, sD);
	long offset = (int)(targetDate - baseDate);

	int lY, lM, lD, i;
	bool isLeap = false;

	for(i=1900; i<2051 && offset>0; i++) {
		int temp = GetLunarYearDays(i);
		if(offset < temp) break;
		offset -= temp;
	}
	lY = i;

	int leap = GetLeapMonth(lY);
	for(i=1; i<13 && offset>=0; i++) {
		int temp;
		// 윤달 처리
		if(leap > 0 && i == (leap + 1) && !isLeap) {
			--i; isLeap = true;
			temp = GetLeapMonthDays(lY);
		} else {
			temp = GetLunarMonthDays(lY, i);
		}

		if(isLeap && i == (leap + 1)) isLeap = false;
		if(offset < temp)
			break;
		offset -= temp;
	}
	iY = lY;
	lM = i;
	lD = (int)offset + 1;

	Yun = isLeap;
	iM = lM;
	iD = lD;
	//LabelResult->Caption = Format("음력: %d년 %d월 %d일 %s",
	//	ARRAYOFCONST((lY, lM, lD, isLeap ? "(윤달)" : "")));
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	int year = Edit1->Text.ToInt();
	int month = Edit2->Text.ToInt();

	// [기준일 계산] 서기 1년 1월 1일부터 전날까지의 총 일수
	long totalDays = 0;
	for (int i = 1; i < year; i++) totalDays += IsLeap(i) ? 366 : 365;
	for (int i = 1; i < month; i++) totalDays += GetMaxDay(year, i);

	// [년간지] 서기 4년이 갑자년 기준
	int yGan = (year - 4) % 10; if (yGan < 0) yGan += 10;
	int yJi  = (year - 4) % 12; if (yJi < 0) yJi += 12;

	// [월간지] 60갑자 순환 공식 (입춘 기준이 아닌 월 시작 기준 간이식)
	int mIndex = (year * 12 + month + 3) % 60 + 18;
	int mGan = mIndex % 10;
	int mJi  = (mIndex + 2) % 12;

	Add(Format("   ▶ %d년 %02d월 (년:%s%s, 월:%s%s)",
		ARRAYOFCONST((year, month, Gan[yGan], Ji[yJi], Gan[mGan], Ji[mJi]))));
	Add("----------------------------------------------------------");
	Add("  일      월      화      수      목      금      토");

	int startDay = (totalDays + 1) % 7;
	int maxDay = GetMaxDay(year, month);
	String row = "";

	// 달력 시작 공백
	for (int i = 0; i < startDay; i++) row += "        ";

	for (int d = 1; d <= maxDay; d++) {
		// [일간지] 서기 1년 1월 1일(무적일) 기준 보정
		long dTotal = totalDays + d + 14; // 49;
		int dGan = dTotal % 10;
		int dJi  = dTotal % 12;

		// [음력] 간이 계산 (실제 상용 달력은 DB 대조 방식 사용)
		// 여기서는 구조를 보여주기 위해 임의의 음력 날짜를 표기합니다.
		// 실제 구현 시에는 KASI 데이터를 로드하는 함수를 호출해야 합니다.
		int iY = year;
		int lM = (month + 10) % 12 + 1; // 간이 음력월
		int lD = (d + 5) % 29 + 1;      // 간이 음력일

		int	yun = 0;
		//ConvertSun2Lunar(2025, 7, 25, iY, lM, lD, yun);
		ConvertSun2Lunar(year, month, d, iY, lM, lD, yun);

		String dayCell;
		if (yun) // (yun && yun == lM)
			dayCell += "*";
		// 출력 형식: 양력(일간지)[음력]
		// 예: 18(신묘)[1.1]
		dayCell += Format("%2d(%s%s)", ARRAYOFCONST((d, Gan[dGan], Ji[dJi])));

		String lunarCell = Format("%2d.%2d|", ARRAYOFCONST((lM, lD)));

		row += dayCell + lunarCell + " ";

		if ((d + startDay) % 7 == 0 || d == maxDay) {
			Memo1->Lines->Add(row);
			row = "";
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	TDateTime day = Now();
	USHORT y, m, d;
	y = m = d = 0;
	day.DecodeDate(&y, &m, &d);
	Edit1->Text = y;
	Edit2->Text = m;

	Add("음력 일자는  1900년부터 2050년까지 표시함 ");
	
}
//---------------------------------------------------------------------------