Kod:
Sub KacinciHaftadayizBulBakalim()
Dim Tarih As Date, Hafta As Integer
Tarih = Date
Hafta = DatePart("ww", Tarih, vbMonday, vbFirstJan1)
MsgBox "Bugün: " & Date & " --> Yılın " & Hafta & ". Haftası"
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.
