Преобразование числа в пикетажное значение трассы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование числа в пикетажное значение трассы (Макросы/Sub)

al_geor

Дата: Среда, 19.03.2014, 07:42 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Не получается написать функцию приведения чисел к следующему виду, например:
Число Пикетажное значение

0,00 ПК0+00,00
1,11 ПК0+01,11
99,99 ПК0+99,99
100,11 ПК1+00,11
1000,11 ПК10+00,11
11111,11 ПК111+11,11
Если число 0, то ПК0+00,00, а от 0,01 до 99,99 и т.д. ПК№(№-целый пикет)+остаток от деления. Т.е. все числа делятся на 100 и приводятся к виду показанному выше. И если возможно чтобы формат в ячейке оставался числовым( "ПК" “+” , как-то так чтобы можно было выполнять арифметические действия с этими ячейками)

[vba]

Код

Function Piket(Cifra As Double) As Double
If Cifra = 0 Then
Cifra = "ПК0+00,00"
End If
If Cifra > 0 Then
Cifra = “ПК+” Cifra/100(Т.е. сцепить “ПК” “+” )
End If
End Function

[/vba]