Разбиение числа пробелами на разряды - VB
Формулировка задачи:
Маленький вопросик, не мог найти примера но где-то давно попадалось уже..
как разбить число к примеру: 123456789 на 123 456 789 ? ну или 123:456:789
определенно через каждые три цифры..
Решение задачи: «Разбиение числа пробелами на разряды»
textual
Листинг программы
Function F(Num, Optional Delim = " ") As String
F = IIf(Num < 0, "-", "") & Replace$(Trim$(Format$(Abs(Num), Left("### ### ### ### ### ### ### ### ### ###", Len(Abs(Num)) + (Len(Abs(Num)) - 1) \ 3))), " ", Delim)
End Function