tablede tarih

[zengin]

merhaba arkadaşlar tableden tarih alanına günün tarihini almak istiyorum

Table1.FieldByName('TARIH').ASDateTime

Table1.FieldByName('OTARIH').ASDateTime

bu kod ile denedim fakat yeterli olmadı sanırım

iki tarihin arasını bulmak istiyorum

bana bu konuda yardımlarınızı bekliyorum

[gkimirti]

now yada date fonksiyonlarını kullanarak
tabletaih1.asdate:=date seklinde

[zengin]

hocam merhaba ilgilendigin icin teşekkürler

örnek bir acık kod hakkında yardım verebilirmisiniz

[mussimsek]

Tablo_adı.FieldByName('alan_adi').AsDate := Date;

NOT : Tablo adı ve alan adı yerine kendi kullandığınız değerleri yazın.

[zengin]

hocam senin gösterdigin kodu denedim fakat sonuc hata verdi

ben bu şekilde yeni bir kod düzenledim amacım 2005 yılına gecmek istemiyorum

var Fark : Double;
begin
fark := Table3.FieldByname('KTARIH').ASDateTime -
Table3.FieldByname('TARIH').ASDateTime;
if Fark<0then
begin
ShowMessage (' Gecersiz tarih ? ');
end;

bu kodunan calışıyor fakat yinede günün tarihi olmayınca işime yaramıyor
sizleride rahatsız ediyorum fakat günün tarihini almak istiyorum
degerli üstatlarım ben nerede hata yapıyorum bana bu kod hakkında
dogru olan bir acık kod önerin lütfen ?

[ALUCARD]

galiba iki tarih arası alacaksın

Kod: Tümünü seç

fark=DaysBetween(tarih1,tarih2)

işini gorur

[freeman35]

Kod: Tümünü seç

if Table3.FieldByname('KTARIH').ASDateTime < Table3.FieldByname('TARIH').ASDateTime then begin 
ShowMessage (' Gecersiz tarih ? '); 
end; 

yada günün tarihi ile karşılaştıracaksan

Kod: Tümünü seç

if Table3.FieldByname('KTARIH').ASDateTime < Now then begin 
ShowMessage (' Gecersiz tarih ? '); 
end; 

Kolay gele

[zengin]

Arkadaşlar tabledeki günün tarihini şu kodlarla ayarladım

ve sizlerin vermiş oldugunuz kodlarıda deneyecem ?


procedure TADELER.Table3AfterPost(DataSet: TDataSet);
begin
Table1.Edit;
Table1TARIH.ASDateTime :=Date;
Table1.Post;
end;

[zengin]

tabledeki tarih olayını hallettim yukarıdaki kodlarla üstadlarıma cok teşekkürler saygılarımla ?