删除小数和前导零

时间:2016-02-08 21:05:58

标签: vbscript

下面是一些填充名为Lot的字段的vbscript。在我运行此时,Lot字段显示ManualLot字段为123456.000000

是否有人知道如何更改以下代码以使123456.0000000000123456?因此,它会删除.000000,而是以0000开头。

Function ManualLot_OnAfterChange()
  If Backflushing.CodeObject.Quantity < 0 Then
    Backflushing.CodeObject.Lot = Backflushing.CodeObject.ManualLot
  Else
    If Backflushing.CodeObject.Quantity > 0 Then
      Backflushing.CodeObject.Lot = 0
    End If
  End If
End Function

2 个答案:

答案 0 :(得分:1)

您可以使用Split()获取小数点左侧的值,然后使用Left()在其前面粘贴一些零。

'how long the number should be
testLength=10

'The number we are changing
test="12345.00000"

'split(test, ".")(0) will get us the values to the left of the decimal
test=LEFT("000000000000",  testLength-len(split(test, ".")(0))) & split(test, ".")(0)

msgbox(test)

答案 1 :(得分:-2)

request.getLocale()

为我修好了。感谢JNevil让我走上正轨的帮助。