怎么截取字符

如何截取字符
在excel中的单元格中（如第２行第２列）数值为0.5，请问如何读取0和５分别放在第3行第２列和第4行第２列

[解决办法]
第3行第２列

 =INT(A1)

第4行第２列

=MID(A1-INT(A1),3,100000)
[解决办法]

VB code

    Dim a As String '要拆分的字符串    a = "0.5"    Dim bArray() As String'存放拆分开字符串数组    bArray = Split(a, ".")'进行拆分
[解决办法]
VB code
Sub t()Dim a As String '要拆分的字符串    a = "1.0"    Dim bArray() As String '存放拆分开字符串数组    bArray = Split(a, ".", -1) '进行拆分    Debug.Print bArray(0)    Debug.Print bArray(1)End Sub