Visual Basic.NET - Secuencia a fechas

 
Vista:
Imágen de perfil de Jaime
Val: 73
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Secuencia a fechas

Publicado por Jaime (33 intervenciones) el 03/07/2019 16:49:21
Buen día a todos, alguien sabe cómo dar la secuencia a las fechas? sé que se puede usar el DateAdd(DateInterval.Day, 1, fecha1)) pero no me funciona ya que al momento de crear nuevas actividades vuelven a comenzar con la fecha1.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim fecha1 As Date = CType(TextBox1.Text, Date)
 
Dim numRows As Integer
If Integer.TryParse(TextBox4.Text, numRows) Then
    If (numRows >= 1) Then
        For i As Integer = 1 To numRows
            Table.Rows.Add("Manufacturing", "Channel", "Cut plate C" & i, DateAdd(DateInterval.Day, 1, fecha1), DateAdd(DateInterval.Day, 2, fecha1))
            Table.Rows.Add("Manufacturing", "Channel", "Rolled plate C" & i, DateAdd(DateInterval.Day, 3, fecha1), DateAdd(DateInterval.Day, 4, fecha1))
            Table.Rows.Add("Manufacturing", "Channel", "Longituidal welding C" & i, DateAdd(DateInterval.Day, 5, fecha1), DateAdd(DateInterval.Day, 6, fecha1))
            Table.Rows.Add("Manufacturing", "Channel", "Re rolled C" & i, DateAdd(DateInterval.Day, 7, fecha1), DateAdd(DateInterval.Day, 8, fecha1))
        Next
    Else
        MessageBox.Show("Value: " & TextBox4.Text, "El número de filas debe ser mayor o igual a 1")
    End If
Else
    MessageBox.Show("Value: " & TextBox4.Text, "Número invalido")
End If

Si utilizo este método las nuevas actividades iteradas comienzan con la misma fecha de las actividades anterior.
Es decir

1
2
3
4
5
6
7
8
Manufacturing	Channel	Cut plate C1	04/07/2019	05/07/2019
Manufacturing	Channel	Rolled plate C1	06/07/2019	07/07/2019
Manufacturing	Channel	Longituidal welding C1	08/07/2019	09/07/2019
Manufacturing	Channel	Re rolled C1	10/07/2019	11/07/2019
Manufacturing	Channel	Cut plate C2	04/07/2019	05/07/2019
Manufacturing	Channel	Rolled plate C2	06/07/2019	07/07/2019
Manufacturing	Channel	Longituidal welding C2	08/07/2019	09/07/2019
Manufacturing	Channel	Re rolled C2	10/07/2019	11/07/2019

y lo que busco es la continuidad de las fechas para C2.

Saludos
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
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Secuencia a fechas

Publicado por Phil Rob (1546 intervenciones) el 03/07/2019 21:56:25
Hola,

Es bastante que reinicias la fecha ente cado cicle, con la fecha que te gusta.

Para ejemplo :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim fecha1 As Date = CType(TextBox1.Text, Date)
' ... ... ...
 
For i As Integer = 1 To numRows
 
    Table.Rows.Add("Manufacturing", "Channel", "Cut plate C" & i, DateAdd(DateInterval.Day, 1, fecha1), DateAdd(DateInterval.Day, 2, fecha1))
 
    Table.Rows.Add("Manufacturing", "Channel", "Rolled plate C" & i, DateAdd(DateInterval.Day, 3, fecha1), DateAdd(DateInterval.Day, 4, fecha1))
 
    Table.Rows.Add("Manufacturing", "Channel", "Longituidal welding C" & i, DateAdd(DateInterval.Day, 5, fecha1), DateAdd(DateInterval.Day, 6, fecha1))
 
    Table.Rows.Add("Manufacturing", "Channel", "Re rolled C" & i, DateAdd(DateInterval.Day, 7, fecha1), DateAdd(DateInterval.Day, 8, fecha1))
 
 
    fecha1 = DateAdd(DateInterval.Day, 8, fecha1)  ' o   DateAdd(DateInterval.Day, 9, fecha1)
 
Next
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
Imágen de perfil de Jaime
Val: 41
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Secuencia a fechas

Publicado por Jaime (19 intervenciones) el 03/07/2019 22:01:07
Gracias Phil Rob, agradezco tu respuesta y apoyo!!
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
Imágen de perfil de Diego
Val: 605
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Secuencia a fechas

Publicado por Diego (190 intervenciones) el 04/07/2019 03:34:05
Hola Jaime. A modo de mejorar el codigo. Usa un datetimepicker en lugar de un textbox para procesar la fecha y realizar operaciones. Es mas seguro.

Saludos y +bytes
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