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

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 Propertyla fecha de vencimiento de contrato es
.FechaContrato = "09/07/2012"
"SI LOGRAS CONCENTRARTE EL MUNDO DEJARA DE EXISTIR"
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 -
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 TrueElse
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 -
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 ClassY 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"