станд :: строка taToString (int64 источник)
{
номер станд :: строка;
станд :: строка splitnumber;
станд :: stringstream strstream;
strstream <<источник;
strstream>>номер;
INT ти = number.length () - 1;
BOOL tdone (ложь);
в то время как (ти>-1 || tdone == ложь)
{
если (== ти number.length () - 9)
{
splitnumber =","+ Splitnumber;
tdone = TRUE;
}
если (splitnumber.length () == 0)
{
splitnumber = число [Ti];
}
иначе если (ти>-1)
{
splitnumber = число [Ti] + splitnumber;
}
если (ти<= -1)
{
splitnumber ="0"+ Splitnumber;
}
ti--;
}

возвращать (splitnumber);
}