删除小数和前导零

Question

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

是否有人知道如何更改以下代码以使123456.000000仅0000123456？因此，它会删除.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

Answer 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)

Answer 2

request.getLocale()

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