Icône de la ressource
Voici un mini calendrier, sans API ni module de classe.
Il est le plus simple possible, un code clair et facile à comprendre.
Il est différent de ce qui existe avec les mêmes fonctionnalités.
Sur une date nous avons le N° Semaine et inversement.

L’adresse active peut être changée, idem pour le numéro de semaine zone bleu.

2 résultats possibles :

Format1 à 08/04/2022 (Const Format1 = "dd/mm/yyyy" )
Format2 à 15 février 2022 ( Const Format2 = "dd mmmm yyyy" )
Ou en abrégé (Const Format2 = "dd mmm yyyy" ) modifié

Pour mémoire en VBA :

N° Semaine à Format(Date, "ww", vbMonday, vbFirstFourDays)
Date en fonction du n° semaine à
Alpha = (7 * N°semaine) + DateSerial(année, 1, 3) - Weekday(DateSerial(année, 1, 3)) - 5

Nota : Si la textbox année à plus de 4 caractères ou inférieur à 4 la situation est rétablie. (Focus)
Nota-2 : Et cerise sur le gâteau le calendrier fonctionne pour les années 1800.

Jean-Paul

Voici l'aperçu :

Calendrier_Mini1.JPG

Dernières mises à jour

  1. Calendrier_Mini_7

    Modification en vue de la portabilité. Version complète avec exemple d’utilisation. Sur...
  2. Calendrier_Mini_6

    Nouvelle version 6. Avec quatre manières d’afficher la date, Plus éphéméride des Saints...
  3. Calendrier Mini, version 4

    Il y avait un bug sur le 29 février (bissextile). J'ai dans la foulé procédé à un réarrangement...