j'ai un probléme avec la cde left$(s,n)

Bonsoir.

Tu écris ceci:

dim dat : dat=050816
dim a$ : a$=str$(dat)

Str$() efface le '0' placé en tête du nombre.

Tu dois donc ajouter, après a$=str$(dat):

if len(a$)=5 then a$="0"+a$

bonjour a tous les 2 !

Ce n'est pas STR$() qui supprime le '0' !

Tu charge la date au début de ton programme dans une variable numérique 'dat'.
Et c'est cette variable qui ne garde pas le '0' !
Il suffit donc d'inscrire ta date dans une variable alphanumérique 'dat$'...

De plus tu peux alléger ton code de la manière suivante :

Code:

dim dat$ : dat$="050816"  :' 05 aout 16

MESSAGE dat$

dim b$ , c$ , d$

b$=left$(dat$,2)
c$=mid$(dat$,3,2)
d$=right$(dat$,2)

MESSAGE "jour : "+b$+CHR$(13)+"mois : "+c$+CHR$(13)+"année : "+d$ : ' pour verif

Si tu souhaite garder ton code tel quel alors tu dois ajouter une condition pour tester le nombre de caractères
dans ta chaîne. Pour moi c'est se compliquer la vie inutilement mais bon chacun ses goûts !

Code:

 dim dat : dat=050816  :' 05 aout 16
' dim dat : dat=150816  :' 15 aout 16


dim a$ : a$=str$(dat)

IF LEN(a$)=5 THEN a$="0"+a$

dim b$
dim c$
dim d$
dim dat$

b$=left$(a$,2)
c$=mid$(a$,3,2)
d$=right$(a$,2)

print b$      :' pour verif
print c$      :' pour verif
print d$      :' pour verif

dat$=b$+"/"+c$+"/"+d$  :' pour verif
print dat$

' grid 5
' grid_write 5,1,1,dat$  :' c'est là que je me suis aperçu du problème  avec un zéro en tête

J'en profite aussi pour rappeler les variables existantes dans Panoramic :

Il y a 3 types de variables:

Réel,
Entier (le nom est suivi par %),
String (le nom est suivi par $)

a% est un entier (a% = 14)
b$ est un string (b$ = "Salut")
d est réel (d=12.8953)

Bonne journée à tous !

essai ceci :

Code:

dim v
v = 012.23
print v

end

Tu verras que str$(v) n' y est pour rien dans la suppression du 0.

Une variable numérique de type entier ou réel supprime automatiquement tous les zéros non significatifs que ce soit au début ou à la fin après le point décimal.
Exemples :
v = 0123 donne 123
v = 000123,456000 donne 123.456