04/01/2007, 06:10
| ||||
| ||||
| [SOLUCIONADO] Calcular el Día de la semana siguiente Hola forer@s, debido a la carga de trabajo que tengo, a ver si me ayudais resolver un pequeño problema: Resulta que intento averiguar el día de la semana siguiente, por ejemplo: Si la fecha de hoy y quiero saber, por ejemplo, el día del martes de la semana que viene, ¿Cómo sería eso? Gracias de antemano Última edición por Korku; 04/01/2007 a las 10:23 |
|
04/01/2007, 10:22
| ||||
| ||||
| Re: Calcular el Día de la semana siguiente Bueno ya encontré la solución  Saludos |
|
05/01/2007, 19:51
| |||
| |||
| Re: Calcular el Día de la semana siguiente Cita: En vez de haber dicho eso podrías haber puesto la solución, creo que eso aporta más que decir que has solucionado tu problema, no crees???
Iniciado por Korku  Bueno ya encontré la solución Saludos |
|
06/01/2007, 08:40
| ||||
| ||||
| Re: [SOLUCIONADO] Calcular el Día de la semana siguiente Buenas, Veamos la solución es la siguiente: En este caso funciona con VB.NET (en VB6 ni idea, no lo he probado), este código sirve cuando se realiza un pedido, hay una fecha de entrega por defecto para que cada cliente tiene un día de la semana concreto de entrega, por ejemplo el cliente A recibe los pedidos el lunes de la semana L, el cliente B los martes M, etc... ¿Pillais la idea, no? Bien el código es el siguiente:
Código:
Luego en un formulario Public Function DiaSemana(ByVal strDia As String) As Integer
Select Case Weekday(Now)
Case 0
'domingo
Select Case UCase(strDia)
Case "L"
'Lunes
DiaSemana = 1
Case "M"
'Martes
DiaSemana = 2
Case "X"
'Miércoles
DiaSemana = 3
Case "J"
'Jueves
DiaSemana = 4
Case "V"
'Viernes
DiaSemana = 5
Case "S"
'Sábado
DiaSemana = 6
Case "D"
'Domingo
DiaSemana = 7
End Select
Case 1
'lunes
Select Case UCase(strDia)
Case "L"
'Lunes
DiaSemana = 7
Case "M"
'Martes
DiaSemana = 1
Case "X"
'Miércoles
DiaSemana = 2
Case "J"
'Jueves
DiaSemana = 3
Case "V"
'Viernes
DiaSemana = 4
Case "S"
'Sábado
DiaSemana = 5
Case "D"
'Domingo
DiaSemana = 6
End Select
Case 2
'martes
Select Case UCase(strDia)
Case "L"
'Lunes
DiaSemana = 6
Case "M"
'Martes
DiaSemana = 7
Case "X"
'Miércoles
DiaSemana = 1
Case "J"
'Jueves
DiaSemana = 2
Case "V"
'Viernes
DiaSemana = 3
Case "S"
'Sábado
DiaSemana = 4
Case "D"
'Domingo
DiaSemana = 5
End Select
Case 3
'miércoles
Select Case UCase(strDia)
Case "L"
'Lunes
DiaSemana = 5
Case "M"
'Martes
DiaSemana = 6
Case "X"
'Miércoles
DiaSemana = 7
Case "J"
'Jueves
DiaSemana = 1
Case "V"
'Viernes
DiaSemana = 2
Case "S"
'Sábado
DiaSemana = 3
Case "D"
'Domingo
DiaSemana = 4
End Select
Case 4
'jueves
Select Case UCase(strDia)
Case "L"
'Lunes
DiaSemana = 4
Case "M"
'Martes
DiaSemana = 5
Case "X"
'Miércoles
DiaSemana = 6
Case "J"
'Jueves
DiaSemana = 7
Case "V"
'Viernes
DiaSemana = 1
Case "S"
'Sábado
DiaSemana = 2
Case "D"
'Domingo
DiaSemana = 3
End Select
Case 5
'viernes
Select Case UCase(strDia)
Case "L"
'Lunes
DiaSemana = 3
Case "M"
'Martes
DiaSemana = 4
Case "X"
'Miércoles
DiaSemana = 5
Case "J"
'Jueves
DiaSemana = 6
Case "V"
'Viernes
DiaSemana = 7
Case "S"
'Sábado
DiaSemana = 1
Case "D"
'Domingo
DiaSemana = 2
End Select
Case 6
'sábado
Select Case UCase(strDia)
Case "L"
'Lunes
DiaSemana = 2
Case "M"
'Martes
DiaSemana = 3
Case "X"
'Miércoles
DiaSemana = 4
Case "J"
'Jueves
DiaSemana = 5
Case "V"
'Viernes
DiaSemana = 6
Case "S"
'Sábado
DiaSemana = 7
Case "D"
'Domingo
DiaSemana = 1
End Select
End Select
End Function
Código:
Me.dtpPicker.Value = DateAdd("d", DiaSemana(strDiaEntrega), Now())
|
|
06/01/2007, 12:13
| |||
| |||
| Re: [SOLUCIONADO] Calcular el Día de la semana siguiente Perfecto pues, esa es la idea, gracias por aportar la solución a tú problema, lo más probable es que a más de alguna persona le sea util. Salu2 |
|
06/01/2007, 20:29
| ||||
| ||||
| Re: [SOLUCIONADO] Calcular el Día de la semana siguiente De nada, hombre |
