Мне нужно определить, в какой день недели задано данное число,
Для например. У меня Год = 2018 Календарная неделя = 51 и Число = 3 (это 3-й день недели)
Календарная неделя 51 приходится на декабрь месяц
Неделя начинается с понедельника по воскресенье
Поскольку 3-й день 51-й недели — 19-й, результат должен быть "19/12/2018".
Можем ли мы сделать это формулой excel или макросом VBA.
Любая помощь в этом отношении высоко ценится.
Спасибо, Ганеш
Наглое копирование с сайта здесь вы можете использовать формулу Excel:
=DATE(<YearNumber>, 1, -2) - WEEKDAY(DATE(<YearNumber>, 1, 3)) + <WeekNumber> * 7+ <DayNumber> -1
Итак, =DATE(2018, 1, -2) - WEEKDAY(DATE(2018, 1, 3)) + 51 * 7 + 3 - 1 возвращает 19 декабря 2018 г..
Получается с помощью vba. Один макрос и один udf.
макрос
Sub getWeekDays()
Dim vDB, vS(), vR()
Dim y As Integer, s As Date, e As Date
Dim i As Integer, k As Integer
Dim n As Integer
'y = Year
y = InputBox("Input year : 2018 ")
s = DateSerial(y, 1, 0)
e = DateSerial(y + 1, 1, 0)
n = e - s
For i = 1 To n
d = s + i
If DatePart("ww", d, vbMonday) = DatePart("ww", d + 1, vbMonday) Then
Else
k = k + 1
ReDim Preserve vR(1 To 2, 1 To k)
vR(1, k) = DatePart("ww", d, vbMonday) & " Wk"
If k = 1 Then
vR(1, k) = DatePart("ww", s + 1, vbMonday) & " Wk"
vR(2, k) = Format(s + 1, "dd.mm.yyyy") & "~" & Format(d, "dd.mm.yyyy")
Else
vR(2, k) = Format(d - 6, "dd.mm.yyyy") & "~" & Format(d, "dd.mm.yyyy")
End If
End If
Next i
Range("a1").CurrentRegion.Clear
Range("a1").Resize(k, 2) = WorksheetFunction.Transpose(vR)
End Sub
UDF
Function getWeekDay(y As Integer, WeekNum As Integer, DayOrder As Integer)
Dim s As Date, e As Date
Dim i As Integer
Dim n As Integer
Application.Volatile
'WeekNum = 51
'y = Year
'DayOrder <~~ If third day DayOrder = 3
s = DateSerial(y, 1, 0)
e = DateSerial(y + 1, 1, 0)
n = e - s
For i = 1 To n
d = s + i
If DatePart("ww", d, vbMonday) = WeekNum Then
getWeekDay = d + DayOrder - 1
Exit Function
End If
Next i
End Function
=DATE(F3, 1, -2) - WEEKDAY(DATE(F3, 1, 3)) + G3 * 7+ (H3-1)07.12.2018