Günün tarihini "03/09/2002" Salı, saatini ise "11:05:03" olarak kabul ettim. Bu fonksiyonları kullanırken uses kısmına DateUtils'i eklemeyi unutmayın.

- CompareDate : verilen iki tarihi karşılaştırır. 1. tarih büyükse 1, küçükse -1, eğer iki tarihte aynı ise 0 değerini döndürür.

            CompareDate(Date -2 , Date) = -1
    NOT : Tarihler üzerinde direk toplama ve çıkarma işlemi yapabilirsiniz. "Date -2" iki gün öncesinin tarihini verecektir.                         

- CompareDateTime : verilen iki tarih ve saat içeren datetime değerini karşılaştırır. 1. değer büyükse 1, küçükse -1, her iki tarihsaat değeri aynı ise 0 döndürür. Burada değerin aynı olması demek yıl'dan başlayark saliseye kadar tüm değerlerin aynı olması demektir.

- CompareTime : verilen iki saat değerini karşılaştırır. 1. değer büyükse 1, küçükse -1, iki değerde aynı ise 0 döndürür.

- CurrentYear : Geçerli yıl bilgisini 4 karakter olarak döndürür. 2002 gibi. 

            CurrentYear = 2002   

- Date : Geçerli tarihi döndürür.
            Date = 03/09/2002     

- DateOf : Bir datetime değerini alarak bunun sadece tarih kısmını döndürür. Aslında burada saat bilgisi silinmez, "00:00:00" yani geceyarısını gösterecek şekilde değiştirilir. Yani tarih ve saat ayrılmaz ikilidir. Sürekli beraberdirler.

            DateOf ( Now ) = 03/09/2002
- DateTimeToStr : Verilen bir DateTime değerini string'e çevirir.

            DateTimeToStr ( Now ) = '03/09/2002 11:05:03'
- DateTimeToString : Verilen bir DateTime değerini istediğiniz formatta string'e çevirir.

            var
              Str : String;
           
              DateTimeToString(Str, 'd mmmm yyyy dddd, hh:nn', Now);
              ShowMessage ( Str );  = 3 Eylül 2002 Salı, 11:05
- DateToStr : verilen bir DateTime değerini string'e çevirir. Sonuçta sadece tarih verisi bulunur, saat olmaz.

            DateToStr ( Date) = '03/09/2002'
- DayOf : Verilen bir DateTime değerindeki günü döndürür. Yani sonuç 1 ile 31 arasında bir değer olabilir.

            DayOf ( Date ) = 3
- DayOfTheMonth : DayOf fonksiyonu ile tamamen aynıdır.

            DayOfTheMonth ( Date ) = 3
- DayOfTheWeek : Haftanın kaçıncı günü olduğunu döndürür. Pazartesi ise 1, Salı ise 2, ... Pazar ise 7 döndürür.

            DayOfTheWeek ( Date ) = 2
- DayOfTheYear : Yılın kaçıncı günü olduğunu döndürür.

            DayOfTheYear ( Date ) = 246
- DayOfWeek : Haftanın kaçıncı günü olduğunu döndürür. Bu fonksiyonun farkı Pazar günü ilk gün sayılır. Yani Pazar ise 1, Pazartesi 2 ... Cumartesi ise 7 döndürür.

            DayOfWeek ( Date ) = 3
- DaysBetween : verilen iki DateTime arasındaki geçen gün sayısını döndürür. Bu fonksiyonda saatte önemlidir. 24 saat geçmiş olmalıdır. Yani "02/09/2002 11:54:00" ile "03/09/2002 11:53:59" arasındaki gün sayısı 24 saat dolmadığı için 0 dır.

- DaysInAMonth : Verilen yıl ve aydaki gün sayısını döndürür.

            DaysInAMonth (2002, 5) = 31
- DaysInAYear : Verilen yılda kaç gün olduğunu döndürür.

            DaysInAYear ( 2002 ) = 365
- DaysInMonth : Verilen tarihteki ayın kaç gün olduğunu hesaplar. Yani yıl ve ay değerini verdiğiniz tarihten alır.
            DaysInMonth ( Date ) = 30
- DaysInYear : Verilen tarihteki yılda kaç gün olduğunu döndürür. Yani yıl değerini verdiğiniz tarihten alır.

            DaysInYear ( Date ) = 365
- DaySpan : Verilen iki DateTime değeri arasındaki gün farkını bulur. DaysBetween fonksiyonundan farkı, küsratlı değerler döndürür. Yani iki tarih arasında 1 gün 23 saat ve 58 dakika fark varsa DaySpan : "1,998611" değerini döndürür, DaysBetween gün tamamlanmadığı için 1 değerini döndürür.

- DecodeDate : Verilen DateTime değerini yıl, ay ve gün değerlerini döndürür.

            var
              Yil, Ay, Gun : word;

            DecodeDate ( Date, Yil, Ay, Gun);
- DecodeDateDay : Verilen DateTime değerinin yıl ve verilen tarihinde yılın kaçıncı günü olduğunu döndürür. 2002 ve 246. gün gibi.

- DecodeDateTime : Verilen DateTime değerinin yıl, ay, gün, saat, dakika, saniye, salise değerlerini döndürür.

            var
              yil, ay, gun, saat, dakika, saniye, salise : Word;

            DecodeDateTime ( Now, yil, ay, gun, saat, dakika, saniye, salise);
- DecodeDateWeek : Verilen DateTime değerinin yılını, yılın kaçıncı haftası olduğunu ve haftanın kaçıncı günü olduğunu döndürür.

- DecodeTime : Verilen DateTime değerinin saat, dakika, saniye ve salise değerlerini döndürür.

            var
              saat, dakika, saniye, salise : Word;

            DecodeTime ( Now, saat, dakika, saniye, salise);
- EncodeDate : Verilen yıl, ay, gün değerlerini birleştirip oluşan tarih değerini döndürür.

            var
              Tarih : TDateTime;

            Tarih := EncodeDate (2002, 10, 5); = 05/10/2002
- TryEncodeDate : Verilen yıl, ay, gün değerlerini birleştirip oluşan tarih değerini döndürür. Eğer yanlış değerler verilmişse fonksiyon False değerini geri döndürür, tarih başarıyla birleştirilmişse True değerini döndürür.

            var
              Tarih : TDateTime;

            if TryEncodeDate(2002, 10, 5, Tarih) then
              ShowMessage (' tarih başarıyla birleştirildi!');
- EndOfAMonth : Verilen yıl ve ayın son günü ve son anını döndürür.

            EndOfAMonth (2002, 5) = 31/05/2002 23:59:59
- FormatDateTime : Verilen DateTime değerini istediğiniz formatta göstermek için kullanılır.

            FormatDateTime ('d mmmm yyyy', Date) = '3 Eylül 2002'
- HourOf, HourofTheDay : Verilen DateTime değerinin saatini döndürür. Yani sonuç 0 ile 23 arasındadır.

            HourOf (Now) = 11
- HoursBetween : Verilen iki DateTime değeri arasında geçen saati döndürür. Fonksiyon 60 dakika tamamlanınca değeri arttırır. Yani 12:00:00 ile 12:59:59 arasındaki fark 0 (sıfır) dır, ancak 13:00:00 olduğunda 1 döndürür.

- HourSpan : Verilen iki DateTime değeri arasında geçen saati döndürür. Yukarıdaki fonksiyondan farkı saat tam olmasa bile değeri küsuratlı olarak döndürür. Mesela 12:00:00 ile 12:59:59 arasındaki saat farkı 0,9998 saat gibi.

- IncMonth : Verilen tarihi, istenilen ay kadar artırır veya azaltır. 
      o Eğer parametre - verilirse önceki ayları döndürür. Örneğin -1 verilirse bir ay önceki tarihi döndürür.
      o Eğer parametre 1 den büyük bir değer verilirse o kadar ay sonrasını döndürür.
      o Eğer tarih arttırıldığı zaman verilen gün o ay içerinde yoksa, o ayın son günü döndürülür. Mesela 31/01/2002 tarihini bir ay artırırsanız şubat ayında 31. gün olmadığı için sonuç 28/02/2002 olacaktır.

            IncMonth ( Date ) = 03/10/2002

- IncDay : Verilen tarihi istenilen gün kadar artırır veya azaltır. Parametre + verilirse artırır, - verilirse azaltır. 

            IncDay ( Date ) = 04/09/2002
            IncDay ( Date, 3 ) = 06/09/2002
            IncDay ( Date, -1) = 02/09/2002
- IncHour : Verilen DateTime değerinin saatinin istenilen değer kadar artırır veya azaltır. Benzer şekilde IncMinute, IncMilisecond, IncSecond fonksiyonları da vardır.

- IncWeek : Verilen tarihi istenilen hafta sayısı kadar artırır veya azaltır. Parametre + verilirse artırır, - verilirse azaltır.

            IncWeek ( Date ) = 10/09/2002
- IncYear : Verilen tarihin senesini istediğinz kadar artırır veya azaltır. Parametre + verilirse artırır, - verilirse azaltır.
            IncYear ( Date ) = 03/09/2003
            IncYear ( Date, -2) = 03/09/2000
- IsInLeapYear : Verilen tarihin artık bir senede (Şubat'ın 29 gün olduğu) olup olmadığını test eder.

            if IsInLeapYear (Date) then
              ShowMessage (' 2002 senesi artık yıl olmadığı için, bu mesajı asla göremezsiniz!');
- IsLeapYear : Verilen senenin artık sene (Şubat'ın 29 gün olduğu) olup olmadığını test eder.

            if IsLeapYear ( CurrentYear ) then
              ShowMessage (' Bu sene Şubat ayı 29 gün çekiyor');
- IsToday : Verilen tarihin bugünün tarihi olup olmadığını test eder. Aynı gün ise True döndürür.

            if IsToday ( Date ) then
              ShowMessage ( 'Date bugünün tarihini verdiği için bu mesajı görürsünüz');
- IsValidDate : Verilen yıl, ay, gün değerlerinin geçerli bir tarih olup olmadığını test eder. Örneğin ay 2 ve gün 30 ise, Şubat hiç bir zaman 30 gün olamayacağı için False döndürür.
            if IsValidDate (2002, 10, 1) then
              ShowMessage ('geçerli bir tarihtir');
- IsValidDateTime : Verilen yıl, ay, gün, saat, dakika, saniye, salise değerlerinin geçerli bir DateTime değeri olup olmadığın test eder. Geçerli ise True, değilse False döndürür.

            if not IsValidDateTime ( 2002, 13, 5, 11, 11, 11, 11 ) then
              ShowMessage (' ay hiç bir zaman 13 olamaz, 1 ile 12 arası bir değer olamlıdır!');
- IsValidTime : Verilen saat, dakika, saniye, salise değerlerinin geçerli bir saat değeri olup olmadığın test eder. Geçerli ise True, değilse False döndürür.

            if not IsValidTime (30, 11, 10, 1) then 
              ShowMessage (' saat 23'' ten büyük olamayacağı için geçersiz bir tarihtir');
- MinutesBetween : Verilen iki tarih arasındaki dakika farkını verir. Dakika tam olduğu zaman değeri artırır. Örneğin 9:00:00 ile 9:00:59 arasındaki farkı 0 (sıfır) olarak döndürür.

- MinuteSpan : Verilen iki tarih arasındaki dakika farkını verir. Dakika tam olmasa bile küsuratlı olarak değeri döndürür. Örneğin 9:00:00 ile 9:00:59 arasındaki farkı 0,998 dakika gibi döndürür.

- MonthOf : Verilen tarihin ayını döndürür. Yani sonuç 1 ile 12 arasında bir değer olmalıdır.

            MonthOf ( Date ) = 9
- MonthsBetween : Verilen iki tarih arasındaki ay farkını verir. Ayların uzunlukları eşit olmadığı için bir ay 30.4375 gün olarak belirlenmiştir. Her 30.4375 gün için değer 1 arttırılır.

- MonthSpan : Verilen iki tarih arasındaki ay farkını verir. 1 ay yine 30.4375 gün olarak belirlenmiştir. Süre tamalanmasa bile küsuratlı olarak değeri döndürür.

- Now : Geçerli tarih ve saati döndürür.

            Now = 03/09/2002 11:05:03
- NthDayOfWeek : Verilen tarihteki günün, o ay içindeki kaçıncı iş günü olduğunu döndürür. Mesela gün Salı ve ayın ikinci Salısı ise 2 döndürür.

            NthDayOfWeek ( Date ) = 1
- StartOfAMonth : Verilen yıl ve aydaki ilk günün ilk anını döndürür.

            StartOfAMonth (2002, 5) = 01/05/2002 00:00:00
- StrToDate: Verilen stringi tarih değerine çevirir.

            StrToDate ('01/01/2002') = 01/01/2002
- StrToDateTime : Verilen stringi DateTime değerine çevirir.

            StrToDateTime ('01/01/2002 05:22:00') = 01/01/2002 05:22:00
- Time : Geçerli saati döndürür.

            Time = 11:05:03
- TimeToStr : Verilen saat değerini stringe çevirir.

            TimeToStr ( Time ) = '11:05:03'
- Today : Bugünün tarihini döndürür.

            Today = 03/09/2002
- Tomorrow : Ertesi günün (yarın) tarihini döndürür.

            Tomorrow = 04/09/2002
- YearOf : Verilen tarihin yılını döndürür.

            YearOf ( Date ) = 2002
- YearsBetween : Verilen iki tarih arasındaki yıl farkını döndürür.

- Yesterday : Bir önceki günün (dün) tarihini döndürür.

            Yesterday = 02/09/2002
 

DateUtils uniti içinde bunun en az iki katı daha fonksiyon var. Ben en çok kullandıklarımı ve lazım olabileceğini düşündüklerimi burada açıkladım. Listenin tamamını görmek için, Help'ten "date/time routines" kısmına bakın.

*ALINTIDIR*

ben her zaman derimki " emeğe saygı boynumuzun borcudur"
fakat
1.si dökümanı temin ettiğim kaynakta alıntı yaptığını söylüyordu
2.si forum kurallarını tam bilmediğim için başka site ismi verip (yada reklamını yaptığım sanılıp)  ne kendimi ne yöneticileri zor durumda bırakmak istemedim olay bundan ibarettir.
kesinlikle başka bir sebep yoktur. uyarılar ve zihniyet beni memnun etti teşekkürler

Daha yolun başındayım, hatta yola bile girmiş sayılmam.
2 sorum olacak. Belki çözümü çok basittir ama yapamadım. Herkese iyi çalışmalar.

1- Forma eklediğim DateTimePicker boş gelsin istiyorum.
Object Inspector'da "Date"i silince 30.12.1899 tarihini otomatik olarak veriyor.

2- Forma eklediğim DateTimePicker bugün tarihi ile gelsin. Kaydet gibi bir butona basana kadar.

Bu sorunu çözdüm.
- uses satırına DateUtils ekle

var
t:Tdate;
begin
  t:=Today;
  DateTimePicker1.Date:=t;
end;

Son bir ricam; vatanı uğrunda şehit olan gençlerimiz için yatmadan önce Fatiha okumanız ve bir daha şehit vermememiz için Allah'a dua etmeniz.

Arkadaşlar Şöyle bir şey nasıl yapılabilir?

DateTimePicker alanında seçilen tarihin yanlızca yılını ayırabilirmiyiz?

Örneğin DateTimePicker 'dan 10.02.2010 seçilmişse sadece 2010 kısmını nasıl ayırabilirim?

Yardımlarınızı bekliyorum.

Yardımınız için teşekkür ederim. Benzeri bir şekilde çözüme ulaştım.

Yapmak istediğim veritabanımda genel isimli bir tablo ve Yıl isimli bir alan var. Programımda Fatura, irsaliye, Dekont, Çek v.s.  girişi yapılırken seçilen tarih firmanın yıl olarak olarak seçilen tarihi ile aynımı değilmi bunun karşılaştırmasını yapabilmek.

Şöyle Bir çözüm buldum.
Formlardaki Tarih alanının adı : KutuTarih. Bu alanın onexit olayına aşağıdaki kodu yazdım

procedure TADekontEkle.KutuTarihExit(Sender: TObject);

var
  YeniTarihim : TDateTime;
  SadeceYIL : String;

begin

  YeniTarihim := KutuTarih.Date;
  DateTimeToString(SadeceYIL, 'yyyy', YeniTarihim);

  if SadeceYIL=Dm1.GnlQ1.FieldByName('Yil').AsString Then
   begin
    // Tarih çalışma yılı içerisinde devam...
   end
  else
   Application.MessageBox('Fiş Tarihi Çalışma Yılı İçerisinde Değil! ','   Dikkat',MB_OK or MB_ICONWARNING)

end;

İlginize çok teşeşkkür ederim.

DecodeDate fonksiyonunu uğraşıp çözememiştim en baştaki örneği kendime göre uyarlayamadım.
Verdiğiniz örneklerle şu an sorunun 3 değişik yoldan çözümünü sağlamış olduk. Değişkenleri tanımladıktan sonra.

1) YIL := FormatDateTime('YYYY', DateTimePicker1.Date)
2) DecodeDate(KutuTarih.Date,SadeceYIL,Ay, Gun);
3) DateTimeToString(SadeceYIL, 'yyyy', YeniTarihim);

Herkese kolay gelsin...