将传入的DateTimePicker对象转成"####-##-##"格式的日期字串

     ' 函数名  :GetDTPDataValue  
     ' 函数功能:将传入的DateTimePicker对象转成"####-##-##"格式的日期字串
     ' 传入参数:需要转换的DateTimePicker对象
     ' 返回值  :"####-##-##"字串
     ' 制作人  :zzz
     ' 制作日期:2007-04-10
     ' 说  明  :
     Public   Function GetDTPDataValue() Function GetDTPDataValue(ByVal DtpObj As DateTimePicker)
        Dim sdata As String
        sdata = DtpObj.Value.Year
        If DtpObj.Value.Month < 10 Then
            sdata = sdata & "-0" & DtpObj.Value.Month
        Else
            sdata = sdata & "0" & DtpObj.Value.Month
        End If

        If DtpObj.Value.Day < 10 Then
            sdata = sdata & "-0" & DtpObj.Value.Day
        Else
            sdata = sdata & "-" & DtpObj.Value.Day
        End If
        GetDTPDataValue = sdata
    End Function