- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]数据计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80387)
-- 发布时间：2016/1/21 17:17:00
-- [求助]数据计算
表的金额列和进价列,售价列是数据列,其余是表达式列,希望通过输入金额,进价,售价,然后得出整数的数量和不大于售价和四位小数的修正进价并且差异小余0.05
请各位大师写一个循环判断的代码.谢谢.
此主题相关图片如下：发票计算.bmp
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:发票计算.zip |
-- 发布时间：2016/1/21 17:21:00
--
不明白你想说什么逻辑是什么啊？
-- 发布时间：2016/1/21 19:27:00
--
回复大师,我不知道该如何表述,举个例子吧:一般的发票是根据商品清单数量X单价=发票金额的,转到我这里没有清单了只有发票的金额了,并且现在的单价也变了,我需要根据发票的金额反推商品的数量和单价,本来是金额/单价=数量的,可是数量总应该是整数吧.但是取整后就无法和金额相同了.比如说一瓶饮料进价3.5售价5元我订购了15瓶X3.5元进价=应该是52.5元金额的发票,可是当时没有开发票,现在饮料涨价了一瓶4.5元进价售价5.5,按52.5元的金额/4.5元进价=11.66666...瓶,显然行不通.按11瓶算的话金额成了49.5元.发票的总金额不能差异到0.09元,如果按7.5元一瓶的话7瓶刚好52.5元金额,但进价都高于售价了.我的逻辑是根据显有总金额和商品的进价和售价推算出整数的数量和不大于售价的进价并且进价的小数位在四位以内金额差异在0.09以内.发票有很多张.
| 这个表格不会删除 | ||||
| 重做 | ||||
| 现有金额 | 已知进价 | 已知售价 | 未知数量 | 未知进价 | 金额差异 | |||
| 52.5 | 3.5 | 5 | 动态 | 动态 | <0.09 | |||
| 52.5 | 4.5 | 6 |
谢谢指导.
[此贴子已经被作者于2016/1/21 19:50:39编辑过]
-- 发布时间：2016/1/21 20:32:00
--
参考代码
Dim je As Double = 778.96 \'金额
Dim jj As Double = 3.78 \'进价
Dim sj As Double = 5 \'售价
Dim wc As Double = 0.05 \'最大误差
Dim jd As Double = 0
Do While jd <= wc
Dim xzjj As Double = jj
Do While xzjj < sj
Dim max As Double = (je+jd) / xzjj
Dim min As Double = (je-jd) / xzjj
Dim sl As Integer = min
Do While sl <= max
If xzjj*sl >= je-jd AndAlso xzjj*sl <= je+jd Then
output.show(Round2(xzjj,4) & " " & Round2(sl,4) & " " & round2(xzjj * sl,4))
Return ""
End If
sl += 1
Loop
xzjj += 0.0001
Loop
jd += 0.0001
Loop
-- 发布时间：2016/1/21 21:34:00
--
不知道代码该放哪里,放在按钮里提示
此主题相关图片如下：错误提示.bmp
此主题相关图片如下：错误提示.bmp---------------------------
错误
---------------------------
编译错误:\'Return\' statement in a Sub or a Set cannot return a value.
错误代码：Return ""
-- 发布时间：2016/1/21 21:58:00
--
如下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:发票计算.table |
-- 发布时间：2016/1/21 22:06:00
--
谢谢大红袍大师.这么晚了还耐心帮助,祝你晚安.