Le principe est relativement simple, c'est-à-dire utiliser la fonction date pour obtenir la date, puis la remplacer par un tableau de chaînes fixe.
Copiez le code comme suit :td=date()
'Cette fois, nous définissons la date actuelle, principalement pour faciliter le débogage. Dans les applications réelles, vous pouvez utiliser la date du jour actuel.
str=123456
' Génère une chaîne avec un jour spécifique. de la semaine, prenez-le simplement en fonction de la position..
pour x=1 à 7
'Cette boucle sert principalement à déterminer quel jour est le lundi le plus proche...
si td-weekday(td)+1+x=td alors
'Ce jugement consiste à faire apparaître la date actuelle en rouge, il n'a aucune valeur particulière..
réponse.write <font color=red>week&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+ x, 1)&</font><br>
else
réponse.write week&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+x,1)&<br>
end if
next