(E- E+ e- e+) 科学格式。如果格式表达式在 E-、E+、e- 或 e+ 的右方含有至少一个数字占位符(0 或 #),那么数值将表示成科学格式,而 E 或 e 会被安置在数字和指数之间。E 或 e 右方数字占位符的个数取决于指数位数。使用 E- 或 e- 时,会用减号来表示负的乘幂。使用 E+ 或 e+ 时,会用减号来表示负的乘幂并用加号来表示正的乘幂。
新建一个新的工程(不是文件,是工程)
把你代码复制进去,运行就好了
我是一楼那个,我百度Hi在线,可以找我
我认为你是工程没有建立好的问题
如果是cost的问题,报错不应该是这个
问题已经找到,在这里写下方便其他人:
在fotmat函数前加上库名,也就是变成
vbaformat
Hex()函数的运算结果是字符串,不是数字!所以Format()函数只能按字符方式而不是数字方式进行格式化!在VB中,1A 2A 3A 它是不会自动认为这是16进制数的,只有&H1A &H2A &H3A 才是!
正确的方法是:
Right("0" & Hex(Int(Text1Text)), 2)
Dim
MyTime,
MyDate,
MyStr
MyTime
=
#17:04:23#
MyDate
=
#January
27,
1993#
'
以系统设置的长时间格式返回当前系统时间。
MyStr
=
Format(Time,
"Long
Time")
'
以系统设置的长日期格式返回当前系统日期。
MyStr
=
Format(Date,
"Long
Date")
MyStr
=
Format(MyTime,
"h:m:s")
'
返回
"17:4:23"。
MyStr
=
Format(MyTime,
"hh:mm:ss
AMPM")
'
返回
"05:04:23
PM"。
MyStr
=
Format(MyDate,
"dddd,
mmm
d
yyyy")
'
返回
"Wednesday,
Jan
27
1993"。
'
如果没有指定格式,则返回字符串。
MyStr
=
Format(23)
'
返回
"23"。
'
用户自定义的格式。
MyStr
=
Format(54594,
"##,##0。00")
'
返回
"5,45940"。
MyStr
=
Format(334。9,
"###0。00")
'
返回
"33490"。
MyStr
=
Format(5,
"0。00%")
'
返回
"50000%"。
MyStr
=
Format("HELLO",
"<")
'
返回
"hello"。
MyStr
=
Format("This
is
it",
">")
'
返回
"THIS
IS
IT"。
果在格式化数字时没有指定 format,Format 会提供与 Str 函数类似的功能
' 如果没有指定格式,则返回字符串。
MyStr = Format(23) ' 返回 "23"。
' 用户自定义的格式。
MyStr = Format(54594, "##,##0。00") ' 返回 "5,45940"。
MyStr = Format(334。9, "###0。00") ' 返回 "33490"。
MyStr = Format(5, "0。00%") ' 返回 "50000%"。
MyStr = Format("HELLO", "<") ' 返回 "hello"。
MyStr = Format("This is it", ">") ' 返回 "THIS IS IT
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)