Интервал дат

[Sirik]

Надо по номеру недели получить массив дней, которые в нее входят.
Например: номер недели 11, получаем от 12 марта до 18.

Номер недели получаю так:

Код: Выделить всё

numberWeek = DatePart( "Ww", Date, vbMonday, vbFirstFourDays)

А вот в какую строну капать на счет поставленной задачи не знаю

[alibek]

Зачем тебе номер недели?
Date - Weekday() — это будет понедельник.

[Sirik]

мне нужно сделать интерфейс такого типа: Номер недели -> Интервал: 11 -> 12.03.12 - 18.03.12

[Sam777e]

Date - Weekday

Отсюда и надо плясать

интерфейс такого типа: Номер недели -> Интервал: 11 -> 12.03.12 - 18.03.12

В такой постановке задача не очень корректна; есть зависимость еще и от года.

А вот если исходить просто из даты, то

Код: Выделить всё

Public Sub Try()
  Dim numberWeek_FirstFourDays As Variant, numberWeek_FirstJan1 As Variant
  Dim theDay1 As Variant, theDay2 As Variant
  Dim D As Date
  Dim firstDate As Date, lastDate As Date
 
  Debug.Print "numberWeek_FirstJan1 numberWeek_FirstFourDays theDay1 theDay2"
 
  D = Date
  numberWeek_FirstJan1 = DatePart("Ww", D, vbMonday, vbFirstJan1)
  numberWeek_FirstFourDays = DatePart("Ww", D, vbMonday, vbFirstFourDays)
  theDay1 = DatePart("d", D, vbMonday, vbFirstJan1)
  theDay2 = DatePart("d", D, vbMonday, vbFirstFourDays)
  Debug.Print D, numberWeek_FirstJan1, numberWeek_FirstFourDays, theDay1, theDay2
 
  D = DateSerial(2011, 1, 1)
  numberWeek_FirstJan1 = DatePart("Ww", D, vbMonday, vbFirstJan1)
  numberWeek_FirstFourDays = DatePart("Ww", D, vbMonday, vbFirstFourDays)
  theDay1 = DatePart("d", D, vbMonday, vbFirstJan1)
  theDay2 = DatePart("d", D, vbMonday, vbFirstFourDays)
  Debug.Print D, numberWeek_FirstJan1, numberWeek_FirstFourDays, theDay1, theDay2
  Debug.Print
 
  firstDate = Date - Weekday(Date, vbMonday) + 1
  lastDate = firstDate + 6
  Debug.Print firstDate; Format(firstDate, "dddd, mmm d yyyy", vbMonday, vbFirstFourDays)
  Debug.Print lastDate; Format(lastDate, "dddd, mmm d yyyy", vbMonday, vbFirstFourDays)
End Sub


Output:

' numberWeek_FirstJan1 numberWeek_FirstFourDays theDay1 theDay2
' 3/16/2012 12 11 16 16
' 1/1/2011 1 52 1 1
'
' 3/12/2012 Monday, Mar 12 2012
' 3/18/2012 Sunday, Mar 18 2012


Над кодом прошу не смеяться - я быдлокодер

[Sirik]

я и не говорил что от года не надо плясать, я просто пример привел
спасибо, пример то что надо