module1.bas

土地管理系统 用acess+datareporter做的

Attribute VB_Name = "Module1"

'*****************************************************************
'******             scuimage                              ********
'******             data 2007.4.19                       ********
'******         [e-mail]                        ********
'*****************************************************************
Global combostr As String

Global cnn As ADODB.Connection
Global cmd As ADODB.Command
Global rs1 As ADODB.Recordset
Global rs2 As ADODB.Recordset
Global rs3 As ADODB.Recordset
Public Function DataToYMD(sr As String, yout As String, mout As String, dout As String)
        yout = Left(sr, 4)
     
        If Mid(sr, 8, 1) = "-" Then
           mout = Mid(sr, 6, 2)
        Else
           mout = Mid(sr, 6, 1)
        End If
        If Left(sr, 2) = "-" Then
           dout = Left(sr, 1)
        Else
           dout = Left(sr, 2)
        End If
End Function