question sur date$

Oui. Si la date s'affiche chez toi comme "5/1/2016", c'est que tu es en représentation américaine (mois, jour, année). Chez moi, date$ s'affiche comme "01/05/2016".

Or, la ligne

Code:

m%=val(mid$(date$,4,2))

prend 2 caractères à partir du 4ème, pour en déduire le mois. Dans ta représentation, ce serait "/2", ce qui est évidemment non numérique. Chez moi, la formule utilise correctement "05".

Conseil:
Change tes préférences système pour avoir une représentation de la date e, format jj/mm/aaaa. Tu éviteras une multitude de problèmes, dès que la gestion de la date est concernée en Panoramic. Ne serait-ce que le tri par date...

Effectivement, je n' avais pas pensé à cela.
Il faudrait que je trouve une formule pour ce cas...

Tu auras beau faire, Ygeronimi, mais tu ne pourras jamais différencier me 5/1/2016 du 1/5/2016. Où est le mois, où est je jour ?

Non. Il faut avoir une représentation normalisée des dates. Nous sommes en France, tout est en Français, il faut donc que la date soit en format français. C'est aussi simple que ça.

Pour changer le format local de la date, il faut aller dans les paramètres du système. Je suis sous W10, et je fais de la manière suivante:
1. par l'icône de la barre des tâches tout à fait à gauche, j'ouvre le menu de démarrage et je choisis "Paramètres". J'obtiens:

2. Je choisis "Heure et langue", et j'obtiens, en faisant défiler un peu la partie droite:

3. dans la partie "Formats", je clique sur "Modifier...", et j'obtiens:

4. là, je choisis les paramètres indiqués dans l'image. Ce qui importe ici, c'est le "format court".
5. je valide les informations

Et voilà...

Important :
Pour éviter 29 not correct arithmetic expression:error in fonction line …

Il faut d’abord tester si la variable contient une valeur numérique

Code:

dim v1$, v2$
v1$ = "X123"
v2$ = "123"
if numeric(v1$) = 0
   print "V1$ ne contient pas une valeur numérique"
else
   print "V1$ contient la valeur : "   + str$(val(v1$))
end_if

if numeric(v2$) = 0
   print "V2$ ne contient pas une valeur numérique"
else
   print "V2$ contient la valeur : "   + str$(val(v2$))
end_if

Pour l'exemple que tu as donné

Code:

dim jj$,mm$,aaaa$
print "Nous sommes le : " + date$ : ' <--- 01/05/2016
jj$ = left$(date$,2)
mm$ = mid$(date$,4,2)
aaaa$ = right$(date$,4)
 print "jj = " + jj$     : ' <--- 01
 print "mm = " + mm$     : ' <--- 05
 print "aaaa = " + aaaa$ : ' <--- 2016

@ Rmont,

Essais ceci :

Code:

CountryFormatDate()
message country$+" : "+day$
end

sub CountryFormatDate()
   if variable("day$")=0 then dim day$
   dim_local sep$,sep%,d$,country$
   sep%=instr(date$,"/") : d$=right$(date$,len(date$)-sep%)
   sep$=sep$+str$(sep%)
   sep%=instr(date$,"/")
   sep$=sep$+str$(sep%)  : sep%=val(sep$)
   if sep%=33
      country$="fr"
      day$=date$
   else
      country$="us"
      day$="0"+mid$(date$,3,1)+"/0"+mid$(date$,1,1)+"/"+right$(date$,4)
   end_if
end_sub