hafta sonuna gelen tarihleri nasıl anlayabilirim...

[serkan]

selam arkadaşlar hayırlı kodlar...
benim önemli ve acil bir sorunum var yardımcı olursanız sevinirim..
şimdi bir formda 31 adet dbgrid im var.bunların herbirinin üzerinde dateedit kontrolü var sanırım jedi nin dateedit componenti.şimdi kullanıcı combobox dan ayı seçtiğinde örneğin EYLÜL'ü seçti dateedit1 01.09.2005 den başlıyor dateedit2 02.09.2005 dateedit3 03.09.2005......dateedit31 e kadar böyle benim derdim mesela 06.09.2005 cumartesine geliyor benim bunu anlayım ona bağlı dbgridin(dbgrid6) colorunu kırmızı yapmam gerekiyor veya enabled=false gibi bişey..delphinin date ünitlerine bakmıştım makaleler kızmından ama pek yardımcı olamadı... şimdiden teşekkürler..

[Asri]

Merhaba,
Sanırım istediğiniz DayOfWeek() fonksiyonu.

Kod: Tümünü seç

showmessage(inttostr(dayofweek(now)));

yazınca 4 rakamını döndürüyor. Buda çarşamba demek. Now yerine istediğiniz tarihi yazarsınız. Now bugünkü tarihtir.
Pazar 1,pazartesi 2,.... Cumartesi 7 oluyor.

İyi çalışmalar.

___________________
ofenX

[zero_g]

a:Integer;

a := DayOfWeek(DATe);
if (a = 1) or (a=7) then Showmessage('Hafta Sonu') else Showmessage('Malesef Hafta İçi');

1=pazar
7=cumartesi
kolay gelsin

[serkan]

hepinize teşekkür ederim kodları akşam deniycem inşallah problem çıkmaz..