问如何用函数替换字符

Henry D. Sy

1. Public Function ChangeSbl(ByVal mData As String, Optional ByVal Sbl As String = "'") As Double
   
2.     Dim Str As String
   
3.     Str = Left(mData, InStr(mData, Sbl) - 1) & "." & Mid(mData, InStr(mData, Sbl) + 1, 1) & 0
   
4.     ChangeSbl = CDbl(Str)
   
5. End Function
   

复制代码

想要小数点两位数,可以在格式里设定

Henry D. Sy

SELECT 表1.时间, Changesbl([时间]) AS 结果 FROM 表1;