Q&A
- [급해요!]나누기에서 소숫점 고정하기는 어떻게...?
프로그램을 하다보니 몇몇 정정할 부분이 생겨 이렇게 질문을 드립니다.
변수는 이렇게 정의 했구요
pijetsu1 :integer;
pijetsu2 :integer;
pijetsu3 :double;
프로그램 루핑을 돌리는데.
if fieldbyname('totiqty').asinteger=0 then
begin
pijetsu1:=fieldbyname('totcqty').asinteger;
pijetsu3:=(pijetsu1 div 1)*100;
end;
if fieldbyname('totiqty').asinteger>=1 then
begin
pijetsu1:=fieldbyname('totcqty').asinteger;
pijetsu2:=fieldbyname('totiqty').asinteger;
pijetsu3:=(pijetsu1 / pijetsu2)*100;
end;
여기서 두번째 if 문에서 pijetsu1의 값이 699 이고 pijetsu2의 값이 5200 일때
pijetsu3 의 값은 13.442307692..이런식으로 나옵니다.
근데 제가 구하고자 하는 값은 소수점 첫째자리까지입니다..
어떤방법이 있을까요..?
변수는 이렇게 정의 했구요
pijetsu1 :integer;
pijetsu2 :integer;
pijetsu3 :double;
프로그램 루핑을 돌리는데.
if fieldbyname('totiqty').asinteger=0 then
begin
pijetsu1:=fieldbyname('totcqty').asinteger;
pijetsu3:=(pijetsu1 div 1)*100;
end;
if fieldbyname('totiqty').asinteger>=1 then
begin
pijetsu1:=fieldbyname('totcqty').asinteger;
pijetsu2:=fieldbyname('totiqty').asinteger;
pijetsu3:=(pijetsu1 / pijetsu2)*100;
end;
여기서 두번째 if 문에서 pijetsu1의 값이 699 이고 pijetsu2의 값이 5200 일때
pijetsu3 의 값은 13.442307692..이런식으로 나옵니다.
근데 제가 구하고자 하는 값은 소수점 첫째자리까지입니다..
어떤방법이 있을까요..?
2
COMMENTS
-
-
이렇게 하면 될것 같은데
pijetsu3:=round((pijetsu1 / pijetsu2)*100 * 10)/10;
델초보 wrote:
> 프로그램을 하다보니 몇몇 정정할 부분이 생겨 이렇게 질문을 드립니다.
> 변수는 이렇게 정의 했구요
> pijetsu1 :integer;
> pijetsu2 :integer;
> pijetsu3 :double;
> 프로그램 루핑을 돌리는데.
> if fieldbyname('totiqty').asinteger=0 then
> begin
> pijetsu1:=fieldbyname('totcqty').asinteger;
> pijetsu3:=(pijetsu1 div 1)*100;
> end;
> if fieldbyname('totiqty').asinteger>=1 then
> begin
> pijetsu1:=fieldbyname('totcqty').asinteger;
> pijetsu2:=fieldbyname('totiqty').asinteger;
> pijetsu3:=(pijetsu1 / pijetsu2)*100;
> end;
> 여기서 두번째 if 문에서 pijetsu1의 값이 699 이고 pijetsu2의 값이 5200 일때
> pijetsu3 의 값은 13.442307692..이런식으로 나옵니다.
>
> 근데 제가 구하고자 하는 값은 소수점 첫째자리까지입니다..
> 어떤방법이 있을까요..?
>
>
(NOTICE) You must be logged in to comment on this post.
-
- 김은엽
- •
- 2001.05.13 05:30
- 2 COMMENTS
- /
- 0 LIKES
-
이석현•2001.05.13 11:38먼저 bde디렉토리가 패스로 잡혀있는지 반드시 확인하시기 바랍니다.. can't load idapi ...관련 메세지...
-
박회연•2001.05.16 00:05Clinet/Server 환경에서 아마 버젼의 문제인것 같습니다. 저는 오라클 8i/8를 Client(NT)에서 설치하여 테...
-
- 김경훈
- •
- 2001.05.13 05:27
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.05.13 13:03아래 소스를 참고 하세요.. From 류.. --------- implementation {$R *.DFM} Var Show...
-
-
- rodman
- 2001.05.13 01:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍동훈
- 2001.05.13 01:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보는 힘들어
- •
- 2001.05.13 01:29
- 1 COMMENTS
- /
- 0 LIKES
-
도와주세요~•2001.05.16 02:40초보는 힘들어 wrote: > 안녕하세요 > 델초보는 정말 너무힘들어요. > 고수님들의 조언을 부탁합니다. ...
-
- 갸우뚱
- 2001.05.13 00:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁그미
- •
- 2001.05.13 00:23
- 1 COMMENTS
- /
- 0 LIKES
-
아기코알라•2001.05.13 02:40궁그미 wrote: > 안녕하세요... > 질문이 두가지거든요. > 첫번째..... > TQuery를 이용해서 update를 ...
-
- 어린왕자
- 2001.05.12 23:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 구름둥둥
- 2001.05.12 23:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 써니
- 2001.05.12 21:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2001.05.12 20:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 도와주세요~
- •
- 2001.05.12 19:58
- 2 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.12 20:49도와주세요~ wrote: > 델파이 초보입니다. > 다름이 아니라 treeview에서 최하위 노드를 선택했을때의 값...
-
도와주세요~•2001.05.12 21:40블랙봉 wrote: > TreeView의 OnChange 이벤트에서 이렇게 하면 될것 같은데요. > > if not Node.HasChi...
-
- 김종석
- 2001.05.12 19:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 유종근
- 2001.05.12 19:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.05.12 19:12
- 2 COMMENTS
- /
- 0 LIKES
프로그램을 하다보니 몇몇 정정할 부분이 생겨 이렇게 질문을 드립니다. 변수는 이렇게 정의 했구요 pijetsu1 :integer; pijetsu2 :integer; pijetsu3 :double; 프로그램 루핑을 돌리는데. if fieldbyname('totiqty').asinteger=0 then be...-
조건일•2001.05.12 20:41그냥 젤 쉬운방법은여... pijetsu3:= StrToFloat(Format('%.1f',[(pijetsu1 / pijetsu2)*100])); 이...
-
김양우•2001.05.12 20:41이렇게 하면 될것 같은데 pijetsu3:=round((pijetsu1 / pijetsu2)*100 * 10)/10; 델초보 wrote:...
-
- ㅡ.ㅡ
- 2001.05.12 20:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 초전박살
- •
- 2001.05.12 19:11
- 1 COMMENTS
- /
- 0 LIKES
-
김동수•2001.05.12 19:48저두 잘은 모릅니다. 우선 데이터베이스를 뭘로 쓰시는지 명기하는게 도움 받기 수월할거 같습니다. 오라...
-
- 초보델피언
- •
- 2001.05.12 18:45
- 1 COMMENTS
- /
- 0 LIKES
-
지나는이•2001.05.13 11:50초보델피언 wrote: > nmftp 컴포를 사용하고 있습니다. > > 이걸 이용해서 화일(문서)를 다운받는데 받...
-
pijetsu3:= StrToFloat(Format('%.1f',[(pijetsu1 / pijetsu2)*100]));
이구여....
쫌 꼰다면....
pijetsu3:= trunc(((pijetsu1 / pijetsu2)*100) * 10) / 10;
정도가 되지 않을까요.....
넘 쉽게봤나?
즐프하셔여....
델초보 wrote:
> 프로그램을 하다보니 몇몇 정정할 부분이 생겨 이렇게 질문을 드립니다.
> 변수는 이렇게 정의 했구요
> pijetsu1 :integer;
> pijetsu2 :integer;
> pijetsu3 :double;
> 프로그램 루핑을 돌리는데.
> if fieldbyname('totiqty').asinteger=0 then
> begin
> pijetsu1:=fieldbyname('totcqty').asinteger;
> pijetsu3:=(pijetsu1 div 1)*100;
> end;
> if fieldbyname('totiqty').asinteger>=1 then
> begin
> pijetsu1:=fieldbyname('totcqty').asinteger;
> pijetsu2:=fieldbyname('totiqty').asinteger;
> pijetsu3:=(pijetsu1 / pijetsu2)*100;
> end;
> 여기서 두번째 if 문에서 pijetsu1의 값이 699 이고 pijetsu2의 값이 5200 일때
> pijetsu3 의 값은 13.442307692..이런식으로 나옵니다.
>
> 근데 제가 구하고자 하는 값은 소수점 첫째자리까지입니다..
> 어떤방법이 있을까요..?
>
>