Q&A
- QR에서 에러가....(delphi4.0)
search라는 form에서 만들어져있는 QR리포트폼의 제목과 검색종류에 따른 query를 프린트 하는데요.. 제목을 바꾸는데 에러가 납니다.
델파이 3.0에서는 되던거거든요...
procedure TSearch.Button2Click(Sender: TObject);
begin
with QR_list.QRlistform do
begin
if radiobutton1.Checked then
begin
Report1.ReportTitle := '◁ 지 역 별 현 황 ▷';//여기서 에러가....
if (edit1.text <> '') then
Query1.Close;
Query1.sql.Clear;
Query1.sql.Add('select * from do_list');
Query1.sql.Add('where do_h_post like "'+edit1.text+'%"');
end;
원래는 QRsysdata1.text := '◁ 지 역 별 현 황 ▷'; 이었는데 에러가 나서
바꾸어 보았거든요. 그런데도 에러가 나네요. 구문상에 잘못된것이 있는지...
좀 도와주세요....
compile할때는 괜찮은데 실행하면 access violation에러가 납니다...
델파이 3.0에서는 되던거거든요...
procedure TSearch.Button2Click(Sender: TObject);
begin
with QR_list.QRlistform do
begin
if radiobutton1.Checked then
begin
Report1.ReportTitle := '◁ 지 역 별 현 황 ▷';//여기서 에러가....
if (edit1.text <> '') then
Query1.Close;
Query1.sql.Clear;
Query1.sql.Add('select * from do_list');
Query1.sql.Add('where do_h_post like "'+edit1.text+'%"');
end;
원래는 QRsysdata1.text := '◁ 지 역 별 현 황 ▷'; 이었는데 에러가 나서
바꾸어 보았거든요. 그런데도 에러가 나네요. 구문상에 잘못된것이 있는지...
좀 도와주세요....
compile할때는 괜찮은데 실행하면 access violation에러가 납니다...
2
COMMENTS
-
-
음.. 여기 있습니다.
잘 사용하시구요...
자주 들러서 답변도 해주세요.
서로 돕구 살아야죠.
unit SolarLunar;
interface
Procedure Solar_To_Lunar(Year,Month,Day:Word; Var LYear,LMonth,LDay : Word);
Procedure Lunar_To_Solar(LunarYear,LunarMonth,LunarDay : Word;
Var SolarYear,SolarMonth,SolarDay : Word);
implementation
Procedure Solar_To_Lunar(Year,Month,Day:Word; Var LYear,LMonth,LDay: Word);
Const
kk : array [0..162,0..12] of 0..4 = (
{*1881*} ( 1, 2, 1, 2, 1, 2, 2, 3, 2, 2, 1, 2, 1 ) ,
( 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0 ) ,
( 2, 1, 1, 2, 1, 3, 2, 1, 2, 2, 1, 2, 2 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 3, 2, 1, 1, 2, 1, 2, 1, 2 ) ,
( 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2 ) ,
{*1891*} ( 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 1, 2, 1, 1, 2, 3, 2, 2, 1, 2, 2, 2 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 2, 3, 1, 2, 1, 2, 1, 2, 1 ) ,
( 2, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 3, 2, 2, 1, 2, 1, 2, 1, 2, 1 ) ,
( 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 1, 2, 1, 2, 2, 3, 2, 2, 1, 2 ) ,
{*1901*} ( 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 1, 2, 1, 3, 2, 1, 1, 2, 2, 1, 2 ) ,
( 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 0 ) ,
( 2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 4, 1, 2, 1, 2, 1, 2, 1, 2 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 2, 3, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
{*1911*} ( 2, 1, 2, 1, 1, 2, 3, 1, 2, 2, 1, 2, 2 ) ,
( 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 2, 3, 1, 2, 1, 2, 1, 1, 2 ) ,
( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 3, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1 ) ,
( 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2, 0 ) ,
( 1, 2, 1, 1, 2, 1, 2, 3, 2, 2, 1, 2, 2 ) ,
( 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0 ) ,
{*1921*} ( 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 2, 1, 3, 2, 1, 1, 2, 1, 2, 2 ) ,
( 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 0 ) ,
( 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 0 ) ,
( 2, 1, 2, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2 ) ,
( 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 2, 3, 1, 2, 1, 1, 2, 2, 1, 2, 2, 2 ) ,
( 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 2, 1 ) ,
{*1931*} ( 2, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
( 2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 4, 1, 2, 1, 2, 1, 1, 2 ) ,
( 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 0 ) ,
( 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 1, 4, 1, 2, 1, 2, 1, 2, 2, 2, 1 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 2, 1, 1, 2, 1, 1, 4, 1, 2, 2, 1, 2 ) ,
( 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
{*1941*} ( 2, 2, 1, 2, 2, 1, 4, 1, 1, 2, 1, 2, 1 ) ,
( 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 0 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 1, 2, 1, 4, 1, 2, 1, 2, 2, 1, 2, 2 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
( 2, 2, 3, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 2, 1, 3, 2, 1, 2, 1, 2 ) ,
( 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
{*1951*} ( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 2, 1, 4, 2, 1, 2, 1, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 2, 1, 1, 4, 1, 1, 2, 1, 2, 1, 2, 2, 2 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 3, 2, 1, 2, 2 ) ,
( 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 1, 2, 2, 3, 2, 1, 2, 1, 2, 1 ) ,
{*1961*} ( 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 3, 2, 1, 2, 1, 2, 2, 2, 1 ) ,
( 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 0 ) ,
( 2, 2, 2, 3, 2, 1, 1, 2, 1, 1, 2, 2, 1 ) ,
( 2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
{*1971*} ( 1, 2, 1, 1, 2, 3, 2, 1, 2, 2, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 1, 0 ) ,
( 2, 2, 1, 2, 3, 1, 2, 1, 1, 2, 2, 1, 2 ) ,
( 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 1, 2 ) ,
( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 0 ) ,
( 2, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 1, 2, 1, 2, 4, 1, 2, 2, 1, 2, 1 ) ,
( 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
{*1981*} ( 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 3, 2, 1, 1, 2, 2, 1, 2, 2 ) ,
( 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 3, 2, 2 ) ,
( 1, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 0 ) ,
( 2, 1, 2, 2, 1, 2, 3, 2, 2, 1, 2, 1, 2 ) ,
( 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 2, 1, 1, 2, 3, 1, 2, 1, 2, 2, 2, 2 ) ,
{*1991*} ( 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0 ) ,
( 1, 2, 2, 3, 2, 1, 2, 1, 1, 2, 1, 2, 1 ) ,
( 2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 2, 1, 2, 3, 2, 1, 1, 2 ) ,
( 1, 2, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 1, 2, 1, 3, 2, 2, 1, 2, 2, 2, 1 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 0 ) ,
{*2001*} ( 2, 2, 2, 1, 3, 2, 1, 1, 2, 1, 2, 1, 2 ) ,
( 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
( 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 1, 2, 3, 2, 2, 1, 2, 1, 2, 2, 1, 1, 2 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 1, 2, 1, 2, 1, 2, 3, 2, 2, 1, 2, 2 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
( 2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 1, 2, 2 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
{*2011*} ( 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 4, 2, 1, 2, 1, 1, 2, 1, 2, 1 ) ,
( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 2, 1, 2, 1, 2, 2, 3, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, 0 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 2, 1, 1, 2, 1, 3, 2, 1, 2, 1, 2, 2, 2 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 2, 1, 2, 2, 3, 2, 1, 1, 2, 1, 2, 1, 2 ) ,
{*2021*} ( 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 3, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 1, 2, 3, 2, 1, 2, 2, 2, 1 ) ,
( 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 0 ) ,
( 1, 2, 2, 1, 2, 3, 1, 2, 1, 1, 2, 2, 1 ) ,
( 2, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 0 ) ,
( 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 0 ) ,
{*2031*} ( 2, 1, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2, 1 ) ,
( 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 2, 1, 1, 2, 1, 2, 3, 2, 2, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 1, 4, 1, 1, 2, 1, 2, 2 ) ,
( 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 0 ) ,
( 2, 2, 1, 2, 2, 3, 2, 1, 2, 1, 2, 1, 1 ) ,
( 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
{*2041*} ( 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 2, 3, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0 ) );
Var
m : Array [0..11] of Integer;
dt : Array [0..162] of Integer;
m1, m2, i, j, jcount : Integer;
td, td0, td1, td2, k11 : LongInt;
leap : Boolean;
Begin
m[0] := 31; m[1] := 0; m[2] := 31; m[3] := 30;
m[4] := 31; m[5] := 30; m[6] := 31; m[7] := 31;
m[8] := 30; m[9] := 31; m[10] := 30; m[11] := 31;
for i:=0 To 162 Do Begin
dt[i] := 0;
for j:=0 To 11 Do Begin
Case (kk[i][j]) of
1 , 3 : dt[i] := dt[i] + 29;
2 , 4 : dt[i] := dt[i] + 30;
End;
End;
Case (kk[i][12]) of
1 , 3 : dt[i] := dt[i] + 29;
2 , 4 : dt[i] := dt[i] + 30;
End;
End;
{* 1. 1. 1. - 1910. 2. 10. *}
td1 := 1880*365 + (1880 Div 4)- (1880 Div 100) + (1880 Div 400) + 30;
{* ## 1. 1. 1. - Year. Month. Day. ## *}
k11 := (Year-1);
td2 := k11*365 + (k11 Div 4) - (k11 Div 100) + (k11 Div 400);
leap := ((Year mod 400) = 0) Or ((Year mod 100) <> 0) And ((Year mod 4) = 0);
if leap then m[1] := 29
else m[1] := 28;
for i:=0 To Month-2 Do td2 := td2 + m[i];
td2 := td2 + Day;
{* ## 1881. 1. 30. - Year. Month. Day. ## *}
td := td2 - td1 + 1;
{* ## Lunar Year Caculation ## *}
td0 := dt[0];
for i:=0 To 162 Do Begin
if( td <= td0 ) then break;
td0 := td0 + dt[i+1];
End;
LYear := i + 1881;
td0 := td0 - dt[i];
td := td - td0;
if(kk[i][12] <> 0) then jcount := 13
else jcount := 12;
m2 := 0;
for j:=0 To jcount-1 Do Begin
if( kk[i][j] <=2 ) then m2 := m2 + 1;
if( kk[i][j] <=2 ) then m1 := kk[i][j] + 28
else m1 := kk[i][j] + 26;
if( td <= m1 ) then break;
td := td - m1;
End;
LMonth := m2;
LDay := td;
End;
Procedure Lunar_To_Solar(LunarYear,LunarMonth,LunarDay : Word;
Var SolarYear,SolarMonth,SolarDay : Word);
Const
kk : array [1..163,1..13] of 0..4 = (
{*1881*} (1, 2, 1, 2, 1, 2, 2, 3, 2, 2, 1, 2, 1),
(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0),
(2, 1, 1, 2, 1, 3, 2, 1, 2, 2, 1, 2, 2),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 3, 2, 1, 1, 2, 1, 2, 1, 2),
(2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2),
{*1891*} (1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 1, 2, 1, 1, 2, 3, 2, 2, 1, 2, 2, 2),
(1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 2, 3, 1, 2, 1, 2, 1, 2, 1),
(2, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 3, 2, 2, 1, 2, 1, 2, 1, 2, 1),
(2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 1, 2, 1, 2, 2, 3, 2, 2, 1, 2),
{*1901*} (1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 1, 2, 1, 3, 2, 1, 1, 2, 2, 1, 2),
(2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 0),
(2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 4, 1, 2, 1, 2, 1, 2, 1, 2),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0),
(1, 2, 3, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0),
{*1911*} (2, 1, 2, 1, 1, 2, 3, 1, 2, 2, 1, 2, 2),
(2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 2, 3, 1, 2, 1, 2, 1, 1, 2),
(2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 3, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1),
(2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2, 0),
(1, 2, 1, 1, 2, 1, 2, 3, 2, 2, 1, 2, 2),
(1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0),
{*1921*} (2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 2, 1, 3, 2, 1, 1, 2, 1, 2, 2),
(1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 0),
(2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 0),
(2, 1, 2, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2),
(1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 2, 3, 1, 2, 1, 1, 2, 2, 1, 2, 2, 2),
(1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 2, 1),
{*1931*} (2, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 0),
(2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 4, 1, 2, 1, 2, 1, 1, 2),
(1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 0),
(1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 1, 4, 1, 2, 1, 2, 1, 2, 2, 2, 1),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 2, 1, 1, 2, 1, 1, 4, 1, 2, 2, 1, 2),
(2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
{*1941*} (2, 2, 1, 2, 2, 1, 4, 1, 1, 2, 1, 2, 1),
(2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 0),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0),
(1, 1, 2, 1, 4, 1, 2, 1, 2, 2, 1, 2, 2),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 0),
(2, 2, 3, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2),
(2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 2, 1, 3, 2, 1, 2, 1, 2),
(2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
{*1951*} (2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 2, 1, 4, 2, 1, 2, 1, 2, 1, 2),
(1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(2, 1, 1, 4, 1, 1, 2, 1, 2, 1, 2, 2, 2),
(1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 2, 1, 1, 2, 3, 2, 1, 2, 2),
(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 1, 2, 2, 3, 2, 1, 2, 1, 2, 1),
{*1961*} (2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 2, 1, 3, 2, 1, 2, 1, 2, 2, 2, 1),
(2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 0),
(2, 2, 2, 3, 2, 1, 1, 2, 1, 1, 2, 2, 1),
(2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0),
{*1971*} (1, 2, 1, 1, 2, 3, 2, 1, 2, 2, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 1, 0),
(2, 2, 1, 2, 3, 1, 2, 1, 1, 2, 2, 1, 2),
(2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 1, 2),
(2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 0),
(2, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 1, 2, 1, 2, 4, 1, 2, 2, 1, 2, 1),
(2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
{*1981*} (1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 3, 2, 1, 1, 2, 2, 1, 2, 2),
(2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 3, 2, 2),
(1, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 0),
(2, 1, 2, 2, 1, 2, 3, 2, 2, 1, 2, 1, 2),
(1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 2, 1, 1, 2, 3, 1, 2, 1, 2, 2, 2, 2),
{*1991*} (1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0),
(1, 2, 2, 3, 2, 1, 2, 1, 1, 2, 1, 2, 1),
(2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 2, 1, 2, 3, 2, 1, 1, 2),
(1, 2, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0),
(1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 1, 2, 1, 3, 2, 2, 1, 2, 2, 2, 1),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 0),
{*2001*} (2, 2, 2, 1, 3, 2, 1, 1, 2, 1, 2, 1, 2),
(2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
(2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 0),
(1, 2, 3, 2, 2, 1, 2, 1, 2, 2, 1, 1, 2),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0),
(1, 1, 2, 1, 2, 1, 2, 3, 2, 2, 1, 2, 2),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 0),
(2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 1, 2, 2),
(2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
{*2011*} (2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 4, 2, 1, 2, 1, 1, 2, 1, 2, 1),
(2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 2, 1, 2, 1, 2, 2, 3, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, 0),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(2, 1, 1, 2, 1, 3, 2, 1, 2, 1, 2, 2, 2),
(1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(2, 1, 2, 2, 3, 2, 1, 1, 2, 1, 2, 1, 2),
{*2021*} (1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 3, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 2, 1, 1, 2, 3, 2, 1, 2, 2, 2, 1),
(2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 0),
(1, 2, 2, 1, 2, 3, 1, 2, 1, 1, 2, 2, 1),
(2, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 0),
(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 0),
{*2031*} (2, 1, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2, 1),
(2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0),
(1, 2, 1, 1, 2, 1, 2, 3, 2, 2, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 1, 4, 1, 1, 2, 1, 2, 2),
(2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 0),
(2, 2, 1, 2, 2, 3, 2, 1, 2, 1, 2, 1, 1),
(2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
{*2041*} (2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0),
(1, 2, 3, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0)
);
YukGabHeaven : array[1..10] of string =
( 'GAP', 'EUL', 'BYEONG', 'JEONG', 'MOO',
'GEE', 'GYEONG', 'SIN', 'EEM', 'GYE' );
YukGabEarth : array[1..12] of string =
( 'JAH', 'CHOOK', 'EEN', 'MYO', 'JIN', 'SAH',
'OH', 'MEE', 'SIN', 'YOU', 'SUL', 'HAE' );
SizeOfMonth : array[1..12] of Integer =
( 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
Weekday : array[1..7] of string =
( 'SUN', 'MON', 'TUE', 'WED', 'THU', 'FRI', 'SAT' );
Var
LunarLeap : Integer;
m1, m2, n2 : Integer;
i, j, k1, k2, k : Integer;
leap : Boolean;
DayTotal : LongInt;
begin
m1 := 0;
DayTotal := 0;
If LunarYear <> 1881 Then Begin
m1 := LunarYear - 1882 + 1;
For i := 1 To m1 Do Begin
For j := 1 To 13 Do DayTotal := DayTotal + kk[i][j];
If kk[i][13] = 0 Then DayTotal := DayTotal + 336
Else DayTotal := DayTotal + 362
end;
end;
m1 := m1 + 1;
n2 := LunarMonth;
m2 := 0;
While True Do Begin
m2 := m2 + 1;
If kk[m1][m2] > 2 Then begin
DayTotal := DayTotal + 26 + kk[m1][m2];
n2 := n2 + 1;
End
else If m2 = n2 Then break
else DayTotal := DayTotal + 28 + kk[m1][m2]
End;
DayTotal := DayTotal + LunarDay + 29;
m1 := 1880;
While True Do Begin
m1 := m1 + 1;
leap := ((m1 mod 400) = 0) Or ((m1 mod 100) <> 0) And ((m1 mod 4) = 0);
If leap Then m2 := 366
Else m2 := 365;
If DayTotal <= m2 Then break;
DayTotal := DayTotal - m2;
End;
SolarYear := m1;
SizeOfMonth[2] := m2 - 337;
m1 := 0;
While True Do Begin
m1 := m1 + 1;
If DayTotal <= SizeOfMonth[m1] Then break;
DayTotal := DayTotal - SizeOfMonth[m1];
End;
SolarMonth := m1;
SolarDay := DayTotal;
end;
end.
김성중 wrote:
> 갑자기 필요해서 그러는데....
>
> 혹시 누가 좀 도와주실래요...?
>
> 양력과 음력을 상호 변환할 수 있는 Logic이나 component 가지고 계신분...?
>
> 도와 주세요....
(NOTICE) You must be logged in to comment on this post.
-
- 하명훈
- •
- 1999.06.05 10:32
- 2 COMMENTS
- /
- 0 LIKES
search라는 form에서 만들어져있는 QR리포트폼의 제목과 검색종류에 따른 query를 프린트 하는데요.. 제목을 바꾸는데 에러가 납니다. 델파이 3.0에서는 되던거거든요... procedure TSearch.Button2Click(Sender: TObject); begin with QR...-
김성중•1999.02.02 04:02갑자기 필요해서 그러는데.... 혹시 누가 좀 도와주실래요...? 양력과 음력을 상호 변환할 수 있는 L...
-
이정욱•1999.02.02 09:44음.. 여기 있습니다. 잘 사용하시구요... 자주 들러서 답변도 해주세요. 서로 돕구 살아야죠. unit S...
-
- 조성윤
- •
- 1999.06.05 08:08
- 3 COMMENTS
- /
- 0 LIKES
-
한스•1999.01.29 22:13안녕하십니까? 델파이 C/S v4용 시리얼 통신 컴퍼넌트(TSerial4 - 작성자 : R J Crowther)를 웹사이트(...
-
김태균•1999.06.07 18:01조성윤 께서 말씀하시기를... > DBComboBox에서 item추가를 1개 필드의 전체 레코드값을 집어너어 리스트...
-
이정욱•1999.01.31 08:20굳이 간단한 시리얼 통신을 하신다면 상용을 쓰실 필요는 없지만 ASync라는 무지 좋은 상용 컴포넌트가 있...
-
- 박임성
- 1999.06.05 05:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 한
- •
- 1999.01.29 23:57
- 3 COMMENTS
- /
- 0 LIKES
-
신인재•1999.01.30 02:41한 wrote: > 안녕하세요. > 또 들렸네요. 사람들이 아직 잘 모르는지 안오는건 같지만 > 그래도 저는 ...
-
한•1999.01.30 23:31신인재 wrote: 어쨌든 감사....*^^* 어떻게 해야 된다는 방향을 잡았으니까요....히힛! 눈이 많아...
-
이정욱•1999.01.31 08:17또 한가지 방법이 있다면 리치 에디트에 OLE를 사용해서 그림을 넣을 수가 있습니다. 이미 그러한 컴포넌...
-
- 유애선
- •
- 1999.06.05 02:29
- 1 COMMENTS
- /
- 0 LIKES
-
김도석•1999.06.05 20:10파라독스는 테이블 내부에 코드페이지가 기록되기때문입니다 코드페이지가 한글이 아닌상태에서 만들어진 ...
-
- 문성준
- 1999.06.05 02:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- •
- 1999.06.05 01:39
- 4 COMMENTS
- /
- 0 LIKES
-
한•1999.01.29 23:57안녕하세요. 또 들렸네요. 사람들이 아직 잘 모르는지 안오는건 같지만 그래도 저는 꾸준히 오고 있...
-
신인재•1999.01.30 02:41한 wrote: > 안녕하세요. > 또 들렸네요. 사람들이 아직 잘 모르는지 안오는건 같지만 > 그래도 저는 ...
-
한•1999.01.30 23:31신인재 wrote: 어쨌든 감사....*^^* 어떻게 해야 된다는 방향을 잡았으니까요....히힛! 눈이 많아...
-
이정욱•1999.01.31 08:17또 한가지 방법이 있다면 리치 에디트에 OLE를 사용해서 그림을 넣을 수가 있습니다. 이미 그러한 컴포넌...
-
- 북해
- •
- 1999.06.05 01:25
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.06.05 03:45북해 께서 말씀하시기를... > 안녕하세요. 델파이에서 DirectDraw를 사용하려면 어떻게 하면 되나요? ...
-
- 한
- •
- 1999.01.29 23:57
- 3 COMMENTS
- /
- 0 LIKES
-
신인재•1999.01.30 02:41한 wrote: > 안녕하세요. > 또 들렸네요. 사람들이 아직 잘 모르는지 안오는건 같지만 > 그래도 저는 ...
-
한•1999.01.30 23:31신인재 wrote: 어쨌든 감사....*^^* 어떻게 해야 된다는 방향을 잡았으니까요....히힛! 눈이 많아...
-
이정욱•1999.01.31 08:17또 한가지 방법이 있다면 리치 에디트에 OLE를 사용해서 그림을 넣을 수가 있습니다. 이미 그러한 컴포넌...
-
- 수홍
- 1999.06.04 23:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이일수
- 1999.06.04 23:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 한
- •
- 1999.01.29 23:57
- 3 COMMENTS
- /
- 0 LIKES
-
신인재•1999.01.30 02:41한 wrote: > 안녕하세요. > 또 들렸네요. 사람들이 아직 잘 모르는지 안오는건 같지만 > 그래도 저는 ...
-
한•1999.01.30 23:31신인재 wrote: 어쨌든 감사....*^^* 어떻게 해야 된다는 방향을 잡았으니까요....히힛! 눈이 많아...
-
이정욱•1999.01.31 08:17또 한가지 방법이 있다면 리치 에디트에 OLE를 사용해서 그림을 넣을 수가 있습니다. 이미 그러한 컴포넌...
-
- 이승윤
- •
- 1999.06.04 23:10
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.06.05 01:12나이렉스게시판에(http://www.nilex.net)의 강좌/팁을 보세요. 방법이 있습니다. 이승윤 께서 말씀하시...
-
-
이정욱•1999.01.31 08:20굳이 간단한 시리얼 통신을 하신다면 상용을 쓰실 필요는 없지만 ASync라는 무지 좋은 상용 컴포넌트가 있...
-
-
- 황영일
- 1999.06.04 22:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상석
- •
- 1999.06.04 20:48
- 2 COMMENTS
- /
- 0 LIKES
-
강신구•1999.01.29 05:54안녕하세요.. richedit1.lines.add(str)시 색깔을 지정해 주고 싶은데 어떻게 해야 하나요?
-
신인재•1999.01.29 19:35강신구 wrote: > 안녕하세요.. > > richedit1.lines.add(str)시 색깔을 지정해 주고 싶은데 어떻게 > ...
-
- 김동희
- 1999.06.04 20:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 강신구
- •
- 1999.01.29 05:54
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.01.29 19:35강신구 wrote: > 안녕하세요.. > > richedit1.lines.add(str)시 색깔을 지정해 주고 싶은데 어떻게 > ...
-
- 이도현
- •
- 1999.06.04 20:16
- 1 COMMENTS
- /
- 0 LIKES
-
이승윤•1999.06.04 23:15이도현 께서 말씀하시기를... > DXF를 델파이에서 읽어들이는 컴포넌트 없나요? > 있었으면 좋겠는데.......
-
- 구민오
- •
- 1999.01.25 05:20
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.01.27 23:18구민오 wrote: > 데이터 베이스를 배우는 초보입니다... *^^* > 데이터 베이스를 만들때요... database d...
혹시 누가 좀 도와주실래요...?
양력과 음력을 상호 변환할 수 있는 Logic이나 component 가지고 계신분...?
도와 주세요....