Function queryIfDate_en() As Boolean
Dim seleText As String
Dim ifDate As Boolean
Dim currentYear As String
Dim likeStr As String
currentYear = Year(Now)
seleText = "April. 30, 2008"
likeStr = "*" + currentYear
If seleText Like likeStr = True Then
queryIfDate_en = True
Else
queryIfDate_en = False
End If
End Function
很简单的一个函数,但是为什总是返回false呢。请指教
Dim seleText As String
Dim ifDate As Boolean
Dim currentYear As String
Dim likeStr As String
currentYear = Year(Now)
seleText = "April. 30, 2008"
likeStr = "*" + currentYear
If seleText Like likeStr = True Then
queryIfDate_en = True
Else
queryIfDate_en = False
End If
End Function
很简单的一个函数,但是为什总是返回false呢。请指教
解决方案 »
- rs.CursorLocation=2
- 个人开发的一个行业软件(例如医药管理系统),如何向该行业推销?
- 在SQL中存储了用网页编辑器写的文本,里面的内容有一部分html代码,怎么把html代码去掉,还能保持原来的格式??
- 新手一个很弱智的问题
- 报表问题!!!想把两个字段的合打印出来如何实现!
- 请问如何控制FlexGrid中焦点的移动?
- 一晚坏了三个分区!!!!!!!!!!!(快要跳楼了)
- 请问在VB里怎么调用3DMAX做出来的3D呢?
- VB中怎樣進行字体轉換
- >>>>>>>>>如何用installshield6.1打包使用了ado的vb工程????!!!
- 周末散分 --- 1
- VB高手进:生成exe文件时出现:未找到方法或数据成员
看看你是不是调用时打漏了字符之类..