Visual Basic.NET - Calculo de proxima fecha

   
Vista:

Calculo de proxima fecha

Publicado por Gabriel Lopez (1 intervención) el 26/07/2011 18:50:46
Hola a todos, mi pregunta es como calcular una fecha proxima dentro de vb.net, ejemplo si capturo una fecha de pedido: 20/07/2011 yo le doy un parametro fijo de 7 dias habiles (excluir sabados y domingos) para la fecha de entrega, es decir la fecha de entrega tendria que ser el 29/07/2011

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Calculo de proxima fecha

Publicado por Joan B. Fabregas (129 intervenciones) el 27/07/2011 11:53:48
Hola,

Se podria hacer de esta forma:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Function CalculaFechaEntrega(FechaPedido As Date, DiasParaEntrega As Integer) As Date
 
        Dim fechaEntregaPrevista As Date
        Dim diasEntrega As Integer = DiasParaEntrega
 
        fechaEntregaPrevista = FechaPedido
        Do
            fechaEntregaPrevista = fechaEntregaPrevista.AddDays(1)
            If fechaEntregaPrevista.DayOfWeek = DayOfWeek.Saturday Or fechaEntregaPrevista.DayOfWeek = DayOfWeek.Sunday Then
                'es dia festivo, no hacemos nada
            ElseIf EsFestivo(fechaEntregaPrevista) Then
                'es dia festivo, no hacemos nada
            Else
                diasEntrega = diasEntrega - 1
            End If
 
        Loop While diasEntrega > 0
 
        Return fechaEntregaPrevista
 
    End Function
 
    Private Function EsFestivo(FechaAComprovar As Date) As Boolean
 
        If FechaAComprovar.Day = 1 And FechaAComprovar.Month = 1 Then
            'comprueba el 1 de enero
            Return True
        ElseIf FechaAComprovar.Day = 25 And FechaAComprovar.Month = 12 Then
            'comprueba navidad
            Return True
 
            'añadir otras fechas
 
        Else
            Return False
        End If
 
    End Function


Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar