dotNETportal.cz

Prosím vs měl bych dotaz. Vytvořil jsem si třídu v projektu do této třídy jsem vložil funkci.

    Public Function DT_SQL_CONVERT(ByVal DT_CONVER As Date) As String
        Dim m_date As String = ""
        Dim d_month As Integer = Month(DT_CONVER)
        Dim d_day As Integer = Microsoft.VisualBasic.DateAndTime.Day(DT_CONVER)

        If d_month < 10 Then
            m_date = "{TS'" & Year(DT_CONVER) & "-0" & d_month & "-" & d_day & " 00:00:00'}"
        ElseIf d_day < 10 Then
            m_date = "{TS'" & Year(DT_CONVER) & "-" & d_month & "-0" & d_day & " 00:00:00'}"
        Else
            m_date = "{TS'" & Year(DT_CONVER) & "-" & d_month & "-" & d_day & " 00:00:00'}"
        End If
        Return m_date
    End Function

Pokud si zavolám tuto funkci z metody projektu způsobem :

Dim odatasqlcon As New DATA_SQL_CONVERSION 'Třída
Dim pokus As String = ""
pokus = odatasqlcon.DT_SQL_CONVERT(n_cvalue)

Zadrhne se mi to na return

Conversion from string "{TS'2008-01-14 00:00:00'}" to type 'Integer' is not valid

Vubec nevim kde mam hledat chybu.