How to PRINT Calendar dates

• 01/11/2026 at 9:45 AM #255200
  umrk

  I would like to print a date variable, say “20260109”   as “Friday 9 Jan 2026”. I have not managed to get this ! (all I get is “20M”, poor round up of 20260109 !)

  Je souhaite afficher une date, par exemple « 20260109 », au format « vendredi 9 janvier 2026 ». Je n’y parviens pas ! (J’obtiens seulement « 20M », un arrondi incorrect de 20260109 !)

   

  

  umrk

  Participant

  Topics: 24

  Replies: 64

  Been thanked: 20 times
  01/11/2026 at 4:08 PM #255206
  umrk

  Bon ça va je me suis débrouillé (il suffit de lancer l’impression au moment où le BarIndex correspond à la date qu’on veut imprimer (le seul inconvénient est qu’il faut le faire à ce moment là, et pas à un autre !)

  

  umrk

  Participant

  Topics: 24

  Replies: 64

  Been thanked: 20 times
  01/11/2026 at 9:27 PM #255212
  robertogozzi

  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

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

  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#

  1

  .#myYY#

   

  1 user thanked author for this post.

  umrk

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 18063

  Been thanked: 4625 times
• Author
  Posts