主题：[求助]数据计算

表的金额列和进价列,售价列是数据列,其余是表达式列,希望通过输入金额,进价,售价,然后得出整数的数量和不大于售价和四位小数的修正进价并且差异小余0.05
请各位大师写一个循环判断的代码.谢谢.
此主题相关图片如下：fa piao计算.bmp

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:fa piao计算.zip

不明白你想说什么逻辑是什么啊？

回复大师,我不知道该如何表述,举个例子吧:一般的fa piao是根据商品清单数量X单价=fa piao金额的,转到我这里没有清单了只有fa piao的金额了,并且现在的单价也变了,我需要根据fa piao的金额反推商品的数量和单价,本来是金额/单价=数量的,可是数量总应该是整数吧.但是取整后就无法和金额相同了.比如说一瓶饮料进价3.5售价5元我订购了15瓶X3.5元进价=应该是52.5元金额的fa piao,可是当时没有开fa piao,现在饮料涨价了一瓶4.5元进价售价5.5,按52.5元的金额/4.5元进价=11.66666...瓶,显然行不通.按11瓶算的话金额成了49.5元.fa piao的总金额不能差异到0.09元,如果按7.5元一瓶的话7瓶刚好52.5元金额,但进价都高于售价了.我的逻辑是根据显有总金额和商品的进价和售价推算出整数的数量和不大于售价的进价并且进价的小数位在四位以内金额差异在0.09以内.fa piao有很多张.

这个表格不会删除
重做

现有金额	已知进价	已知售价	未知数量	未知进价	金额差异
52.5	3.5	5	动态	动态	<0.09
52.5	4.5	6

我这样表述可以吗?是不是用枚举代码解决啊?

参考代码

 

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

如下

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:fa piao计算.table

谢谢大红袍大师.这么晚了还耐心帮助,祝你晚安.