如何将 VisualBasic 6.0 中显示的值 0.00 替换为'-'连字符

Question

如何将Visualbasic 6.0中显示的值0.00替换为'-'连字符例如，我在下面有一行代码显示出来，但有些记录是0.00，我想将它们显示为空白或带有'-'

 .PDFTextOut FormatNumber(IIf(IsNull(adRst![Outstanding Portofolio]), Empty, adRst![Outstanding Portofolio]), 2, True, True, True), 180, Str(xCtR)

Answer 1

Format$()函数接受由";"字符分隔的由3部分组成的格式化字符串。例子:

Dim Expression As Single
Dim Formatted As String
Expression = 0
Formatted = Format$(Expression, "0.00;-0.00;-")
MsgBox Formatted

Answer 2

可以使用VB6的Replace函数

Replace$(expression, find, replacewith[, start[, count[, compare]]])

参见Visual Basic 6 String Functions

试试这样:

sNewStr=REPLACE(sOldStr, "0.00", "-")

其中sOldStr是带有0.00的字符串，sNewStr是输出