Q&A
- 감가상각 계산(정액법) 코딩이 힘드네요...
안녕하세요 고수님들....
바쁘신 고수님들에게 폐가 안될려고 검색하고 이틀 동안 찾고 또 보고 했는데 답을 구하지 못했읍니다. 죄송하지만 좀 보아주시면 정말정말 감사드리겠읍니다.
DB : Paradox7,
컴포넌트 : Query, UpdateSQL(직접입력), DBGrid, CalFiled(자동계산) 기타 등등
장비에 대한 감가상각을 자동으로 계산 할려고 하는데 잘 안되네요..
감가상각은 정액법으로 하는데 알고리즘은 만들었읍니다. 그런데 코딩이 안되네요.머쓱.
알고리즘은 대강 이렇읍니다.
10 A = 반입날짜
20 B = 구입가격
30 C = 감가상각년한
40 X = 잔존가액 (Calfield에 표시될 값)
50 Y = 현재날짜
60 Y-A <= C (if Yes이면 70으로, No이면100으로) // 감가년한 초과시 0원으로 계산
70 A <= 6 (if Yes이면 80으로, No이면90으로) // 상반기 구입시 기본 감가,
하반기 반입 시 기본 감가에 50% 감가
80 X = B*(C-Y+A)/C (to 110) // 기본 감가 계산 공식
90 X = B*(C-Y+A+0.5)/C (to 110) // 기본 감가의 50% 감가 공식
100 X = 0 // 감가 상각 년한 지난 장비에 대해선 0원으로 설정
110 End
아래와 같이 하면 컴파일이 안됩니다.(많은 에러 발생)
여러곳에 있는것들을 조합해놓았읍니다. 한심하다는 생각이 드시겠지만
보시고 좀 수정해주시면 안되나요?
//CalFields에 의한 계산
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
var CurDate, CurDate1 : TDateTime;
Year, Month, day, Year1, Month1, Day1 : Word;
Y_A : String;
begin
CurDate := now; // 현재날짜
DecodeDate(CurDate, Year, Month, Day); // 현재날짜
CurDate1 := Query1.FieldByName('D').value; // 반입날짜
DecodeDate(Curdate1, Year1, Month1, Day1); // 반입날짜 분리
Y_A := StrToDate(Year)-StrToDate(Year1); // 현재년 - 반입년(월,일 불필요)
if Y_A <= Query1.FieldByName('P1').value then // 감가상각년한 판단
begin
if StrToDate(Month1) <= 6 then // 상반기 반입 할 경우 계산 (월만 추출)
begin
with Query1 do begin
FieldByName('Cal').value :=
FieldByName('P').value *
(FieldByName('P1').value - Y_A)/
FieldByName('P1').value;
end;
end
else begin // 하반기 반입 할 경우 계산
with Query1 do begin
FieldByName('Cal').value :=
FieldByName('P').value *
(FieldByName('P1').value - Y_A + 0.5)/
FieldByName('P1').value;
end;
end;
end
else begin
Query1.FieldByName('Cal').value := 0; // 감가상각년한 초과시 값=0원
end;
end;
보시는데 불편을 드려 죄송하고
항상 건강하시고 즐거운 코딩 하시길 바랍니다.
바쁘신 고수님들에게 폐가 안될려고 검색하고 이틀 동안 찾고 또 보고 했는데 답을 구하지 못했읍니다. 죄송하지만 좀 보아주시면 정말정말 감사드리겠읍니다.
DB : Paradox7,
컴포넌트 : Query, UpdateSQL(직접입력), DBGrid, CalFiled(자동계산) 기타 등등
장비에 대한 감가상각을 자동으로 계산 할려고 하는데 잘 안되네요..
감가상각은 정액법으로 하는데 알고리즘은 만들었읍니다. 그런데 코딩이 안되네요.머쓱.
알고리즘은 대강 이렇읍니다.
10 A = 반입날짜
20 B = 구입가격
30 C = 감가상각년한
40 X = 잔존가액 (Calfield에 표시될 값)
50 Y = 현재날짜
60 Y-A <= C (if Yes이면 70으로, No이면100으로) // 감가년한 초과시 0원으로 계산
70 A <= 6 (if Yes이면 80으로, No이면90으로) // 상반기 구입시 기본 감가,
하반기 반입 시 기본 감가에 50% 감가
80 X = B*(C-Y+A)/C (to 110) // 기본 감가 계산 공식
90 X = B*(C-Y+A+0.5)/C (to 110) // 기본 감가의 50% 감가 공식
100 X = 0 // 감가 상각 년한 지난 장비에 대해선 0원으로 설정
110 End
아래와 같이 하면 컴파일이 안됩니다.(많은 에러 발생)
여러곳에 있는것들을 조합해놓았읍니다. 한심하다는 생각이 드시겠지만
보시고 좀 수정해주시면 안되나요?
//CalFields에 의한 계산
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
var CurDate, CurDate1 : TDateTime;
Year, Month, day, Year1, Month1, Day1 : Word;
Y_A : String;
begin
CurDate := now; // 현재날짜
DecodeDate(CurDate, Year, Month, Day); // 현재날짜
CurDate1 := Query1.FieldByName('D').value; // 반입날짜
DecodeDate(Curdate1, Year1, Month1, Day1); // 반입날짜 분리
Y_A := StrToDate(Year)-StrToDate(Year1); // 현재년 - 반입년(월,일 불필요)
if Y_A <= Query1.FieldByName('P1').value then // 감가상각년한 판단
begin
if StrToDate(Month1) <= 6 then // 상반기 반입 할 경우 계산 (월만 추출)
begin
with Query1 do begin
FieldByName('Cal').value :=
FieldByName('P').value *
(FieldByName('P1').value - Y_A)/
FieldByName('P1').value;
end;
end
else begin // 하반기 반입 할 경우 계산
with Query1 do begin
FieldByName('Cal').value :=
FieldByName('P').value *
(FieldByName('P1').value - Y_A + 0.5)/
FieldByName('P1').value;
end;
end;
end
else begin
Query1.FieldByName('Cal').value := 0; // 감가상각년한 초과시 값=0원
end;
end;
보시는데 불편을 드려 죄송하고
항상 건강하시고 즐거운 코딩 하시길 바랍니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 최은규
- •
- 2001.05.05 03:00
- 1 COMMENTS
- /
- 0 LIKES
-
윤신호•2001.05.05 03:14처리순서를 바꾸어보시기바랍니다. Degrees := StrtoInt(Socket.ReceiveText); Memo1.lines.add(...
-
- 전민식
- 2001.05.05 02:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.05.05 02:39
- 3 COMMENTS
- /
- 0 LIKES
-
하기•2001.05.05 02:48FindWindow라는 것이 있는데...한번 찾아보세요.... 초보 wrote: > 버튼을 누르면 폼을 동적으로 생성...
-
초보•2001.05.05 03:49하기 wrote: > FindWindow라는 것이 있는데...한번 찾아보세요.... > > 초보 wrote: > > 버튼을 누르...
-
허접답변•2001.05.07 18:52FindWIndow는 윈도우 API함수 입니다. 참고하세염... 도움말 그냥 퍼왔슴다. The FindWindow function ...
-
- 질문
- •
- 2001.05.05 02:33
- 2 COMMENTS
- /
- 0 LIKES
-
창영•2001.05.05 11:24질문 wrote: > DBGrid에 관한 질문 네가지입니다. > > 1: 디비그리드를 클릭한 셀의 Row값과 Col값은 ...
-
질문•2001.05.05 14:36답변 주셔서 감사합니다만 이해가 잘 안가서 답변주신 내용에 덧붙여 질문드립니다. 1.dbGrid Row,Co...
-
- 김선정
- •
- 2001.05.05 02:25
- 1 COMMENTS
- /
- 0 LIKES
-
윤신호•2001.05.05 03:20혹시 프린터가 돗트프린거인가요? 돗트프린터라면 일부 프린터의 경우 연속출력(한장이상)이 안되더라구요...
-
- 궁금이 스머프
- 2001.05.05 02:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 이명옥
- •
- 2001.05.05 01:56
- 1 COMMENTS
- /
- 0 LIKES
-
송수정•2001.05.08 04:45이명옥 wrote: > 안녕하세요..?! > 델파이 컴포넌트중에서..server에 보면 excel application 이라는 것...
-
-
- 왕초보
- •
- 2001.05.05 00:25
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2001.05.05 01:53TForm.ActiveControl 폼안에서 어느 콤포넌트가 focus를 갖고 있는지를 알고 싶어요. > 그리고 BitBtn을 ...
-
허접답변•2001.05.05 00:53허접임다. 폼안에서 focus를 가지고 있는지는 폼의 메서드 중에 activecontrol이라는게 있슴다. 예를 ...
-
-
조복기•2001.05.05 02:22새로 계정을 만들면 권한(permission) 을 부여해야합니다. permission부분은 인터베이스 메뉴얼상에 명...
-
-
- 서니
- 2001.05.04 23:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 설창원
- 2001.05.04 23:37
- 0 COMMENTS
- /
- 0 LIKES
-
- WEBBROWSER
- 2001.05.04 23:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 조언자
- 2001.05.04 22:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 조영진
- •
- 2001.05.04 22:40
- 1 COMMENTS
- /
- 0 LIKES
-
송수정•2001.05.08 05:02조영진 wrote: > 파러독스 에서 date 타입을 설정하고조회하려합니다. > control은 DateTimePicker를 사...
-
- 김원배
- •
- 2001.05.04 22:31
- 1 COMMENTS
- /
- 0 LIKES
-
^^•2001.05.04 23:09잘 되는 디요...^^ 김원배 wrote: > 안냥하세여. > > if not user then > begin > Self.C...
-
- 심현지
- •
- 2001.05.04 22:24
- 1 COMMENTS
- /
- 0 LIKES
-
kukkek•2001.05.04 23:15unit 파일(record 가 정의 된파일임당) 을 하나 만들어서.. 적당한 이름으로 아무곳이나 저장해 놓고... ...
-
- 아기코알라
- •
- 2001.05.04 21:46
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요 고수님들.... 바쁘신 고수님들에게 폐가 안될려고 검색하고 이틀 동안 찾고 또 보고 했는데 답을 구하지 못했읍니다. 죄송하지만 좀 보아주시면 정말정말 감사드리겠읍니다. DB : Paradox7, 컴포넌트 : Query, UpdateSQL(직접...-
허접답변•2001.05.05 01:04허접임다. 음.... FieldByName(필드명).value 를 사용하셨는데, 안될건 없지만, 정확하게 AS... 를 사...
-
- 라반
- •
- 2001.05.04 21:06
- 1 COMMENTS
- /
- 0 LIKES
-
모름이•2001.05.04 23:19라반 wrote: > 안녕하세요. 저는 델파이에 SQL Server을 연결하는 프로그램 수정을 하고 있습니다. > 여...
-
- 김아성
- •
- 2001.05.04 21:04
- 4 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.05.04 21:42dbgrid의 click이밴트나 더블 클릭시.. var s:string; begin with query1 do begin if active then...
-
김아성•2001.05.04 22:32답변해주신 내용이 어떤 내용인지 자세히 말씀좀 해주세요 어떻게 사용하는지 모르겠습니다. 부탁드립니...
-
사발우성•2001.05.04 22:47^^;; 설명이 없었군엽... 구라니깐 DbGrid에 쿼리한 내용이 뿌려져있음 거기서 원하는 필드를 클릭시 그 ...
-
김아성•2001.05.04 23:34답변 정말 고맙습니다. ^^ 죄송하지만 다시 답변을 부탁 드릴수 있을까요? 그럼 기존에 있던 JOIN 한...
음.... FieldByName(필드명).value 를 사용하셨는데,
안될건 없지만, 정확하게 AS... 를 사용해 보심이...
AsInteger, AsString, As.... 있잖아여....
답변은 아닙니다. 그냥....참고하세염 ^^;
글구,,어디서 어떤 에러가 나는지를 알면 좀 더 쉬울텐데.....푸렴~~
또, 글구, 모든 필드의 값을 변수 설정하셔서 계산하세염..
글구, double형으로 변수 잡아서 처리하면 쉽지 않을까염......
정확한 에러를 알려주심 함더 생각해보져.
> //CalFields에 의한 계산
> procedure TForm1.Query1CalcFields(DataSet: TDataSet);
> var CurDate, CurDate1 : TDateTime;
> Year, Month, day, Year1, Month1, Day1 : Word;
> Y_A : String;
> begin
> CurDate := now; // 현재날짜
> DecodeDate(CurDate, Year, Month, Day); // 현재날짜
> CurDate1 := Query1.FieldByName('D').value; // 반입날짜
> DecodeDate(Curdate1, Year1, Month1, Day1); // 반입날짜 분리
>
> Y_A := StrToDate(Year)-StrToDate(Year1); // 현재년 - 반입년(월,일 불필요)
--------------------------------------------------------------------------------
Y_A:= Year - Year1; // 이렇게 하면 안되던가요?
>
> if Y_A <= Query1.FieldByName('P1').value then // 감가상각년한 판단
--------------------------------------------------------------------------------
if Y_A <= Query1.FieldByName('P1').AsInteger then //이렇게도...쩝.
> begin
> if StrToDate(Month1) <= 6 then // 상반기 반입 할 경우 계산 (월만 추출)
--------------------------------------------------------------------------------
if Month1 <= 6 then
> begin
> with Query1 do begin
> FieldByName('Cal').value :=
> FieldByName('P').value *
> (FieldByName('P1').value - Y_A)/
> FieldByName('P1').value;
> end;
> end
> else begin // 하반기 반입 할 경우 계산
> with Query1 do begin
> FieldByName('Cal').value :=
> FieldByName('P').value *
> (FieldByName('P1').value - Y_A + 0.5)/
> FieldByName('P1').value;
> end;
> end;
> end
> else begin
> Query1.FieldByName('Cal').value := 0; // 감가상각년한 초과시 값=0원
> end;
> end;
아기코알라 wrote:
> 안녕하세요 고수님들....
>
> 바쁘신 고수님들에게 폐가 안될려고 검색하고 이틀 동안 찾고 또 보고 했는데 답을 구하지 못했읍니다. 죄송하지만 좀 보아주시면 정말정말 감사드리겠읍니다.
>
> DB : Paradox7,
> 컴포넌트 : Query, UpdateSQL(직접입력), DBGrid, CalFiled(자동계산) 기타 등등
>
> 장비에 대한 감가상각을 자동으로 계산 할려고 하는데 잘 안되네요..
> 감가상각은 정액법으로 하는데 알고리즘은 만들었읍니다. 그런데 코딩이 안되네요.머쓱.
>
> 알고리즘은 대강 이렇읍니다.
>
> 10 A = 반입날짜
> 20 B = 구입가격
> 30 C = 감가상각년한
> 40 X = 잔존가액 (Calfield에 표시될 값)
> 50 Y = 현재날짜
> 60 Y-A <= C (if Yes이면 70으로, No이면100으로) // 감가년한 초과시 0원으로 계산
> 70 A <= 6 (if Yes이면 80으로, No이면90으로) // 상반기 구입시 기본 감가,
> 하반기 반입 시 기본 감가에 50% 감가
> 80 X = B*(C-Y+A)/C (to 110) // 기본 감가 계산 공식
> 90 X = B*(C-Y+A+0.5)/C (to 110) // 기본 감가의 50% 감가 공식
> 100 X = 0 // 감가 상각 년한 지난 장비에 대해선 0원으로 설정
> 110 End
>
> 아래와 같이 하면 컴파일이 안됩니다.(많은 에러 발생)
> 여러곳에 있는것들을 조합해놓았읍니다. 한심하다는 생각이 드시겠지만
> 보시고 좀 수정해주시면 안되나요?
>
> //CalFields에 의한 계산
> procedure TForm1.Query1CalcFields(DataSet: TDataSet);
> var CurDate, CurDate1 : TDateTime;
> Year, Month, day, Year1, Month1, Day1 : Word;
> Y_A : String;
> begin
> CurDate := now; // 현재날짜
> DecodeDate(CurDate, Year, Month, Day); // 현재날짜
> CurDate1 := Query1.FieldByName('D').value; // 반입날짜
> DecodeDate(Curdate1, Year1, Month1, Day1); // 반입날짜 분리
>
> Y_A := StrToDate(Year)-StrToDate(Year1); // 현재년 - 반입년(월,일 불필요)
>
> if Y_A <= Query1.FieldByName('P1').value then // 감가상각년한 판단
> begin
> if StrToDate(Month1) <= 6 then // 상반기 반입 할 경우 계산 (월만 추출)
> begin
> with Query1 do begin
> FieldByName('Cal').value :=
> FieldByName('P').value *
> (FieldByName('P1').value - Y_A)/
> FieldByName('P1').value;
> end;
> end
> else begin // 하반기 반입 할 경우 계산
> with Query1 do begin
> FieldByName('Cal').value :=
> FieldByName('P').value *
> (FieldByName('P1').value - Y_A + 0.5)/
> FieldByName('P1').value;
> end;
> end;
> end
> else begin
> Query1.FieldByName('Cal').value := 0; // 감가상각년한 초과시 값=0원
> end;
> end;
>
> 보시는데 불편을 드려 죄송하고
> 항상 건강하시고 즐거운 코딩 하시길 바랍니다.