- ' -----------------------------------------------------------------------------------
- Function PremiereLettreMaj(texte)
- ' Permet de donner le texte avec la premiere lettre en majuscule
- PremiereLettreMaj = UCase(Left(texte,1))& mid(texte,2,len(texte)-1)
- End Function
-
- '-------------------------------------------------------------------------------------
- On appelle donc cette fonction simplement en faisant par exemple :
-
- Response.Write (PremiereLettreMaj("janvier"))
' -----------------------------------------------------------------------------------
Function PremiereLettreMaj(texte)
' Permet de donner le texte avec la premiere lettre en majuscule
PremiereLettreMaj = UCase(Left(texte,1))& mid(texte,2,len(texte)-1)
End Function
'-------------------------------------------------------------------------------------
On appelle donc cette fonction simplement en faisant par exemple :
Response.Write (PremiereLettreMaj("janvier"))