none
AVISOVENCIMIENTO que se activa cuando la fecha de contracto se acerca a los 30 días de vencimiento. RRS feed

  • Pregunta

  •  

    Private _FechaContrato As Date

      Public Property FechaContrato() As Date
            Get
                Return _FechaContrato
            End Get
            Set(ByVal value As Date)
                _FechaContrato = value
                If _FechaContrato.Day = 'no se como condicionarloThen
                    'se dispara el evento
                    RaiseEvent AvisoVencimiento()
                End If
            End Set
        End Property

    la fecha de vencimiento  de contrato es 

    .FechaContrato = "09/07/2012"


    "SI LOGRAS CONCENTRARTE EL MUNDO DEJARA DE EXISTIR"

    miércoles, 11 de julio de 2012 17:49

Todas las respuestas

  • Para que te funcione bien debera almacenar el valor de vencimiento en algun repositorio ya sea en el archivo Settings.settings o en una base de datos y luego extrae este valor para compararlo a la fecha actual.

    Dim k As New DateTime(9\9\2012)
    ' esta es la fecha futura, la fecha en que debe vencerse el contrato
    		
    If k <= DateTime.Now Then
    ' vigente
    Else
    ' caducado
    End If
    



    Angel R. Jimenez G.
    Software Development
    Santo Domingo
    Republica Dominicana
    Blog

    miércoles, 11 de julio de 2012 18:34
  • pero fechacontrato es un string con uan fecha, eso no esta nada bien

    ademas si estas asignando la fecha de contrato como sabes cual es la de vencimiento ? porque todo depende cuando

    quizas en la clase deberias poner un metodo que sea

     Public Function EstaVencido() As Boolean

             if DateTime.Now > _FechaContrato.Day  Then
                    Return True

           Else

                 Return False

           End If

    End If

    pero no hacer eso en el set

    lo que veo es que no defines una fecha de vencimiento, o sea esa fechacontrato tendria que ser a los 30 dias del dia que se asignas asi cuando se cumple la fecha se puede decir que esta vencida

    sino lo haces asi como podrias saber cuando se vence, piensa en el vencimiento de los medicamentos, la fecha que te dan es a futuro, los dias van pasando cuando se llega a esa fecha que dice el embase se vencio, en tu caso es lo mismo

    pero no puedes hacerlo en el set

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    miércoles, 11 de julio de 2012 20:05

  • Public Class Director
        Inherits Persona
        Public Event AvisoVencimiento()
        Private _FechaContrato As Date
        Public Property FechaContrato() As Date
            Get
                Return _FechaContrato
            End Get
            Set(ByVal value As Date)
                _FechaContrato = value
                If _FechaContrato >= DateTime.Now Then
                    'se dispara el evento
                    RaiseEvent AvisoVencimiento()
                End If
            End Set
        End Property
    End Class

    Y al momento de llamar a la clase se dispara el RaiseEvent 

    pero lo necesito ahi donde esta...  en el set...

    nota: solo es un ejercicio para que funcione el RaiseEvent y tomo la fechaContrato... solo

    necesito la comparacion que se ejecute el evento cuando falten los 30 dias o 29 o 28 asi sucesivamente


    "SI LOGRAS CONCENTRARTE EL MUNDO DEJARA DE EXISTIR"

    miércoles, 11 de julio de 2012 20:51