tam tarih kontrolü sağlamak

[vedatkaba]

Arkadaşlar herkese günaydın,,,ve iyi çalışmalar diliyorum sorun aşağıda kodda da görüldüğü gibi tarih eğer yazılmamışsa ,yada günü yazılıp ayı yazılmamışsa,tarih her neşikilde eksik yazılmışsa kontrol edip mesajla bir tarih attırmak kullanıcının dikkatini oraya çekmesini istiyorum,bu kod çalıştı ama tarihi tam olrak kontrol etmiyor.aradım tardaım bundan iyisini bulamadım

Kod: Tümünü seç

procedure TForm3.tarihExit(Sender: TObject);
const
c:string=char(10);
begin
      If tarih.Date=EncodeDate(30,12,1899) Then
      begin
      showmessage('Yanlış Tarih Girdiniz'+c+#13+'Geçerli Tarih Olan:'+' 13.01.1900 '+'; Atanacaktır');
      tarih.SetFocus;
      end
      else begin
      kod.SetFocus;
end;
end;

[TRSoft]

- 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');

Ayrıca tarih ve saat fonksiyonlarının bir kısmını anlatan bir makalede mevcut sitemizde. İşte Linki