아주 먼 옛날... 어디선가 가져온 코드... unit LibDateLunar; interface uses Sysutils; const montharray : array[0..24] of integer = (0,21355,42843,64498,86335,108366,130578,152958, 175471,198077,220728,243370,265955,288432,310767,332928, 354903,376685,398290,419736,441060,462295,483493,504693,525949); { 입춘시점에서 24절기의 시점까지의 길이 - 분 } { yearmin := 525948.75 ; - 실제 1년길이 (분) yearmini := 525949 ; - 근사치 (오차 3456년에 1일)} ..