Sayın Hocalarım; Metin kutusundaki tarihe göre o tarihin ilk ve son gününü almak istiyorum. Diyelim ki tarih 18.11.2013 olsun. Başka bir metin kutusuna 18-22 Kas şeklinde, eğer hafta iki ayı birden kapsıyorsa 30.12.2013 05.01.2014 gibi ise 30 Arl-5 Ock şeklinde yazmasını istiyorum.

(19-11-2013, 18:08)idrisy demiş ki: Sayın Hocalarım; Metin kutusundaki tarihe göre o tarihin ilk ve son gününü almak istiyorum. Diyelim ki tarih 18.11.2013 olsun. Başka bir metin kutusuna 18-22 Kas şeklinde, eğer hafta iki ayı birden kapsıyorsa 30.12.2013 05.01.2014 gibi ise 30 Arl-5 Ock şeklinde yazmasını istiyorum.

VBA ya aynen tasinabilir. Soru icinde deyim olarak kullanilacaksa , yerine ; ifade ayraclarini ceviriniz.

Başka bir metin kutusu=Day(Metin - (DatePart("w", Metin, vbMonday) - 1)) & IIf(Format(Metin - (DatePart("w", Metin, vbMonday) - 1), "yyyymm") < Format(Metin + (DatePart("w", Metin, vbFriday) - 2), "yyyymm"), Format(Metin - (DatePart("w", Metin, vbMonday) - 1), " mmm "), Null) & "-" & Format(Metin + (DatePart("w", Metin, vbFriday) - 2), "dd mmm yyyy")

olabilir.

Format([metinkutusu_tarih] - Weekday([metinkutusu_tarih], 2) + 1, "short date") burada 1 pazartesi, 5 olursa cuma vs. kendine göre geliştirebilirsin.

Hocalarım yapamadım. Örnek ekliyorum. Üzerinde yaparsanız çok memnun olurum.

  HaftaDs.rar (Boyut: 25,64 KB / İndirilme: 144) Inceleyebilirsiniz.

Hocam Ellerinize sağlık. Çooook teşekkür ederim.