问如何用函数替换字符

lingjiang

想把3’50”替换成3.50，如何用函数并保有后面的0
另外，如果直接换处成秒如何做
谢谢了

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;

wuwu200222

学习