Incrémentation composé chiffre et lettre automatique [Résolu]
coeurblanc1351 - - Dernière réponse : coeurblanc1351 - 22 juin 2013 à 21:52
A voir également:
- Pascal increment
- Visual Basic / VB.NET : Transformer un chiffre en lettre ex: 110 => cent dix - CodeS SourceS - Guide
- Recuper toutes les infos sur les dates et heures, en chiffres ou lettres, separement. - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Visual Basic / VB.NET : Chiffre en lettre fonction - CodeS SourceS - Guide
- Chiffres en lettres - Codes sources - Visual Basic / VB.NET (Divers)
- C / C++ / C++.NET : Conversion des chiffres en lettres - CodeS SourceS - Guide
8 réponses
Meilleure réponse
- Messages postés
- 273
- Date d'inscription
- samedi 13 juin 2009
- Dernière intervention
- 18 avril 2015
Bonjour tous,
Oui Dubois, çà fait peu de codes, mais qui sait, il n'a peut-être que très peu de cotations dans l'année. Cà devrait marcher ainsi:
Voilà, c'était le petit code du café du matin.
Bon week-end à tous.
solilog
Oui Dubois, çà fait peu de codes, mais qui sait, il n'a peut-être que très peu de cotations dans l'année. Cà devrait marcher ainsi:
function incremCode(Old_Code:shortstring) : shortstring;
var new_yy : string[2];
old_a : char;
begin
new_yy := formatdatetime('yy', date);
old_a := Old_Code[3];
if new_yy <> copy( Old_Code, 1, 2) then
result := new_yy+'A'
else
result := new_yy + chr(byte(old_a) +1);
end;
Voilà, c'était le petit code du café du matin.
Bon week-end à tous.
solilog
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 106 internautes ce mois-ci
- Messages postés
- 273
- Date d'inscription
- samedi 13 juin 2009
- Dernière intervention
- 18 avril 2015
coeurblanc1351
Et pis quoi encore, tu veux aussi qu'on te fasse tout ton programme ?
Faut bosser mon gars. Bon, supposons que ta table s'appelle tbCota, dans la proc OnClick ton bouton:
Maintenant tu dois apprendre à bosser seul, moi je m'arrête là.
Bon courage.
solilog
Et pis quoi encore, tu veux aussi qu'on te fasse tout ton programme ?
Faut bosser mon gars. Bon, supposons que ta table s'appelle tbCota, dans la proc OnClick ton bouton:
var New_Code = shortstring;
begin
tbCota.last; // aller au dernier enregistrement
New_Code := InCremCode( tbCota.fieldbyname('NumCota').asstring); // calcul de nouveau code
tbCota.append; // nouvel enregistrement
tbCota.fieldbyname('NumCota').asstring := New_Code; // on y colle le code calculé
end;
Maintenant tu dois apprendre à bosser seul, moi je m'arrête là.
Bon courage.
solilog
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 106 internautes ce mois-ci
Les 2 codes sont corrects et fonctionnent puisque si la condition :
est remplie, "else" signifie forcément que :
donc on peut écrire (c'est mieux puisque new_yy est déjà calculé) :
ou alors (c'est moins bien puisqu'il faut recalculer le premier terme de l'addition) :
Conclusion : il vaut mieux coder à l'heure du p'tit déj qu'à celle du goûter !
new_yy <> Copy(Old_Code, 1, 2)
est remplie, "else" signifie forcément que :
new_yy = Copy(Old_Code, 1, 2)
donc on peut écrire (c'est mieux puisque new_yy est déjà calculé) :
Result := new_yy + Chr(Byte(old_a) + 1);
ou alors (c'est moins bien puisqu'il faut recalculer le premier terme de l'addition) :
Result := Copy(Old_Code, 1, 2) + Chr(Byte(old_a) + 1);
Conclusion : il vaut mieux coder à l'heure du p'tit déj qu'à celle du goûter !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 106 internautes ce mois-ci
- Messages postés
- 692
- Date d'inscription
- jeudi 17 avril 2008
- Dernière intervention
- 14 septembre 2018
Salut
Donc ça ne laisse que 26 lignes par an (14A à 14Z)
cela me parait peu pour une compta non !
Dubois77
site perso
Donc ça ne laisse que 26 lignes par an (14A à 14Z)
cela me parait peu pour une compta non !
Dubois77
site perso
- Messages postés
- 102
- Date d'inscription
- mardi 13 novembre 2007
- Dernière intervention
- 19 août 2018
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.