none
Como asignar valor por defecto a funcion cuando es de tipo Date RRS feed

  • Pregunta

  • Saludos amigos estoy modificando una clase que contiene parametros opcionales y uno de ellos es tipo Date, pero no encuestro como asignarle el valor por defecto, intenté con Date.Today , con Date.Now pero no me acepta el compilador
    Public Function MiFuncionmodificada(ByVal NumRegistro As String, Optional NoFicha As Integer = 0, Optional FechaDonacion As Date ) As DataTable
    
    
    instruccines
    parametros
    
    
    end function
    agradesco su aporte

    La programacion en Microsoft cada ves se torna inalcanzable

    lunes, 1 de agosto de 2016 21:26

Respuestas

  • Hola alfonso_tecnicopa,

    Puedes asignarle el valor Nothing a la fecha por defecto, y luego validar el parámetro.

    Prueba haciendo esto :

     Public Function MiFuncionmodificada(ByVal NumRegistro As String,
                                            Optional NoFicha As Integer = 0,
                                            Optional FechaDonacion As Date = Nothing) As DataTable
    
            If FechaDonacion = Nothing Then
                FechaDonacion = Now.Date
            End If
    
    
    
        End Function

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    lunes, 1 de agosto de 2016 21:32

Todas las respuestas

  • Hola alfonso_tecnicopa,

    Puedes asignarle el valor Nothing a la fecha por defecto, y luego validar el parámetro.

    Prueba haciendo esto :

     Public Function MiFuncionmodificada(ByVal NumRegistro As String,
                                            Optional NoFicha As Integer = 0,
                                            Optional FechaDonacion As Date = Nothing) As DataTable
    
            If FechaDonacion = Nothing Then
                FechaDonacion = Now.Date
            End If
    
    
    
        End Function

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    lunes, 1 de agosto de 2016 21:32
  • alfonso_tecnicopa,

    Puedes hacer lo siguiente:

    <...>, Optional FechaDonacion As Date = Nothing) As DataTable

    Y en la función puedes operar con el parámetro validando que no sea Nothing

    If FechaDonacion = Nothing Then 
            FechaDonacion= Date.Today
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    lunes, 1 de agosto de 2016 21:36
  • gracias amigos, aunque al depurarlo resulta que el compilador me pone un valor "12:00:00 AM" y éste me ocaciona una conversion erronea de formato con el tipo Date declarado en mi store sql

    "Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM."


    La programacion en Microsoft cada ves se torna inalcanzable



    lunes, 1 de agosto de 2016 21:45