El principio es relativamente simple, es decir, usar la función de fecha para obtener la fecha y luego reemplazarla con una matriz de cadenas fija.
Copie el código de la siguiente manera:td=date()
'Esta vez configuramos la fecha actual, principalmente para facilitar la depuración. En aplicaciones reales, puede usar la fecha del día actual...
str=123456
' Genera una cadena con un día específico. de la semana, simplemente tómalo según la posición...
for x=1 to 7
'Este bucle es principalmente para determinar qué día es el lunes más cercano...
si td-weekday(td)+1+x=td entonces
'Este juicio es para hacer que la fecha actual aparezca en rojo, no tiene ningún valor especial...
respuesta.escribir <font color=red>week&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+ x, 1)&</font><br>
else
respuesta.escribir semana&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+x,1)&<br>
end if
next