如果值大于或小于零，则将值附加到结果

Question

如果值大于0，我需要为值添加10个零（00000000,00），如果小于零，则需要添加-0

Answer 1

总计＆lt; 0您需要在追加-0

之前删除该符号

IIf(Sum(profit) - Sum(loss) > 0,
    Sum(profit) - Sum(loss) & "0000000000,00",
    "-0" & abs(Sum(profit) - Sum(loss))) AS cost

如果结果为0，您可能还需要决定该怎么做，目前您将获得-00

Answer 2

我不知道你想要达到的目标，但它可能是以下内容？

Private Sub Command1_Click()
  Dim lngVal As Long
  lngVal = Val(Text1.Text)
  Print Format$(lngVal, "0000000000;-0000000000")
End Sub