我试图将EXIF曝光时间显示为几分之一秒,但我没有得到预期的结果,可能是一个小错误.
我找到了两个进行计算的例程,但都带来了不同的错误结果.
我遇到的问题是:“0.0806451612903226”值的类型为Extended.
DecimalToFractStr给我:“16129/200000”,结果,
DecToFrac给了我:“5/62”结果
预期的结果应该是“1/12”因为每个人都得到它(诀窍是什么).当我右键单击资源管理器中的图像并查看详细信息时,我得到此值.我如何在我的申请中获得它?希望有人可以帮助我.
亲切的问候
Roy M KLever
解决了!
经过一些测试后我发现了.使用DecToFrac的结果,他们只需将整数除以左侧的结果. 5 div 5 = 1/62 div 5 = 12所以我留下想要的结果1/12.
感谢您的所有投入.
亲切的问候
Roy M KLever
procedure DecimalToFract(value: double; AllowedDecimals: integer; var num,den: integer); var d,i: integer; ex: boolean; begin d := Trunc(power(10,AllowedDecimals)); num := Trunc(value * d); den := d; repeat ex := true; for i := 10 downto 2 do if ((num mod i) = 0) and ((den mod i) = 0) then begin num := num div i; den := den div i; ex := false; end; until ex; end; function DecimalToFractStr(value: double): string; var num,den: integer; begin DecimalToFract(value,6,num,den); if den = 1 then result := inttostr(num) else result := inttostr(num) + '/' + inttostr(den); end; function Dec2Frac(f: Double): String; var df: Double; lUpperPart: Integer; lLowerPart: Integer; begin lUpperPart := 1; lLowerPart := 1; df := lUpperPart / lLowerPart; While (df <> f) do begin If (df < f) Then lUpperPart := lUpperPart + 1 Else begin lLowerPart := lLowerPart + 1; lUpperPart := Trunc(f * lLowerPart); end; df := lUpperPart / lLowerPart; end; if lLowerPart = 1 then result := IntToStr(lUpperPart) else result := IntToStr(lUpperPart) + '/' + IntToStr(lLowerPart); end;
解决方法
1/12实际上不是该值的正确结果.
也许他们可能有某种“对齐”查找表,即这个值最接近增量值列表的1/12?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。