Vb6 Visual Basic 6.0中的小数

我需要将45.556显示为45.55我需要在true dbgrid pro 7.0中使用的格式。

很抱歉不熟悉dbgird pro 7.0。如果您不希望像示例中所示的那样计算6，取整45.556是45.56，您可以使用format命令，该命令将数字的格式设置为小数点后两位，并相应地取整

format(*value*, "0.00")

使用0.00将数字格式化为零所在位置的默认值。 使用。将数字的格式设置为默认为无空格

如果您不想对数字进行四舍五入，只想得到数字加上正确的两位小数

Left(cStr(value), instr(cStr(value), ".") + 2))

从左边检索您的数字加上小数点后的2，截断其余部分。您可能不需要cStr，因为VB可能会先显式转换它。

---

如果您在网格中看到此问题，使用cStr可能会在减号产生的数字之前创建一个空格，格式不会这样做。

很抱歉不熟悉dbgird pro 7.0。如果您不希望像示例中所示的那样计算6，取整45.556是45.56，您可以使用format命令，该命令将数字的格式设置为小数点后两位，并相应地取整

format(*value*, "0.00")

使用0.00将数字格式化为零所在位置的默认值。 使用。将数字的格式设置为默认为无空格

如果您不想对数字进行四舍五入，只想得到数字加上正确的两位小数

Left(cStr(value), instr(cStr(value), ".") + 2))

从左边检索您的数字加上小数点后的2，截断其余部分。您可能不需要cStr，因为VB可能会先显式转换它。

---

如果您在网格中看到此问题，使用cStr可能会在减号产生的数字之前创建一个空格，格式不会这样做。

若要通过网格属性处理此问题，请将列的NumberFormat=Fixed，除非它是货币值，否则应使用货币。

若要通过网格属性处理此问题，设置列的NumberFormat=Fixed，除非它是一个货币值，否则您应该使用货币。

可以选择使用货币，而不会导致在使用a而不是a的欧洲国家发生字符串操作。小数点后。。。但是，如果floatval和decimalPlaces的任何组合>9，则将出现溢出问题

Public Function Floor(ByVal floatval As Double, optional decimalPlaces as Long = 0) As Long
    Dim intval As Long
    intval = Round(floatval)
    If intval > floatval Then 
         intval = intval - 1
    End If

    if decimalPlaces > 0 then
        floatval = float / (10 ^ decimalPlaces)
    end if

    Floor = intval
End Function

---

在使用a而不是a的欧洲国家，可以选择不导致字符串操纵，从而导致爆炸。小数点后。。。但是，如果floatval和decimalPlaces的任何组合>9，则将出现溢出问题

Public Function Floor(ByVal floatval As Double, optional decimalPlaces as Long = 0) As Long
    Dim intval As Long
    intval = Round(floatval)
    If intval > floatval Then 
         intval = intval - 1
    End If

    if decimalPlaces > 0 then
        floatval = float / (10 ^ decimalPlaces)
    end if

    Floor = intval
End Function

---

实际上，你可以用两种不同的方法来做，结果也不同。我们将取点符号后的前两位数字。要获得结果，请执行以下操作： 45.556中的45.55

Dim a As Double  'This must be DOUBLE not long
a = 45.556

MsgBox Left(a, InStr(a, ".") + 2) 'Result: 45.55

编程上是100%正确的，但逻辑上上述结果是错误的45.556应该是45.56，因为我们要去除的最后一个数字大于10中的5，即6，因此我们必须将1添加到之前的数字，即5，即6，才能得到结果：45.56。是数学，不是我。 另一种方法将为我们提供正确的结果和所需的数字长度：

Dim a As Double 'This must be DOUBLE not long
a = 45.556

MsgBox Format(a, "#.##") 'Result: 45.56

---

以前。用一个就够了，但以后用。我们添加需要显示的位数。

事实上，您可以用两种不同的方法进行添加，得到不同的结果。我们将取点符号后的前两位数字。要获得结果，请执行以下操作： 45.556中的45.55

Dim a As Double  'This must be DOUBLE not long
a = 45.556

MsgBox Left(a, InStr(a, ".") + 2) 'Result: 45.55

编程上是100%正确的，但逻辑上上述结果是错误的45.556应该是45.56，因为我们要去除的最后一个数字大于10中的5，即6，因此我们必须将1添加到之前的数字，即5，即6，才能得到结果：45.56。是数学，不是我。 另一种方法将为我们提供正确的结果和所需的数字长度：

Dim a As Double 'This must be DOUBLE not long
a = 45.556

MsgBox Format(a, "#.##") 'Result: 45.56

以前。用一个就够了，但以后用。我们添加需要显示的位数。

您可以使用：

fix(45.556*100)/100

45.55您可以使用：

fix(45.556*100)/100

---

45.55

您的取整算法是什么？总是四舍五入吗？总是接近零？在小数点后2位截断？是否删除“最后一个”有效数字？始终显示值45.55-有关灵感，请参阅：如何实现自定义舍入过程更正：格式舍入远离零，而不是银行家！你的取整算法是什么？总是四舍五入吗？总是接近零？在小数点后2位截断？是否删除“最后一个”有效数字？始终显示值45.55-有关灵感，请参阅：如何实现自定义舍入过程更正：格式舍入远离零，而不是银行家！小注释：使用0。如果不想显示尾随的零。0之前。是必需的，因为如果你有数字0.010，你将得到，01。改变。到0。将修复此小注释：使用0。如果不想显示尾随的零。0之前。是必需的，因为如果你有数字0.010，你将得到，01。改变。到0。我会解决这个问题的