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 28 29 30 31 32
| AnsiString date1;
int uj1, dj1, tj1, um1, dm1, tm1, ua1, da1, ca1, ma1, ta1 ; //j=jour, m=mois, a=année, u=unité, d=dizaine,c=centaine,m=millier, 1 pour date1 et 2 pour date2
char ju1, jd1, mu1, md1, au1, ad1, ac1, am1; //j=jour, m=mois, a=année, u=unité, d=dizaine,c=centaine,m=millier, 1 pour date1
date1 = DateTimePicker1->Date;
jd1 = date1[1]; // recupère 1er caractère de date1 ex: si date1 = "25/09/2015" alors jd1=2
ju1 = date1[1,2]; // recupère 2ème caractère de date1 ex: si date1 = "25/09/2015" alors ju1=5
md1 = date1[1,4]; // recupère 4ème caractère de date1 ex: si date1 = "25/09/2015" alors md1=0
mu1 = date1[1,5]; // recupère 2ème caractère de date1 ex: si date1 = "25/09/2015" alors mu1=9
am1 = date1[1,7]; // recupère 2ème caractère de date1 ex: si date1 = "25/09/2015" alors am1=2
ac1 = date1[1,8]; // recupère 2ème caractère de date1 ex: si date1 = "25/09/2015" alors ac1=0
ad1 = date1[1,9]; // recupère 2ème caractère de date1 ex: si date1 = "25/09/2015" alors ad1=1
au1 = date1[1,10]; // recupère 2ème caractère de date1 ex: si date1 = "25/09/2015" alors au1=5
uj1 = StrToInt(ju1);
dj1 = StrToInt(jd1);
um1 = StrToInt(mu1);
dm1 = StrToInt(md1);
ua1 = StrToInt(au1);
da1 = StrToInt(ad1);
ca1 = StrToInt(ac1);
ma1 = StrToInt(am1);
tj1= dj1*10 + uj1;
tm1= dm1*10 + um1;
ta1= ma1*1000 + ca1*100 + da1*10 + ua1 ;
Edit1->Text= IntToStr(tj1); //affiche la valeur jour dans le textedit1
Edit2->Text= IntToStr(tm1); //affiche la valeur mois dans le textedit1
Edit3->Text= IntToStr(ta1); //affiche la valeur année dans le textedit1 |
Partager