Discussion :

[jfphan]

Bonjour,

J'ai écrit une fonction VBScript dans ma page ASP, et quand je l'appelle j'ai ce type de message d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Microsoft VBScript runtime error '800a000d' 
 
Type mismatch: 'Virgule'

Voici la fonction que j'ai écrite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
function Virgule(chaine,nbcar)
	ChaineConvert = cDbl(Chaine)
	PartieDroite = Right(ChaineConvert,nbcar)
	PartieGauche = Left(ChaineConvert,len(ChaineConvert)-nbcar)
	ChaineTransformee = PartieGauche & "." & PartieDroite
	return ChaineTransformee
 
end function

et voila comment je l'appelle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
titi = Virgule("0001234578912",3)
Response.Write titi

Et la franchement je cale un peu.
Merci

[Erwy]

et avec sub a la place de function?

[jfphan]

non ca fait pareil

[Erwy]

tjrs sub mais sans parenthese pour l'appel?

[jfphan]

Merci Erwy, mais comme un con je n'avais pas placer la déclaration de ma fonction au bon endroit