Autre date

Invité

Salut à tous !

Aujourd'hui j'ai essayer de réaliser une autre sorte de date que 2010-01-23 (23 janvier 2010).

J'ai réussi à faire de cette façon :
23 janvier 2010

Code:: dim a$,b$,c$
alpha 1
left 1,10
top 1,10
caption 1,date$
b$=left$(caption$(1),4)
a$=right$(caption$(1),2)
if left$(caption$(1),7)=b$+"-"+"01" then c$="janvier"
if left$(caption$(1),7)=b$+"-"+"02" then c$="février"
if left$(caption$(1),7)=b$+"-"+"03" then c$="mars"
if left$(caption$(1),7)=b$+"-"+"04" then c$="avril"
if left$(caption$(1),7)=b$+"-"+"05" then c$="mai"
if left$(caption$(1),7)=b$+"-"+"06" then c$="juin"
if left$(caption$(1),7)=b$+"-"+"07" then c$="juillet"
if left$(caption$(1),7)=b$+"-"+"08" then c$="août"
if left$(caption$(1),7)=b$+"-"+"09" then c$="septembre"
if left$(caption$(1),7)=b$+"-"+"10" then c$="octobre"
if left$(caption$(1),7)=b$+"-"+"11" then c$="novembre"
if left$(caption$(1),7)=b$+"-"+"12" then c$="décembre"
caption 1,a$+" "+c$+" "+b$

Invité

Ça marche aussi avec l'heure :

Code:: dim rg$
alpha 1
left 1,10
top 1,10
caption 1,time$
rg$=right$(caption$(1),2)
if rg$="0" or rg$="1" or rg$="2"
caption 1,left$(caption$(1),5)+" "+rg$+" seconde"
else
caption 1,left$(caption$(1),5)+" "+rg$+" secondes"
end_if

Invité

Avec un peu plus de choix je me ramasse avec 12 choix pour inséré dans Mini-Word ; 8 choix de date et 4 choix de temps

Je vous donne le bout de code :

Code:: dim rg$,p$,o$,q$
width 0,308:height 0,286:caption 0,"Insertion - Date et Heure"
list 14:width 14,300:height 14,250
item_add 14,""+date$
p$=left$(item_read$(14,1),4)
o$=right$(item_read$(14,1),2)
item_add 14,mid$(p$,3,2)+"-"+mid$(left$(item_read$(14,1),7),6,2)+"-"+right$(item_read$(14,1),2)
item_add 14,right$(item_read$(14,1),2)+"-"+mid$(left$(item_read$(14,1),7),6,2)+"-"+mid$(p$,3,2)
item_add 14,mid$(p$,3,2)+" "+mid$(left$(item_read$(14,1),7),6,2)+" "+right$(item_read$(14,1),2)
item_add 14,mid$(p$,3,2)+"/"+mid$(left$(item_read$(14,1),7),6,2)+"/"+right$(item_read$(14,1),2)
item_add 14,right$(item_read$(14,1),2)+" "+mid$(left$(item_read$(14,1),7),6,2)+" "+mid$(p$,3,2)
if left$(item_read$(14,1),7)=p$+"-"+"01" then q$="janvier"
if left$(item_read$(14,1),7)=p$+"-"+"02" then q$="février"
if left$(item_read$(14,1),7)=p$+"-"+"03" then q$="mars"
if left$(item_read$(14,1),7)=p$+"-"+"04" then q$="avril"
if left$(item_read$(14,1),7)=p$+"-"+"05" then q$="mai"
if left$(item_read$(14,1),7)=p$+"-"+"06" then q$="juin"
if left$(item_read$(14,1),7)=p$+"-"+"07" then q$="juillet"
if left$(item_read$(14,1),7)=p$+"-"+"08" then q$="août"
if left$(item_read$(14,1),7)=p$+"-"+"09" then q$="septembre"
if left$(item_read$(14,1),7)=p$+"-"+"10" then q$="octobre"
if left$(item_read$(14,1),7)=p$+"-"+"11" then q$="novembre"
if left$(item_read$(14,1),7)=p$+"-"+"12" then q$="décembre"
item_add 14,o$+" "+q$+" "+p$
if left$(item_read$(14,1),7)=p$+"-"+"01" then q$="janv."
if left$(item_read$(14,1),7)=p$+"-"+"02" then q$="févr."
if left$(item_read$(14,1),7)=p$+"-"+"03" then q$="mars"
if left$(item_read$(14,1),7)=p$+"-"+"04" then q$="avr."
if left$(item_read$(14,1),7)=p$+"-"+"05" then q$="mai"
if left$(item_read$(14,1),7)=p$+"-"+"06" then q$="juin"
if left$(item_read$(14,1),7)=p$+"-"+"07" then q$="juil."
if left$(item_read$(14,1),7)=p$+"-"+"08" then q$="août"
if left$(item_read$(14,1),7)=p$+"-"+"09" then q$="sept."
if left$(item_read$(14,1),7)=p$+"-"+"10" then q$="oct."
if left$(item_read$(14,1),7)=p$+"-"+"11" then q$="nov."
if left$(item_read$(14,1),7)=p$+"-"+"12" then q$="déc."
item_add 14,o$+" "+q$+" "+p$
' Temps -----------------------------------
item_add 14,time$
rg$=right$(item_read$(14,2),2)
if rg$="0" or rg$="1" or rg$="2"
item_add 14,left$(item_read$(14,2),5)+" "+rg$+" seconde"
else
item_add 14,left$(item_read$(14,2),5)+" "+rg$+" secondes"
end_if
item_add 14,left$(item_read$(14,2),2)+" h "+mid$(item_read$(14,2),7,2)
item_add 14,left$(item_read$(14,2),2)+":"+mid$(item_read$(14,2),7,2)

» Combo date : sélecteur de date
» Date <-> Date julienne
» Date$
» Date de pérenption
» SPIN et DATE