Kod:
Me.MetinKutusu = Format(Day(Date - (DatePart("w", Date, vbMonday) - 1)), "00") & IIf(Format(Date - (DatePart("w", Date, vbMonday) - 1), "yyyymm") < Format(Date + (DatePart("w", Date, vbFriday) - 2), "yyyymm"), Format(Date - (DatePart("w", Date, vbMonday) - 1), " mmm "), Null) & IIf(Format(Date - (DatePart("w", Date, vbMonday) - 1), "yyyy") < Format(Date + (DatePart("w", Date, vbFriday) - 2), "yyyy"), Format(Date - (DatePart("w", Date, vbMonday) - 1), "yyyy"), Null) & "-" & Format(Date + (DatePart("w", Date, vbFriday) - 2), "dd mmmm yyyy")