Girilen Tarih=Metin0 Haftasayısı=Metin2 olsun
Metin0 ın güncelleme sonrasına bunu
Kod:
Private Sub Metin0_AfterUpdate()
Dim A, B As Date
Dim C, D As Integer
A = Me.Metin0
B = DateSerial(Year(A), Month(A), 1)
C = DatePart("ww", (A))
D = DatePart("ww", (B))
Me.Metin2 = (C - D) + 1
End Sub
Veya Form üzerinde
yapmak isterseniz
Tarih=Metin0
Girilen ayın ilk günü=Metin2
GirilenTarih yılın kaçıncı haftası=Metin4
Girilen ayın ilk günü yılın kaçıncı haftası=Metin6
AyınHaftası=Metin8
diyelim
Şimdi
Kod:
Metin0=tarih
Metin2=DateSerial(Year([Metin0]);Month([Metin0]);1)
Metin4=DatePart("ww";[Metin0])
Metin6=DatePart("ww";[Metin2])
Metin8=Metin4-Metin6+1