
Miroslav Markov
Потвърдени умения от харесани отговори разделени по софтуер
Постижения
-
Добро начало
-
Напред, напред, напред
-
Първи стъпки
-
Научихте пет урока!
-
Който се учи, той ще сполучи
-
Три влизания за една седмица
-
Научихте десет урока!
-
Напредък
-
Стабилен напредък
-
Научихте 20 урока!
-
Доказани знания
-
Който дава живот на ума и знанието, той не умира
-
Научихте 40 урока!
-
Имейл новини. Ниво 1
-
Здрав напредък
-
Записан втори курс!
-
Най-мощното оръжие
-
Научихте 80 урока!
-
Продължаваме напред
-
Научихте 100 урока!
-
Благодарност
-
Добра екипна работа
-
Имейл новини. Ниво 2
-
Страхотна екипна работа
-
Споделящ знанията си
-
Записани три курса!
Последни отговори
-
Здравейте,
Във връзка с горния коментар, намерих малко време и си направих един UDF за пресмятане на седмици и дни между две дати, и реших да го споделя с вас:
Public Function WD_DateDiff (Start_Date As Variant, End_Date As Variant, _
Optional Function_Type_1_or_2 As Integer = 1) As Variant
Dim FResult As Variant
Dim Week_Value As Integer
Dim Week_Value_trunc As Integer
Dim Day_Value As Integer
Select Case Function_Type_1_or_2
Case 1
GoTo Weeks_only
Case 2
GoTo Weeks_and_days
Case Else
GoTo Error_handler
End Select
Exit Function
'------------------------
Weeks_only:
FResult = (End_Date - Start_Date) / 7
WD_DateDiff = FResult
Exit Function
'------------------------
Weeks_and_days:
Week_Value = (End_Date - Start_Date) / 7
Week_Value_trunc = Int(Week_Value)
Day_Value = (Week_Value - Week_Value_trunc) * 7
Day_Value = Int(Day_Value)
FResult = Week_Value_trunc & " weeks and " & Day_Value & " days"
WD_DateDiff = FResult
Exit Function
'------------------------
Error_handler:
FResult = "#N/A"
WD_DateDiff = FResult
Exit Function
End Function
Всъщност, това е комбинация от две функции - при подаване на 1 като опционален аргумент изчислява само седмиците като десетична дроб, а при подаване на 2 като опционален аргумент изчислява едновременно седмици и дни и подава резултата във формат "13 weeks and 1 days".
Надявам се да го намерите за полезно.
Ще се радвам и ако някой от по-опитните колеги дадат своя коментар или предложение за корекция/подобрение.
Поздрави,
МироУрок: Създаване на линеен график (диаграма на Гант). Метод 1
-
Здравейте,
Ето и един вариант за смятане на седмици и дни, който използвах преди доста години. Мисля, че е най-компактен като дължина на формулите. Лесно може и да се конкатенират стойностите в една клетка, в моя файл са по отделно.
Сега, като гледам горния коментар, май е добре да си добавя още един полезен UDF към колекцията то
Поздрави,Урок: Създаване на линеен график (диаграма на Гант). Метод 1
-
Здравейте,
А бихте ли пояснили кои колони съдържат формули, и кои - константи. Или може би да изпратите нов скрийншот след като сте натиснали Ctrl+~ за да се придобие представа къде използвате Vlookup и как искате да го доразвиете.
Поздрави, -
Здравейте,
За съжаление, не става много ясно каква точно е целта Ви, т.е. как си представяте да се получи формулата и при какви обстоятелства.
Бихте ли доразвили въпроса си с малко повече обяснения и детайли за да може някой да даде помощ? Благодаря.
Поздрави, -
Здравейте, дали има начин да ми изпратите файла на пощата за да се опитам да проследя проблема ?
Урок: Използване на групи и междинни суми за контрол на видимостта на данните