Parámetros: ¿Lo crees? ¡Este módulo se puede escribir docenas de veces más rápido que cualquier otro método! Los parámetros son los siguientes:
1: ¿Qué día es el día base?
2: (Opcional) ¿Qué día de la semana estás buscando? Si no se especifica, el valor predeterminado es el sábado.
3: (Opcional) ¿Deberías buscar hacia adelante (pasado) o hacia atrás (futuro)?
Si no se especifica, el valor predeterminado es buscar en el futuro (futuro)
código de programa
PublicFunctionSpecificWeekday(ByValDAsDate,OptionalByValWhatDayAsVbDayOfWeek=vbSaturday,OptionalGetNextAsBoolean=True)AsDate
Día de la semana específico=(((D-Qué día GetNext)/7)-GetNext)*7 Qué día
Función final
¿Quizás quieras saber por qué el programa está escrito así?
¿Sabías? En VB, el día base (día 0) de todas las funciones de fecha es el 30 de diciembre de 1899 (sábado), y el primer día es el 31 de diciembre de 1899 (domingo), por lo que el algoritmo de la función WeekDay de VB es en realidad (Fecha-1) Mod7 1.
valor de retorno
fecha
Ejemplo:
¿Me gustaría saber cuáles de los siguientes días son?
Lunes pasado: día de la semana específico (ahora, vblunes, falso)
Próximo sábado: día de la semana específico (ahora)
Próximo viernes 9 de septiembre de 2000: Día de la semana específico("09/09/2000",vbFriday)->