Seçilen tarihe ait ayın günlerini,hafta sonlarını aktarma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
baloglurecep
Üye
Mesajlar: 261
Kayıt: 21 Tem 2006 04:59
İletişim:

Seçilen tarihe ait ayın günlerini,hafta sonlarını aktarma

Mesaj gönderen baloglurecep »

Arkadaşlar selam ve saygılarımı iletiyorum. Belki bilen vardır diye soruyorum. Bileşen tavsiyesi de olablir. string grid kullanarak string gridin satır başlıklarına datetimepicter dan seçilen tarihin ayına ait günleri 1,2,3,4,5,.... gibi atan hafta sonlarına gelen günlerde hücreleri kapatan , yada X değer atan bir işlem yapmak istiyorum. Amacım okullardaki ek ders olayının çizelgesini hazırlamak. Ücretsiz dağıtacağım personel takip programına entegre etmek. excelde çizelge var. ancak daha pratik ve görsel olmasını istiyorum. Kullanıcı ek dersleri hücrelere girecek otomatik toplanacak. sonra rapora dökülecek. Ne yapabilirim bu konuda nasıl yol izlenmeli?
Kullanıcı avatarı
ALUCARD
Üye
Mesajlar: 1270
Kayıt: 27 Eyl 2003 10:12
Konum: Samsun
İletişim:

Re: Seçilen tarihe ait ayın günlerini,hafta sonlarını aktarm

Mesaj gönderen ALUCARD »

Bende konuyla ilgili bir çalışma yapıyorum. halk eğitimlerde kullanılacak bi ekders bordro programı hazırlıyorum.
benim sıkıntım da şu mesela 31/03/2012 tarihi hangi güne denk geliyor bunu nasıl bulabiliriz.
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz

Erkan ÇAĞLAR
Kullanıcı avatarı
ALUCARD
Üye
Mesajlar: 1270
Kayıt: 27 Eyl 2003 10:12
Konum: Samsun
İletişim:

Re: Seçilen tarihe ait ayın günlerini,hafta sonlarını aktarm

Mesaj gönderen ALUCARD »

haftanın günlerini aşağıdaki koddan bulabilirsin.
DateUtils
uses kısmına eklemeyi unutma

Kod: Tümünü seç

var
gun : integer ;
gunadi : string ;
begin

gun := DayOfTheWeek(DateTimePicker1.date);
case gun of
     1 : gunadi :=  'Pazartesi';
     2 : gunadi :=  'Salı';
     3 : gunadi :=  'Çarşamba';
     4 : gunadi :=  'Perşembe';
     5 : gunadi :=  'Cuma';
     6 : gunadi :=  'Cumartesi';
     7 : gunadi :=  'Pazar'
     end;
showmessage(gunadi);
end;
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz

Erkan ÇAĞLAR
Cevapla