Incrémentation composé chiffre et lettre automatique [Résolu]
coeurblanc1351 -
22 juin 2013 à 01:18 - Dernière réponse : coeurblanc1351
- 22 juin 2013 à 21:52
- Incrémentation composé chiffre et lettre automatique
- Transformer un chiffre en lettre ex: 110 => cent dix » Codes sources - Visual Basic / VB.NET (Texte)
- Chiffre en lettre fonction » Codes sources - Visual Basic / VB.NET (API)
- Convertisseur de chiffre en lettre » Codes sources - Visual Basic / VB.NET (Multimedia)
- Conversion d'un chiffre en lettre » Codes sources - Visual Basic / VB.NET (Modules)
- Logiciel de facturation (repris de ce site) amelioré avec un convertisseur chiffre en lettre + n° d » Codes sources - Visual Basic / VB.NET (Base de Donnees)
8 réponses
Meilleure réponse
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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 104 internautes ce mois-ci
Meilleure réponse
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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 104 internautes ce mois-ci
Meilleure réponse
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 !
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 104 internautes ce mois-ci
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
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.