Vopros o datah (o4en' sro4no)

[Sirik]

O4en' bisto nugna pomocsh.

Kak mogno iz dati uznat' nomer nedeli???
Naprimer 7 iulja 2004 - eto 28 nedelja.

[MOV]

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

Private Sub Form_Load()
Debug.Print NumWeek(Date)
End Sub

Public Function NumWeek(ByRef Dt As Date) As Integer
Dim f As Date
For f = DateAdd("d", -Day(Dt) + 1, (DateAdd("m", -Month(Dt) + 1, Dt))) To Dt
    If Weekday(f, vbMonday) = vbMonday Then g = g + 1
Next
NumWeek = g
End Function

'грубо говоря, здесь мы считаем все понедельники с начала года и принимаем
'и принимаем полученное число, за число недель, если что не так подправь

[MOV]

Но вариант ниже мне нравится больше . Супер. Никогда толком не знал как юзать Formatdate

[Samovar]

Например так:

format(date(),"WW",vbMonday,vbFirstJan1)

,но посмотри в Help-e какое значение четвертого аргумента тебе подойдет.

[Sirik]

Vsem spasibo. No ya delau tak

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

FORMAT ("WW",Date$)

[MOV]

Vsem spasibo. No ya delau takКод:

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

FORMAT ("WW",Date$)

Забавно, но у меня такой код больше чем WW ничего не дает
А можно еще так
Debug.Print DateDiff("ww", "01.01." + Str(Year(Date)), Date, vbMonday)
реально

[A.A.Z.]

Наоборот
Format (Date$, "WW")

[soljen]

Попробуй покопать в сторону DateDiff.
Думаю можно что-то нарыть!

[Sirik]

Наоборот
Format (Date$, "WW")

Очень смешно... Я писал, между прочил, ночью. мог и перепутать...

[MOV]

Очень смешно... Я писал, между прочил, ночью. мог и перепутать...

Да ладно. Ты ведь знал. Так и скажи решил поиздеваться над детьми .