Постоянство бета
0
Аула точки
1080
Постижения
30
Изгледани уроци
121
Харесани отговора
10
Общо отговора
6
Въпроса
0
Последвани
1
Интереси
Photoshop
Microsoft Excel
Lightroom
Тайните на Excel
MS Project
Потвърдени умения
от харесани отговори разделени по софтуер
8
Microsoft Excel
Записани курсове
Постижения
В АУЛА винаги се стремим да подобрим начина на обучение и поради това въведохме точкова система с постижения.
Принципът на работа е съвсем прост - за определено действие в АУЛА (като преминати уроци, преминат тест,
отговор на въпрос от друг колега) се получават точки и постижения. Така ще възнаграждаваме хората, които
регулярно гледат уроците и помагат на другите в сайта.
Записани три курса!
Споделящ знанията си
Страхотна екипна работа
Имейл новини. Ниво 2
Добра екипна работа
Благодарност
Научихте 100 урока!
Продължаваме напред
Научихте 80 урока!
Най-мощното оръжие
Записан втори курс!
Здрав напредък
Имейл новини. Ниво 1
Научихте 40 урока!
Който дава живот на ума и знанието, той не умира
Доказани знания
Научихте 20 урока!
Стабилен напредък
Напредък
Научихте десет урока!
Три влизания за една седмица
Който се учи, той ще сполучи
Научихте пет урока!
Първи стъпки
Напред, напред, напред
Добро начало
Последни форум дискусии
Здравейте,<br><br>Във връзка с горния коментар, намерих малко време и си направих един UDF за пресмятане на седмици и дни между две дати, и реших да го споделя с вас:<br><br>Public Function WD_DateDiff (Start_Date As Variant, End_Date As Variant, _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Optional Function_Type_1_or_2 As Integer = 1) As Variant<br><br><br>&nbsp;&nbsp;&nbsp; Dim FResult As Variant<br>&nbsp;&nbsp;&nbsp; Dim Week_Value As Integer<br>&nbsp;&nbsp;&nbsp; Dim Week_Value_trunc As Integer<br>&nbsp;&nbsp;&nbsp; Dim Day_Value As Integer<br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; Select Case Function_Type_1_or_2<br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GoTo Weeks_only<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 2<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GoTo Weeks_and_days<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GoTo Error_handler<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; End Select<br>&nbsp;&nbsp;&nbsp; <br>Exit Function<br>&nbsp;&nbsp;&nbsp; <br>'------------------------<br>Weeks_only:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FResult = (End_Date - Start_Date) / 7<br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WD_DateDiff = FResult<br>&nbsp;&nbsp;&nbsp; Exit Function<br>&nbsp;&nbsp;&nbsp; <br>'------------------------<br>Weeks_and_days:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Week_Value = (End_Date - Start_Date) / 7<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Week_Value_trunc = Int(Week_Value)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Day_Value = (Week_Value - Week_Value_trunc) * 7<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Day_Value = Int(Day_Value)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FResult = Week_Value_trunc &amp; " weeks and " &amp; Day_Value &amp; " days"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WD_DateDiff = FResult<br>&nbsp;&nbsp;&nbsp; Exit Function<br>&nbsp;&nbsp;&nbsp; <br>'------------------------<br>Error_handler:<br>&nbsp;&nbsp;&nbsp; FResult = "#N/A"<br>&nbsp;&nbsp;&nbsp; WD_DateDiff = FResult<br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; Exit Function<br><br><br>End Function<br><br>Всъщност, това е комбинация от две функции - при подаване на 1 като опционален аргумент изчислява само седмиците като десетична дроб, а при подаване на 2 като опционален аргумент изчислява едновременно седмици и дни и подава резултата във формат "13 weeks and 1 days".<br><br>Надявам се да го намерите за полезно.<br>Ще се радвам и ако някой от по-опитните колеги дадат своя коментар или предложение за корекция/подобрение. <br><br>Поздрави,<br>Миро<br><br>
Здравейте,<br><br>Ето и един вариант за смятане на седмици и дни, който използвах преди доста години. Мисля, че е най-компактен като дължина на формулите. Лесно може и да се конкатенират стойностите в една клетка, в моя файл са по отделно. <br><br>Сега, като гледам горния коментар, май е добре да си добавя още един полезен UDF към колекцията то<br><br>Поздрави,<br><br>
Здравейте,<br><br>За съжаление, не става много ясно каква точно е целта Ви, т.е. как си представяте да се получи формулата и при какви обстоятелства.<br>Бихте ли доразвили въпроса си с малко повече обяснения и детайли за да може някой да даде помощ? Благодаря.<br>Поздрави,<br>
Здравейте, дали има начин да ми изпратите файла на пощата за да се опитам да проследя проблема ?
Здравейте Ваня,<br><br>Не мога добре да проследя действията ви от картинките, но сигурна ли сте, че при второто действие на сортиране сте били маркирали цялата таблица? Една от най-вероятните причини за подобен резултат е, че се сортира само една от колоните в таблицата, което води до разместване на всички данни. Би трябвало да се маркира цялата таблица преди да се кликне върху Sort....<br>Поздрави,<br>