한국 델파이 개발자 모임 - 정말급합니다. 꼭좀봐주십시요 ( Calfield 계산된것 합계산출입니다)..

정말급합니다. 꼭좀봐주십시요 ( Calfield 계산된것 합계산출입니다)..

안녕하세요 고수님

마음은 급하고 일은 안되고 정말 머리가 터질것 같습니다.

왜 계산이 안되는지 좀 보아 주시면 그 은혜 잊지않겠나이다......

DB : paradox

콤포넌트 : Query, DataSource, UpdateSQL, DBGrid 등등

감가상각 계산을 하고 합계를 낼려고 합니다.

그런데 합계에서 자꾸만 오류가 생기네요

합계 하나는 감가상각액, 다른 하나는 잔존가액 입니다.

잔존가액 합계(CalSum)는 잘 되는데 감가상각액 합계(Calsum1)는 왜 이상한지

1주일째 씨름하고 있는데

정말 뭐가 잘못되었는지 모르겠읍니다. 꼭 좀 봐 주십시요....

이상한점 : 감가상각액 합계(Calsum1)에 계산도 안되고 꼭 20원이 추가되어 나옴..

예) 감가상각액 레코드값 : 2,500, 1,000, 5,000, 3,000, 1,500, 2,000

정상합계액은 15000원이 출력이 되어야 하는데

현재는 63,020원이 출력됩니다..

// 감가상각 계산(정액법)

procedure TEMain.Query1CalcFields(DataSet: TDataSet);

var CurDate, curDateO, N_O : TDateTime; // 금일 , 납품일, 금일-납품일

Year, Month, Day, YearO,MonthO,DayO : Word;

calsum, calsum1 : integer;

Begin

// 현재날짜 입력

CurDate := now;

DecodeDate(CurDate, Year, Month, Day);

중략....Calfield의 계산 (Cal1, Cal2계산부분)

// 3개 필드중 하나라도 입력안되면 계산을 못하도록...

while not Query2.eof do begin

if(Query2.FieldByName('DateOffer').value = null) or

(Query2.FieldByName('Price').value = null) or

(Query2.FieldByName('Equipvalue').value = null) then

Query2.next

else begin

CurDate := Query2.FieldByName('DateOffer').Asdatetime;// 취득년

DecodeDate(Curdate, YearO, MonthO, DayO);

N_O := Year - YearO;

// 물품 구입이 감가상각년한을 초과 했는지 판단...

if N_O <= Query2.FieldByName('Equipvalue').AsInteger then begin

// 상반기 구입했을 경우 잔존가액 계산

if MonthO <=6 then begin

// 잔존가액 합계( 상반기 구입 시)

calsum := calsum + Query2.FieldByName('Price').value*

(Query2.FieldByName('Equipvalue').value-N_O)/

Query2.FieldByName('Equipvalue').value;

// 감가상각액 합계 (상반기 구입 시)

calsum1 := calsum1 + (Query2.FieldByname('Price').Value * N_O /

Query2.FieldByName('Equipvalue').Value);

end

else begin

// 하반기 구입했을 경우 잔존가액 계산

with Query2 do begin

// 잔존가액 합계 (하반기 구입시)

calsum := calsum + Query2.FieldByName('Price').value*

(Query2.FieldByName('Equipvalue').value-N_O+0.5)/

Query2.FieldByName('Equipvalue').value;

// 감가상각액 합계 (하반기 구입시)

calsum1 := calsum1 + ((Query2.FieldByname('Price').Value * (N_O + 0.5)) /

Query2.FieldByName('Equipvalue').Value);

end;

end;

end else

// 감가상각년한이 지난 잔존가액은 "0원"으로 처리

calsum := calsum + 0;

// 감가상각년한이 지난 감가상각액은 "취득가격"으로 처리

calsum1 := calsum1+Query2.FieldByName('Price').value; //<- - - 요 부분이 좀

end;

Query2.next;

end;

Edit4.text := IntToStr(calsum);

Edit4.text := formatfloat('#,##0',calsum); // 숫자에 3자리 마다 콤마삽입

Edit3.text := Inttostr(calsum1);

Edit3.text := FormatFloat('#,##0',calsum1); // 숫자에 3자리 마다 콤마삽입

end;

너무 길죠/..

항상 행복하시고 즐거운 나날 되십시요....

이 게시물을

1 COMMENTS

블랙봉 • 2001.07.10 18:51

맞는 지는 모릅니다.

혹시 계산이 잘못 되는 경우는 이 때문이지 않을까요?

> end else (begin)

>

> // 감가상각년한이 지난 잔존가액은 "0원"으로 처리

> calsum := calsum + 0;

>

> // 감가상각년한이 지난 감가상각액은 "취득가격"으로 처리

>

> calsum1 := calsum1+Query2.FieldByName('Price').value; //<- - - 요 부분이 좀

>

> end;

감가상각년한이 지난 경우 잔존가액과 감각상각액 계산에서

end else begin 이 되어야 하지 않는지...

지금 소스를 보면

calsum1 := calsum1+Query2.FieldByName('Price').value;

위의 계산은 무조건 실행되는 것 같애서요.

아기코알라 wrote:

> 안녕하세요 고수님

>

> 마음은 급하고 일은 안되고 정말 머리가 터질것 같습니다.

>

> 왜 계산이 안되는지 좀 보아 주시면 그 은혜 잊지않겠나이다......

>

> DB : paradox

> 콤포넌트 : Query, DataSource, UpdateSQL, DBGrid 등등

>

>

> 감가상각 계산을 하고 합계를 낼려고 합니다.

>

> 그런데 합계에서 자꾸만 오류가 생기네요

>

> 합계 하나는 감가상각액, 다른 하나는 잔존가액 입니다.

>

> 잔존가액 합계(CalSum)는 잘 되는데 감가상각액 합계(Calsum1)는 왜 이상한지

>

> 1주일째 씨름하고 있는데

>

> 정말 뭐가 잘못되었는지 모르겠읍니다. 꼭 좀 봐 주십시요....

>

> 이상한점 : 감가상각액 합계(Calsum1)에 계산도 안되고 꼭 20원이 추가되어 나옴..

>

> 예) 감가상각액 레코드값 : 2,500, 1,000, 5,000, 3,000, 1,500, 2,000

> 정상합계액은 15000원이 출력이 되어야 하는데

> 현재는 63,020원이 출력됩니다..

>

>

> // 감가상각 계산(정액법)

> procedure TEMain.Query1CalcFields(DataSet: TDataSet);

> var CurDate, curDateO, N_O : TDateTime; // 금일 , 납품일, 금일-납품일

> Year, Month, Day, YearO,MonthO,DayO : Word;

> calsum, calsum1 : integer;

> Begin

> // 현재날짜 입력

> CurDate := now;

> DecodeDate(CurDate, Year, Month, Day);

>

> 중략....Calfield의 계산 (Cal1, Cal2계산부분)

>

> // 3개 필드중 하나라도 입력안되면 계산을 못하도록...

> while not Query2.eof do begin

> if(Query2.FieldByName('DateOffer').value = null) or

> (Query2.FieldByName('Price').value = null) or

> (Query2.FieldByName('Equipvalue').value = null) then

> Query2.next

> else begin

> CurDate := Query2.FieldByName('DateOffer').Asdatetime;// 취득년

> DecodeDate(Curdate, YearO, MonthO, DayO);

> N_O := Year - YearO;

>

> // 물품 구입이 감가상각년한을 초과 했는지 판단...

> if N_O <= Query2.FieldByName('Equipvalue').AsInteger then begin

>

> // 상반기 구입했을 경우 잔존가액 계산

> if MonthO <=6 then begin

>

> // 잔존가액 합계( 상반기 구입 시)

> calsum := calsum + Query2.FieldByName('Price').value*

> (Query2.FieldByName('Equipvalue').value-N_O)/

> Query2.FieldByName('Equipvalue').value;

>

> // 감가상각액 합계 (상반기 구입 시)

> calsum1 := calsum1 + (Query2.FieldByname('Price').Value * N_O /

> Query2.FieldByName('Equipvalue').Value);

> end

> else begin

> // 하반기 구입했을 경우 잔존가액 계산

> with Query2 do begin

>

> // 잔존가액 합계 (하반기 구입시)

> calsum := calsum + Query2.FieldByName('Price').value*

> (Query2.FieldByName('Equipvalue').value-N_O+0.5)/

> Query2.FieldByName('Equipvalue').value;

>

> // 감가상각액 합계 (하반기 구입시)

> calsum1 := calsum1 + ((Query2.FieldByname('Price').Value * (N_O + 0.5)) /

> Query2.FieldByName('Equipvalue').Value);

> end;

> end;

> end else

>

> // 감가상각년한이 지난 잔존가액은 "0원"으로 처리

> calsum := calsum + 0;

>

> // 감가상각년한이 지난 감가상각액은 "취득가격"으로 처리

>

> calsum1 := calsum1+Query2.FieldByName('Price').value; //<- - - 요 부분이 좀

>

> end;

> Query2.next;

> end;

> Edit4.text := IntToStr(calsum);

> Edit4.text := formatfloat('#,##0',calsum); // 숫자에 3자리 마다 콤마삽입

> Edit3.text := Inttostr(calsum1);

> Edit3.text := FormatFloat('#,##0',calsum1); // 숫자에 3자리 마다 콤마삽입

> end;

>

>

> 너무 길죠/..

>

> 항상 행복하시고 즐거운 나날 되십시요....
- 0
- 0
- 삭제
- 수정
- 댓글

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

- 이금선
- •
- 2001.07.10 20:04
- 4 COMMENTS
- /
- 0 LIKES
A~Z까지 유효검사를 하는 문제입니다.
- 정성훈
  
  •
  
  2001.07.10 20:33
  
  이금선 wrote: > 아래 내용은 입력처리 조건을 처리하는 부분입니다. > > 문제는 조건4.우수고객등급은...
- 이금선
  
  •
  
  2001.07.11 04:36
  
  정성훈 wrote: > > 안녕하세요. > FOR는 루프인데 결과가 같아도 계속 반복되니 메시지 출력은 당...
- 뽀록이
  
  •
  
  2001.07.11 23:38
  
  안녕하세요 전 그렇게 복잡하게 안 할거 같은데요 이렇게 함 안 될까요>>>>>>>>>>??????? if not ((ed...
- 정성훈
  
  •
  
  2001.07.11 06:32
  
  이금선 wrote: > 정성훈 wrote: > > > > > > 안녕하세요. > > FOR는 루프인데 결과가 같아도 계속...
- 나그네
- 2001.07.10 19:55
- 0 COMMENTS
- /
- 0 LIKES
NT에서 각 프로세스의 CPU사용시간을 알고싶어요..
- 처음
- •
- 2001.07.10 19:48
- 2 COMMENTS
- /
- 0 LIKES
윈도우 함수에러 같은데...
- Ben
  
  •
  
  2001.07.10 20:14
  
  처음 wrote: > MDI와 CHILD 폼을 기본으로 사용하고요.. > 간혹 CHILD폼을 열때 다음과 같은 Error메세지...
- 처음
  
  •
  
  2001.07.10 20:54
  
  Ben wrote: > 처음 wrote: > > MDI와 CHILD 폼을 기본으로 사용하고요.. > > 간혹 CHILD폼을 열때 다음...
- 인어공주
- •
- 2001.07.10 19:45
- 2 COMMENTS
- /
- 0 LIKES
var 질문 입니다
- 하기
  
  •
  
  2001.07.10 20:21
  
  procedure Val(S; var V; var Code: Integer); [[[[Example]]]] procedure TForm1.Button1Click(Sender:...
- 인어공주
  
  •
  
  2001.07.10 21:01
  
  항상 하기님이 제 답변을 해주시는것 같네요. 정말 고맙습니다. 문제는 해결 되었구요..^^ 항상 ...
- 엔젤조
- 2001.07.10 21:08
- 0 COMMENTS
- /
- 0 LIKES
SQL DB관리방법에대한 질문(급함)
- peritus
- 2001.07.10 19:35
- 0 COMMENTS
- /
- 0 LIKES
I/O에러를 잡아내는 방법?
- 델만세
- •
- 2001.07.10 18:58
- 1 COMMENTS
- /
- 0 LIKES
zip
- ㅁㅇㄹ
  
  •
  
  2008.01.21 06:47
- 이방인
- •
- 2001.07.10 18:57
- 2 COMMENTS
- /
- 0 LIKES
Excel 저장
- 블랙봉
  
  •
  
  2001.07.10 19:16
  
  FormatMaskText('A-00000-0000000;0', StringGrid.Cells[iCol,iRow]) 이방인 wrote: > string grid내용...
- 이방인
  
  •
  
  2001.07.10 19:42
  
  FormatMaskText('A-00000-0000000;0', StringGrid.Cells[iCol,iRow]) 이런식으로 바꿔놓고 하면 엑셀로 ...
- 아기코알라
- •
- 2001.07.10 18:40
- 1 COMMENTS
- /
- 0 LIKES
정말급합니다. 꼭좀봐주십시요 ( Calfield 계산된것 합계산출입니다)..

안녕하세요 고수님 마음은 급하고 일은 안되고 정말 머리가 터질것 같습니다. 왜 계산이 안되는지 좀 보아 주시면 그 은혜 잊지않겠나이다...... DB : paradox 콤포넌트 : Query, DataSource, UpdateSQL, DBGrid 등등 감가상각 계산을 하...
- 블랙봉
  
  •
  
  2001.07.10 18:51
  
  맞는 지는 모릅니다. 혹시 계산이 잘못 되는 경우는 이 때문이지 않을까요? > end else (begin) > ...
- 김대훈
- •
- 2001.07.10 18:34
- 3 COMMENTS
- /
- 0 LIKES
Query한 결과셋 INT형을 Edit에 뿌리기?
- 블랙봉
  
  •
  
  2001.07.10 18:44
  
  > Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value); 윗 부분은 다음과 같이 변환하시면 ...
- 김대훈
  
  •
  
  2001.07.10 20:36
  
  다시 한번 답변 부탁드리겠습니다.. 아래의 소스를 보면 퀴리가 조인으로 결과셋이 나왔는데 필드를 구별...
- 블랙봉
  
  •
  
  2001.07.11 02:23
  
  > > > SQL.Add(' SELECT * '); > > > SQL.Add(' FROM Customers AS a INNER JOIN Customers_Detail AS...
- 이성근
- •
- 2001.07.10 18:26
- 1 COMMENTS
- /
- 0 LIKES
델파이 한글판 있나요? 또..
- 손
  
  •
  
  2001.07.12 09:53
  
  이성근 wrote: > 델파이 한글판 있나요? > > 또 어디서 구할수 있나요? ㅜ.ㅡ > > c++ 만 하다보니...
- 이정현
- 2001.07.10 13:24
- 0 COMMENTS
- /
- 0 LIKES
indy ftp 에서 로긴에러 530 메세지를 죽이는 방법없나요?
- 한동수
- 2001.07.10 13:23
- 0 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.
- 김성문
- •
- 2001.07.10 09:34
- 1 COMMENTS
- /
- 0 LIKES
메모리 바이올레이션 에러가납니다. 왜그런지 답변부탁드려요.
- 박서규
  
  •
  
  2001.07.10 19:28
  
  김성문 wrote: > procedure TForm1.SpeedButton1Click(Sender: TObject); > var strlist1:Tstringlist; K...
- 초보..
- •
- 2001.07.10 09:08
- 1 COMMENTS
- /
- 0 LIKES
스토어드 프로시져에서..
- Ben
  
  •
  
  2001.07.10 20:09
  
  초보.. wrote: > 아까 글을 남겼는데 > 처음 남기다 보니깐 나두 모르게 열개정도가 한번에.. 미안합니다...
- 부산갈매기
- 2001.07.10 06:52
- 0 COMMENTS
- /
- 0 LIKES
webbrowser 써 보신분
- 빙고
- 2001.07.10 06:15
- 0 COMMENTS
- /
- 0 LIKES
XDBGRID 체크박스에 관한 질문인데요???
- xxx
- 2001.07.10 06:10
- 0 COMMENTS
- /
- 0 LIKES
QuickReport에서 미리보기
- 바보팅이
- •
- 2001.07.10 05:08
- 1 COMMENTS
- /
- 0 LIKES
오라클 연결 문제 입니다.
- 초보
  
  •
  
  2001.07.14 20:42
  
  bde를 업그레이드 시키셔야 하는것 같습니다. 한국볼랜드에 가시면 있는것 같은데...
- 김대훈
- •
- 2001.07.10 03:57
- 1 COMMENTS
- /
- 0 LIKES
INT 형 값을 TEdit 에 삽입하기?
- 사발우성
  
  •
  
  2001.07.10 04:23
  
  edit1.text := fieldbyname('int').asstring; 또는 edit1.text := inttstr(fieldbyname('int').asintege...

아기코알라
2001/07/10 18:40
Views370

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1686 1687 1688 1689 1690 1691 1692 1693 1694 1695

Last Page→