Calculo de Fecha?????

[axy108]

Hola tengo un problema espero alguien me ayude a encontrar como solucionarlo:

Lo que pasa es que estoy haciendo un sistemita donde un empleado puede solicitar un anticipo de sueldo, hasta ahi todo va bien pero ahora me encuentro con que le tengo que decir al empleado el dia en que le van a pagar el anticipo, y la politica para pagar el anticipo es que si lo solicita de lunes a jueves se le paga el lunes de la siguiente semana pero si lo llega a solicitar un viernes se le pagaria dos lunes posteriores, y no se como calcular esa fecha .

Alguien me puede ayudar?????????

SALUDOS Y GRACIAS

[axy108]

ok solo regreso para informarles que he solucionado mi problema, tal ves de una manera muy arcacica pero bueno lo solucione, aqui les dejo como:

Bueno pues primero lo que hago es obtener el dia de la semana en que se esta haciendo la solicitud del anticipo, una vez que ya tengo esto mediante el metodo addDays de un objeto date segun sea el caso agrego la cantidad de dias necesarios, por ejemplo si el anticipo se esta solicitando un lunes, el dia de la semana es 1 (ya que domingo es 0), y por consiguiente para obtener la fecha del siguiente lunes debo de agregarle 7 dias, y asi dependiendo del dia que soliciten.

Aqui les pongo el codigo de esa parte.

Código:

...
                Dim fecha As Date
                Dim dia As DayOfWeek
                Dim diaPaga As Date
                fecha = Now()
                dia = fecha.DayOfWeek
                Select Case dia
                    Case DayOfWeek.Monday
                        diaPaga = fecha.AddDays(7)
                    Case DayOfWeek.Tuesday
                        diaPaga = fecha.AddDays(6)
                    Case DayOfWeek.Wednesday
                        diaPaga = fecha.AddDays(5)
                    Case DayOfWeek.Thursday
                        diaPaga = fecha.AddDays(4)
                    Case Else
                        diaPaga = fecha.AddDays(10)
...

SALUDOS Y GRACIAS de todas maneras.