Office中国论坛/Access中国论坛

标题: 问如何用函数替换字符 [打印本页]

作者: lingjiang 时间: 2020-4-12 14:54
标题: 问如何用函数替换字符
想把3’50”替换成3.50，如何用函数并保有后面的0
另外，如果直接换处成秒如何做
谢谢了

作者: Henry D. Sy 时间: 2020-4-12 19:29

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

复制代码

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

作者: Henry D. Sy 时间: 2020-4-12 19:30
SELECT 表1.时间, Changesbl([时间]) AS 结果 FROM 表1;

作者: wuwu200222 时间: 2020-4-26 15:26
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)