Vous voyez « 20M » car la date est traitée comme un nombre et affichée ainsi, car elle comporte trop de chiffres.

Vous pouvez la décomposer en jours, mois et années comme ceci :

myDate = OpenDate
IF (myDate = 20260109) AND (myDate <> myDate[1]) THEN
   OdW     = OpenDayOfWeek
   myDay   = OpenDay
   myMonth = OpenMonth
   myYY    = OpenYear
   myCent  = floor(OpenYear / 100,0)
   myYear  = (OpenYear MOD 100)
   IF OdW = 0 THEN
      DrawText("#myDate# = Sun #myDay#.#myMonth#.#myCent##myYear#",BarIndex,high+range*2,dialog,bold,15) coloured("Blue",255)
   ELSIF OdW = 1 THEN
      DrawText("#myDate# = Mon #myDay#.#myMonth#.#myCent##myYear#",BarIndex,high+range*2,dialog,bold,15) coloured("Blue",255)
   ELSIF OdW = 2 THEN
      DrawText("#myDate# = Tue #myDay#.#myMonth#.#myCent##myYear#",BarIndex,high+range*2,dialog,bold,15) coloured("Blue",255)
   ELSIF OdW = 3 THEN
      DrawText("#myDate# = Wed #myDay#.#myMonth#.#myCent##myYear#",BarIndex,high+range*2,dialog,bold,15) coloured("Blue",255)
   ELSIF OdW = 4 THEN
      DrawText("#myDate# = Thu #myDay#.#myMonth#.#myCent##myYear#",BarIndex,high+range*2,dialog,bold,15) coloured("Blue",255)
   ELSIF OdW = 5 THEN
      DrawText("#myDate# = Fri #myDay#.#myMonth#.#myCent##myYear#",BarIndex,high+range*2,dialog,bold,15) coloured("Blue",255)
   ELSIF OdW = 6 THEN
      DrawText("#myDate# = Sat #myDay#.#myMonth#.#myCent##myYear#",BarIndex,high+range*2,dialog,bold,15) coloured("Blue",255)
   ELSE
      DrawText("#myDate# = ??? #myDay#.#myMonth#.#myCent##myYear#",BarIndex,high+range*2,dialog,bold,15) coloured("Blue",255)
   ENDIF
ENDIF
RETURN

Ainsi, 2026 s’affichera sous la forme « 20 26 ». Si vous préférez l’afficher sans espaces, mais avec le séparateur de milliers, vous devez modifier le DRAWTEXT en remplaçant .#myCent##myYear# dans :

.#myYY#