字符如何转换成数字

广州黑码软件 2004-10-27 09:55:15

字符如："2/1" 如何转换成 0.5

...全文

166 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxcc 2004-10-27

打赏
举报

Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long ' API

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Function result(ByVal x As String) As Single '计算表达式的结果
ExecuteLine "dim x as single"
ExecuteLine "x= " & x
ExecuteLine "clipboard.settext x" '发送到剪切板
result = Clipboard.GetText '从剪切板获取
Clipboard.Clear '清空剪切板
End Function

Private Sub Command1_Click()
MsgBox result("1/2")
End Sub

northwolves 2004-10-27

打赏
举报

Private Sub Command1_Click()
MsgBox stringtonum("1/2")
End Sub

Function stringtonum(ByVal x As String) As Double
Dim scr As Object
Set scr = CreateObject("MSScriptControl.ScriptControl")
scr.Language = "vbscript"
stringtonum = scr.Eval(x)
Set scr = Nothing
End Function

gb2000 2004-10-27