Formatnumber.ahk

FormatNumber(_number) {
   StringReplace _number, _number, -
   IfEqual ErrorLevel,0, SetEnv Sign,-
      Loop Parse, _number, .
      If (A_Index = 1)
      {
         len := StrLen(A_LoopField)
         Loop Parse, A_LoopField
         If (Mod(len-A_Index,3) = 0 and A_Index != len)
            x .= A_LoopField "."
         Else
            x .= A_LoopField
         }
      Else
         Return Sign x "." A_LoopField
   Return Sign x
}