将传入的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