Преобразование время работы в число

[Alecsandrovih]

Помогите пожалуйста!время работы при условии например:"8\13 14\17", "8\0"...в одной ячейки,отображалось :8, 16 ...в другой.

В приложение (жёлтым) условие ввода, (зелёный) результат
Заранее спасибо!

[SaLoKiN]

то ли пример некорректный, то ли я не проснулся о_О
цифры ваще не связные какие то....

[DiemonStar]

Сообщение от SaLoKiN

то ли пример некорректный, то ли я не проснулся о_О
цифры ваще не связные какие то....

вполне себе связанные, например

"8\13 14\17" указывает на периоды работы: с 8 до 13 и с 14 до 17 и нужно посчитать количество часов между ними.

В принципе, можно заменить бэкслеши на пробелы и получить набор из 2 или 4 цифр, но мне влом делать парсер одной формулой. Громоздко и неудобно получается.

Еще можно заменить бэкслеши на минусы, пробел на плюс и через Evaluate вычислить значение строки. Например так:

-Evaluate([Substitute(Substitute(A1, "\", "-"), " ", "+")])

[Serge_Bliznykov]

Сообщение от DiemonStar

вполне себе связанные, например

"8\13 14\17" указывает на периоды работы: с 8 до 13 и с 14 до 17 и нужно посчитать количество часов между ними.

ой..
а это "8\0" - какой период работы? с 8-00 до полуночи ?

[SaLoKiN]

ой..
а это "8\0" - какой период работы? с 8-00 до полуночи ?

по аналогии 24-8 =16. что и выделено зеленьким =)

вполне себе связанные, например

8\13 14\17 ну это же всем понятно,кроме меня!

Дурацкий парсер на ПСЕВДОкоде, без макросов(хочется позадуряться):

Если ДлинаСтроки <6 тогда
	Если ПоискСимвола "\" = 3 тогда  // получили число слева
		Сдвиг на 2 в лево
	Иначе
		Сдвиг на 1 в лево
	Если ДлинаСтроки - ПоискСимвола "\" = 2 
		Сдвиг на 2 вправо
	Иначе 	
		Сдвиг на 1 вправо
Иначе....

Пояснения:

• ДлинаСтроки это ДЛСТР в Ексель
• ДлинаСтроки варьируется от 3 до 11 символов.
• вариант <6 рассматривает тот случай когда значение имеет один значек "\". пример: 0\0 0\00 00\00
• ПоискСимвола это функция ПОИСК() в Ексель
• Сдвиг влево,вправо это ПРАВСИМВ() и ЛЕВСИМ() соответсвенно в Ексель
• зная чему равны сдвиги можно найти значение как ПРАВСИМ()-ЛЕВСИМ()

UPD

=ЕСЛИ(ДЛСТР(BA5)<6;ЕСЛИ(ПОИСК("\";BA5)=3;ЕСЛИ(ДЛСТР(BA5)-ПОИСК("\";BA5)=2;ПРАВСИМВ(BA5;2)-ЛЕВСИМВ(BA5;2);ПРАВСИМВ(BA5;1)-ЛЕВСИМВ(BA5;2));ЕСЛИ(ДЛСТР(BA5)-ПОИСК("\";BA5)=2;ПРАВСИМВ(BA5;2)-ЛЕВСИМВ(BA5;1);ПРАВСИМВ(BA5;1)-ЛЕВСИМВ(BA5;1))))

это только для строки меньше 6 символов. вставлять в E5
для строки в 12 символов еще нужна фукнция НАЙТИ дял нахождения второго вхождения "\"

[DiemonStar]

если хочется с парсером позадуряться, то проще сделать так:

1. заменить "\" на " "
2. разделить строку на элементы массива (split)
3. произвести сложение четно-нечетных элементов с соответствующими знаками

например можно так:

S$ = [Substitute(A1, "\", " ")]
A = Split(S, " ")
Res = 0
For I = 1 to UBound(A)
  Res = Res + IIF(I Mod 2 = 0, 1, -1)*(If A(I) = "0", 24, CInt(A(I)))
Next I

[SaLoKiN]

макросами однозначно проще)
но функциями во как весело =)
а если запарится и вкурить для двух промежутков типа 8\13 14\17 то тут мамамия из IFов творится будет такая x____x

[Serge_Bliznykov]

Сообщение от SaLoKiN

по аналогии 24-8 =16. что и выделено зеленьким =)

SaLoKiN, DiemonStar, спасибо за объяснения.
я удовлетворил своё любопытство (и, заодно, расширил кругозор)!

Сообщение от SaLoKiN

8\13 14\17 ну это же всем понятно,кроме меня!

Вы не одиноки, мне тоже было не понятно, пока DiemonStar не объяснил.

[DiemonStar]

Сообщение от Serge_Bliznykov

Вы не одиноки, мне тоже было не понятно, пока DiemonStar не объяснил.

Я бы тоже не сообразил, если бы у кадровиков бумажный вариант не встречал...

[Alecsandrovih]

спасибо всем за понимание! и за помощь!
звените за не ясности я только начинаю разбирать в Excel
подсказки отличные к сожалению не понял что делать с:

S$ = [Substitute(A1, "\", " ")]
A = Split(S, " ")
Res = 0
For I = 1 to UBound(A)
Res = Res + IIF(I Mod 2 = 0, 1, -1)*(If A(I) = "0", 24, CInt(A(I)))
Next I