// On met un mot sans majuscule sur la 1ère lettre
$prenom = 'codyx';
echo ucfirst($prenom);
// Affichera donc : Codyx

 Public Function ProperCase(chaine As String) As String
        ProperCase = StrConv(chaine, vbProperCase)
 End Function

DECLARE @Variable AS VARCHAR(50)

SET @Variable = 'codyx'

SELECT
   UPPER(LEFT(@Variable, 1)) + LOWER(SUBSTRING(@Variable, 2, LEN(@Variable)-1))
AS PremiereLettreMajuscule;

// Retourne le string entré en paramètre avec
// une majuscule comme première lettre
private string FirstLetterUpper(string str) 
{
   char[] letters = str.ToCharArray(); 
   letters[0] = char.ToUpper(letters[0]);

   return new string(letters); 
}

Autre solution :
// Retourne le string entré en paramètre avec
// une majuscule comme première lettre
private string FirstLetterUpper(string str) 
{
   return System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(str); 
}

Public Function ModifMot(ByVal LeMot As String) As String
    Dim final As String = UCase(Left(LeMot, 1)) & Mid(LCase(LeMot), 2, Len(LeMot) - 1) 
    Return final 
End Function

chaine=this.charAt(0).toUpperCase();

<cfscript>
    // 1ère lettre en Majuscule
    function capCase(word)
    { return left(uCase(word),1) & right(lCase(word),len(word)-1);
    }
</cfscript>
<cfoutput>#capCase("string")#</cfoutput>

// 2 méthodes :
 
 // fonction retournant le string modifié
 function fUpCaseFirst(const S: string): string;
 begin
   Result := S;
   if Result = '' then Exit;
   Result := AnsiUpperCase(Result[1]) + Copy(Result, 2, Length(Result) - 1);
 end;
 
 // procedure modifiant la variable string passée en paramètre
 procedure pUpCaseFirst(var S: string);
 begin
   if S = '' then Exit;
   S := AnsiUpperCase(S[1]) + Copy(S, 2, Length(S) - 1);
 end;
 

function AnsiFirstUpCase(const S: string): string;
var
  Len: Integer;
begin
  Len := Length(S);
  SetString(Result, PChar(S), Len);
  if Len > 1 then CharLowerBuff(Pointer(Result), Len);
  if Len > 0 then CharUpperBuff(Pointer(Result), 1);
end;

// On met un mot sans majuscule sur la 1ère lettre
// On passe d'abord en minuscule au cas ou le texte contiendrait des majuscules
$prenom = 'coDYx';
echo ucfirst(strtolower($prenom));
// Affichera donc : Codyx

import string
c = lambda w: string.capitalize(w)

ucfirst "foo" # retourne "Foo"

set s "arte"
set a [string toupper $s 0]

* 1er mot d'une chaine Texte : [ProperCase]
 (Ex : PCase("uN cHassEuR saCHant chASSER")   ->   "Un chasseur sachant chasser")
-----------------------------------------------------------------------------------------------

Function PCase(strInput)
         PCase = UCase(Left(strInput, 1)) & LCase(Right(strInput, Len(strInput) - 1))
 End Function

-----------------------------------------------------------------------------------------------


* Tous les mots d'une chaine texte : [Multi-ProperCase]
(Ex : MPCase("uN cHassEuR saCHant chASSER")   ->   "Un Chasseur Sachant Chasser")
-----------------------------------------------------------------------------------------------

Function MPCase(strInput)
        colInput = Split(strInput, " ")
        For i = 0 to Ubound(colInput)
            colInput(i) = UCase(Left(colInput(i), 1)) & LCase(_
                        Right(colInput(i), Len(colInput(i)) - 1))
        Next
        MPCase = Join(colInput, " ")
End Function

---------------------------------------------------------------------------------------------