VBA学习---字符串型数值和数值型字符串相互转换

Sub StrTranfomationDemo()

   

    Dim myDouble As Double

    myDouble = 234.823

   

    Debug.Print "Str:<" & str(24.32) & ">"

    Debug.Print "Str:<" & str(-24.32) & ">"

    Debug.Print "CStr:<" & CStr(myDouble) & ">"

 

End Sub

 

Str:<  24.32>

Str:<-24.32>

CStr:<234.823>

 

Sub ShowFormatVal()

 

    Dim num As Double, str As String

   

    str = Format(Now, "Short Time")

    num = Val(str)

    ‘如果现在的时间是 4:31 PM,下面语句展示的结果为: 16:31 

    Debug.Print str, num

   

End Sub

   演示代码2：

　　Sub TransformStr2Int()
　　　　Dim num As Double, str As String, tmp As String

　　　　‘ A1单元格中的数据为 0.8051
　　　　str = ThisWorkbook.Worksheets("Sheet1").Range("A1")
　　　　MsgBox "str: " & str
　　　　tmp = Right(str, Len(str) - 1)
　　　　MsgBox "tmp: " & tmp
　　　　num = Val(tmp) + 1　　‘ 字符串转数字
　　　　MsgBox "num: " & num

　　　　MsgBox Hex(num) 　　‘ 十进制转换成十六进制数
　　End Sub