Adoquery de tarih ile sayı torplama işi nasıl olur.

[trkartal]

Öncelikle hayırlı akşamlar diliyorum. Aranıza yeni katıldım.
Bu işe Accessde kendime ait özel işler yaparken arkadaşımın delphi ile yaparsan daha güzel olur demesi ile başladı.
Delphi9 kullanıyorum ve access ile veri tabanına bağlanıyorum AdoQery kullaıyorum.
Benim sorum;
DBedit1 = tarih
DBedit2 = sayı
DBedit3 = sonuç tarih olacak.
DBedit1 +DBedit2 =DBedit3
bu konuda bana yardımcı olursanız memnun olurum.
Şimdemiden Teşekkür ediyorum.

[greenegitim]

- 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

Kaynak : http://www.delphiturkiye.com/datetime.htm

[trkartal]

Hocam yanıtınız için teşekkürler ama çözemedim.
Ben;
procedure TForm1.Button1Click(Sender: TObject);
var
Tarih : TDateTime;
begin
Tarih := DateToStr(Edit1.Text+Edit2.Text);
Edit3.Text := DateToStr(Tarih);
yaptım olmamıştı.

IncDay ( Date ) = 04/09/2002
IncDay ( Date, 3 ) = 06/09/2002
IncDay ( Date, -1) = 02/09/2002

bunları nasıl yerleştireceğim konusunda yardımcı olurmusunuz.

[unicorn64]

bence veritabanıyla çalışmaya başlamadan önce programlamanın ve delphinin temellerine biraz göz atmalısınız.
örneğin DateToStr fonksiyonu DateTime türünden bir parametre alır ve bunun string karşılığını döndürür,
Edit1.Text edite girilen yazıya ulaşmanızı sağlar, iki string i + ile toplamaya çalışırsanız sonuç iki stringin yanyana birleşmiş hali olur...

[xozcanx]

Sorunuza cevap bulabildiniz mi bilmiyorum ama aşağıdaki şekilde de yapabilirsiniz.

Kod: Tümünü seç

procedure TForm1.Edit2Exit(Sender: TObject);
var
topla : TDate;
begin
     topla  :=StrToDate(Edit1.Text)+ StrToInt(Edit2.Text);
     Edit3.Text:=DateToStr(Topla);
end;

[trkartal]

Sayın xozcanx'e saygılar sunuyorum.
Başarılarının devamını diliyorum.