module1.bas

高校科研管理信息系统包括科研项目管理、科研成果管理、学术论著管理、机构人员管理、文件资料管理等等

Attribute VB_Name = "Module1"
Public CN As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strLook As String ''查看的表名
Public UserName As String '用户名称
Public CurrentIndex As Integer ''当前的index
Public strTableName As String ''数据表名
Public Ok As Boolean



''''改变日期格式 yyyy-MM-dd
Public Function DateChange(strDate As String) As String
On Error GoTo Err
Dim Mon As Integer
DateChange = Year(strDate)
Mon = Month(strDate)
If Mon < 10 Then
    DateChange = DateChange & "-0" & CStr(Mon)
Else
    DateChange = DateChange & "-" & CStr(Mon)
End If
Mon = Day(strDate)
If Mon < 10 Then
    DateChange = DateChange & "-0" & CStr(Mon)
Else
    DateChange = DateChange & "-" & CStr(Mon)
End If
Exit Function
Err:
DateChange = ""
End Function