Hafta hesaplama nasıl Olur ?

[umutcan1744]

Merhaba,

Hocamın verdiği bir ödevi tamamlıyorum, bir kısmını bitirdim ;

Dim d_date, day
        Do
            d_date = InputBox("Please Enter Your Date of Birth :")

        Loop While Not IsDate(d_date)
        Select Case Weekday(d_date)
            Case 1: day = "Sunday"
            Case 2: day = "Monday"
            Case 3: day = "Tuesday"
            Case 4: day = "wednesday"
            Case 5: day = "Thursday"
            Case 6: day = "Friday"
            Case 7: day = "Saturday"
        End Select
        Cells(9, "C").Value = day

Burdan tarih giriyoruz örnek : 12.06.1990,bu tarihte doğmuş biri şuanda kaç haftalıtık? baya ugrastım ama yapamdım, teşekkür ederim

 

[umutcan1744]

Yardım edebilecek yokmu ? :/

 

[Murat OSMA]

[FONT="Trebuchet MS"]Sub Emre()
    Dim d_date As Date
    d_date = InputBox("Please Enter Your Date of Birth :")
    Cells(9, "C").Value = WorksheetFunction.WeekNum(CDate(d_date))
End Sub[/FONT]

 

[bzace]

Murat bey,
Umut bey, tarihin kaçıncı haftaya denk geldiğini istemiyor olsa gerek.
Alternatif olarak;

Sub Daxe_Syan()
    Dim j As Date, js As Date, jn As Integer
    j = InputBox("Please Enter Your Date of Birth :")
    js = Date
    jn = DateDiff("ww", j, js)
    MsgBox jn
End Sub

 

[Murat OSMA]

Haklısınız Emre Bey, şimdiye kadar kaç hafta geçtiğiniz bulmak istiyor.

O hâlde bu kodları kullanabilir;

[FONT="Trebuchet MS"]Sub Emre()
    Dim d_date As Date
    d_date = InputBox("Please Enter Your Date of Birth :")
    hafta = (CDate(Date) - CDate(d_date)) / 7
    Cells(9, "C").Value = Round(hafta)
End Sub[/FONT]