Q&A
안녕하세요
날씨가 많이 덥네요...
오늘은 좀 기본적인 질문을 가지고 고수님을 찾아뵐까 합니다...
프로그램을 하다 Error를 하나 만나게 되었는데.."Invalid Floating Point Operation"
integer의 범위를 넘어서 error가 발생한다고 찾아보았읍니다.
책을 찾아보니 integer의 범위가 -2147483648...2147483647 이더군요...
그런데 저는 최고로 백억단위(40000000000)의 숫자가 나와야 하는데..
어떤 것을 사용해야 하는지 알 수가 없읍니다.
고수님의 작은 관심 부탁드립니다.
날씨가 많이 덥네요... 건강하시고 항상 행복하세요...
아래 코딩은 감가상각을 구하고 계산된 잔존가액의 합계(Calsum)를 구하는 것입니다.
참고로 적어보았읍니다.....
// 감가상각 계산(정액법)
procedure TEMain.Query1CalcFields(DataSet: TDataSet);
var CurDate, curDateO, N_O : TDateTime; // 금일 , 납품일, 금일-납품일
Year, Month, Day, YearO,MonthO,DayO : Word;
Calsum : integer; // <- - - - 이곳에 주목해주세요....
begin
// 현재날짜 입력
CurDate := now;
DecodeDate(CurDate, Year, Month, Day);
~~~~ 생략 ~~~~~
while not Query7.eof do begin
if(Query7.FieldByName('DateOffer').value = null) or
(Query7.FieldByName('Price').value = null) or
(Query7.FieldByName('Equipvalue').value = null) then
Query7.next
else begin
CurDate := Query7.FieldByName('DateOffer').Asdatetime;// 취득년
DecodeDate(Curdate, YearO, MonthO, DayO);
N_O := Year - YearO;
if N_O <= Query7.FieldByName('Equipvalue').AsInteger then begin
if MonthO <=6 then begin
calsum := calsum + Query7.FieldByName('Price').value*
(Query7.FieldByName('Equipvalue').value-N_O)/
Query7.FieldByName('Equipvalue').value;
end
else begin
with Query7 do begin
calsum := calsum + Query7.FieldByName('Price').value*
(Query7.FieldByName('Equipvalue').value-N_O+0.5)/
Query7.FieldByName('Equipvalue').value;
end;
end;
end else
calsum := 0;
end;
Query7.next;
end;
Edit4.text := IntToStr(calsum);
end;
- interger의 범위를 넘어서
안녕하세요
날씨가 많이 덥네요...
오늘은 좀 기본적인 질문을 가지고 고수님을 찾아뵐까 합니다...
프로그램을 하다 Error를 하나 만나게 되었는데.."Invalid Floating Point Operation"
integer의 범위를 넘어서 error가 발생한다고 찾아보았읍니다.
책을 찾아보니 integer의 범위가 -2147483648...2147483647 이더군요...
그런데 저는 최고로 백억단위(40000000000)의 숫자가 나와야 하는데..
어떤 것을 사용해야 하는지 알 수가 없읍니다.
고수님의 작은 관심 부탁드립니다.
날씨가 많이 덥네요... 건강하시고 항상 행복하세요...
아래 코딩은 감가상각을 구하고 계산된 잔존가액의 합계(Calsum)를 구하는 것입니다.
참고로 적어보았읍니다.....
// 감가상각 계산(정액법)
procedure TEMain.Query1CalcFields(DataSet: TDataSet);
var CurDate, curDateO, N_O : TDateTime; // 금일 , 납품일, 금일-납품일
Year, Month, Day, YearO,MonthO,DayO : Word;
Calsum : integer; // <- - - - 이곳에 주목해주세요....
begin
// 현재날짜 입력
CurDate := now;
DecodeDate(CurDate, Year, Month, Day);
~~~~ 생략 ~~~~~
while not Query7.eof do begin
if(Query7.FieldByName('DateOffer').value = null) or
(Query7.FieldByName('Price').value = null) or
(Query7.FieldByName('Equipvalue').value = null) then
Query7.next
else begin
CurDate := Query7.FieldByName('DateOffer').Asdatetime;// 취득년
DecodeDate(Curdate, YearO, MonthO, DayO);
N_O := Year - YearO;
if N_O <= Query7.FieldByName('Equipvalue').AsInteger then begin
if MonthO <=6 then begin
calsum := calsum + Query7.FieldByName('Price').value*
(Query7.FieldByName('Equipvalue').value-N_O)/
Query7.FieldByName('Equipvalue').value;
end
else begin
with Query7 do begin
calsum := calsum + Query7.FieldByName('Price').value*
(Query7.FieldByName('Equipvalue').value-N_O+0.5)/
Query7.FieldByName('Equipvalue').value;
end;
end;
end else
calsum := 0;
end;
Query7.next;
end;
Edit4.text := IntToStr(calsum);
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 강동욱
- •
- 2001.07.07 01:08
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.07.07 03:57program에서 사용하는 DbComponent의 DataBaseName을 CD로 설정해 주시면 되겠죠 Alias를 사용하신다면 Al...
-
- 손
- •
- 2001.07.07 00:58
- 3 COMMENTS
- /
- 0 LIKES
-
감초•2001.07.07 01:10detail band의 datasource의 레코드를 마지막으로 이동하심 될것같군요. 손 wrote: > 복잠한 레포트를 ...
-
손•2001.07.07 03:19특정 조건이 프린트 중간 정도에서 발생 했을경우 그러면 나머지 프린트 해야 할 레코드들은 ...어떻게 합...
-
감초•2001.07.07 11:58그러심 if (특정 조건) then PrintBand := false; 을 그 detail band의 beforePrint 이벤트에 ...
-
- 델파이 왕초보
- •
- 2001.07.07 00:57
- 1 COMMENTS
- /
- 0 LIKES
-
아기코알라•2001.07.09 18:01델파이 왕초보 wrote: > db콤보박스나 디비룩업콤보박스를 이용해서 안에 있는 항목을 선택하면 > 모든 ...
-
- 어린왕자
- 2001.07.07 00:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 레미안
- •
- 2001.07.07 00:31
- 1 COMMENTS
- /
- 0 LIKES
-
김정선•2001.07.07 01:55쿼리문중 with query1 do > begin > databasename:='ANGANG'; close; > ...
-
- 꼴초
- •
- 2001.07.07 00:12
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2001.07.07 00:32꼴초 wrote: > HTML help를 만들고, > > 이것을 델파이에서 끌어쓰는데까지는 성공을 했습니다만, > ...
-
꼴초•2001.07.07 01:59드뎌 지푸라기라도 잡은 심정입니다. 그럼 오늘 하루도 행복하세요. ^___^
-
- 아기코알라
- •
- 2001.07.06 23:59
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요 날씨가 많이 덥네요... 오늘은 좀 기본적인 질문을 가지고 고수님을 찾아뵐까 합니다... 프로그램을 하다 Error를 하나 만나게 되었는데.."Invalid Floating Point Operation" integer의 범위를 넘어서 error가 발생한다고 찾...-
김정선•2001.07.07 01:58int64 를 함 사용해 보시면....어떠실지.. 아기코알라 wrote: > > 안녕하세요 > 날씨가 많이...
-
- loke
- 2001.07.06 23:49
- 0 COMMENTS
- /
- 0 LIKES
-
- delcho
- 2001.07.06 23:46
- 0 COMMENTS
- /
- 0 LIKES
-
- shipping
- •
- 2001.07.06 23:36
- 1 COMMENTS
- /
- 0 LIKES
-
김정선•2001.07.07 02:05그리드에 디비룩업콤보를 얹어 직업 코드로 연결하여 타이틀을 보여지게 할 수 있는 것을 알아보셔요....
-
- 초보
- 2001.07.06 23:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 나이스
- 2001.07.06 23:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 나그나그
- •
- 2001.07.06 23:31
- 2 COMMENTS
- /
- 0 LIKES
-
yosule•2001.07.07 02:39폼을 메모리에 동적으로 생성시켰다가 해제시킬적엔 저두 그 방법을 씁니다. Action := caFree; Free나...
-
나그나그•2001.07.07 20:44yosule wrote: > 폼을 메모리에 동적으로 생성시켰다가 해제시킬적엔 저두 그 방법을 > 씁니다. Action :...
-
- xxx
- 2001.07.06 23:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보맨
- •
- 2001.07.06 23:55
- 1 COMMENTS
- /
- 0 LIKES
-
김정선•2001.07.07 02:21SELECT * FROM 111.DB AS DB1 WHERE DB1.AAA IN ( SELECT AAA FROM 222.DB ) 초보맨 wrote: > ...
-
- 손종민
- •
- 2001.07.06 23:01
- 1 COMMENTS
- /
- 0 LIKES
-
.•2001.07.06 23:17손종민 wrote: > 안녕하세요.. > > 윈도우 미디어 플레이어를 이용해서 프로그램을 작성할 일이 생겨서...
-
- sadfly
- •
- 2001.07.06 22:48
- 1 COMMENTS
- /
- 0 LIKES
-
김정선•2001.07.07 02:26델파이 인스톨된 폴더에 보시면 아래 폴더에 예제가 있습니다. ..DemosThreads sadfly wrote: ...
-
- 델초보
- •
- 2001.07.06 22:00
- 1 COMMENTS
- /
- 0 LIKES
-
델초보•2001.07.07 02:19델초보 wrote: > 안녕하세요... > MS_SQL과 연동해서 개발중인데.... 디비에 자료 INSERT시 아래와 같은 ...
-
- 궁금이
- •
- 2001.07.06 21:33
- 3 COMMENTS
- /
- 0 LIKES
-
바람개비•2001.07.06 22:47ODBC를 이용하는 방법도 있습니다. http://myhome.netsgo.com/parkhs98/ 여기 가시면 설정방법을 알수 있...
-
궁구미•2001.07.07 00:53죄송합니다만.ODBC 말구여..MS SQL2000 의 DLL만 CLIENT PC에 설치해서 레지스트리 약간 고치는것 같던데....
-
^-_-^•2001.07.07 01:10yo` 흠...레지스트리를 만지는 방법은 모르겟고.... Zeos 콤포넌트를 이용해서 접근하는 방법도 있...
-
- 윤종진
- •
- 2001.07.06 21:20
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2001.07.07 00:37윤종진 wrote: > 일단 이글을 보시는 분께 말씀을 드립니다. > 제가 하고자 하는 작업은 웹에서 검색창에...
-
윤종진•2001.07.07 19:22조규춘 wrote: > 윤종진 wrote: > > 일단 이글을 보시는 분께 말씀을 드립니다. > > 제가 하고자 하는 ...
int64 를 함 사용해 보시면....어떠실지..
아기코알라 wrote:
>
> 안녕하세요
> 날씨가 많이 덥네요...
>
> 오늘은 좀 기본적인 질문을 가지고 고수님을 찾아뵐까 합니다...
>
> 프로그램을 하다 Error를 하나 만나게 되었는데.."Invalid Floating Point Operation"
>
> integer의 범위를 넘어서 error가 발생한다고 찾아보았읍니다.
>
> 책을 찾아보니 integer의 범위가 -2147483648...2147483647 이더군요...
>
> 그런데 저는 최고로 백억단위(40000000000)의 숫자가 나와야 하는데..
>
> 어떤 것을 사용해야 하는지 알 수가 없읍니다.
>
> 고수님의 작은 관심 부탁드립니다.
>
> 날씨가 많이 덥네요... 건강하시고 항상 행복하세요...
>
>
> 아래 코딩은 감가상각을 구하고 계산된 잔존가액의 합계(Calsum)를 구하는 것입니다.
> 참고로 적어보았읍니다.....
>
> // 감가상각 계산(정액법)
> procedure TEMain.Query1CalcFields(DataSet: TDataSet);
> var CurDate, curDateO, N_O : TDateTime; // 금일 , 납품일, 금일-납품일
> Year, Month, Day, YearO,MonthO,DayO : Word;
>
> Calsum : integer; // <- - - - 이곳에 주목해주세요....
>
> begin
> // 현재날짜 입력
> CurDate := now;
> DecodeDate(CurDate, Year, Month, Day);
>
> ~~~~ 생략 ~~~~~
>
> while not Query7.eof do begin
> if(Query7.FieldByName('DateOffer').value = null) or
> (Query7.FieldByName('Price').value = null) or
> (Query7.FieldByName('Equipvalue').value = null) then
> Query7.next
> else begin
> CurDate := Query7.FieldByName('DateOffer').Asdatetime;// 취득년
> DecodeDate(Curdate, YearO, MonthO, DayO);
> N_O := Year - YearO;
>
> if N_O <= Query7.FieldByName('Equipvalue').AsInteger then begin
> if MonthO <=6 then begin
> calsum := calsum + Query7.FieldByName('Price').value*
> (Query7.FieldByName('Equipvalue').value-N_O)/
> Query7.FieldByName('Equipvalue').value;
> end
> else begin
> with Query7 do begin
> calsum := calsum + Query7.FieldByName('Price').value*
> (Query7.FieldByName('Equipvalue').value-N_O+0.5)/
> Query7.FieldByName('Equipvalue').value;
> end;
> end;
> end else
> calsum := 0;
> end;
> Query7.next;
> end;
> Edit4.text := IntToStr(calsum);
>
> end;
>
>
>