~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : DecToBase ' Conversion d'un décimal dans la base passée en argument Dim lgLen As Long Dim stLeft As String lgLen = Len(stBase) If (lgConvert >= lgLen) Then stLeft = DecToBase(Int(lgConvert / lgLen), stBase) End If DecToBase = stLeft & Mid$(stBase, (lgConvert Mod lgLen) + 1, 1) End Function |