网友问题：
表中数据有几万条，编号字段数据不规则，问怎么样才能提取年月的数据？
如：有的显示的是CVTMT2010030005，有的则是CVIM2010030006,就是英文字母不是统一位数日期数字也不统一,但是只需要取数字的前六位即可，前六位就是年月，如下图，请问怎么实现？
解决方法：（用自定义函数方式）
|
'使用方法:GetNumberPart([字段名称])
Function GetNumberPart(Expression As Variant) As Variant
Dim lngI As Long
GetNumberPart = Null
For lngI = 1 To Len(Nz(Expression))
If IsNumeric(Mid(Expression, lngI, 1)) Then
GetNumberPart = Mid(Expression, lngI, 6)
Exit For
End If
Next
End Function
|
打开示例里面的查询可以看到效果!
附 件：
点击下载此附件
