Yılın Tüm Günleri

[recepuncu]

Merhaba arkadaşlar. Kullandığım paradox tablosuna bir yılın tüm günlerini eklemek istiyorum. Yani textbox'ın içine 2006 yazcam ve oluştur butonuna tıklayınca 2006 yılının Bütün ayları nın, günlerini veritabanına bir döngü yardımıyla kayıt edecek.

Ben ocak ayından başlayıp, aralığın son gününe kadar 12 ayın tüm günlerini nasıl tek tek yazdıracağımı bilmiyorum.

İlginize şimdiden teşekkürler.

[ikut]

Merhaba arkadaşlar. Kullandığım paradox tablosuna bir yılın tüm günlerini eklemek istiyorum. Yani textbox'ın içine 2006 yazcam ve oluştur butonuna tıklayınca 2006 yılının Bütün ayları nın, günlerini veritabanına bir döngü yardımıyla kayıt edecek.

Ben ocak ayından başlayıp, aralığın son gününe kadar 12 ayın tüm günlerini nasıl tek tek yazdıracağımı bilmiyorum.

İlginize şimdiden teşekkürler.

Merhaba..

Bu konuda bizden beklediğiniz nedir. Bu işi sizin yerinize halledecek hazır bir procedure mü bekliyorsunuz. Yoksa yönlendirmemi.

1. si ise bu konumuzunun dışına çıkar. Yani yardım olmaz bunun adı..
2. ise sana önerim 12 elemanlı iki dizi tanımla. 1.de ayların adı olsun 2. cide ise gun sayıları. sonra çiftli bir döngü içinde gün sayılarına göre kayıtları eklersin.

[White Rose]

s.a.

Aşağıdaki ötrnekte listbox yerine veritabanı kullanın

procedure TForm1.ButtonClick(Sender: TObject);
var
X,I:Integer;
Tarih:TDate;
begin
I:=DaysInAYear(StrToInt(Edt_Yil.text));// Yılın kaç gün olduğu
Caption:=IntToStr(I);
Tarih:=Encodedate(StrToInt(Edt_Yil.text),1,1);
Listbox.Items.Clear;
For X:=1 To I Do Begin
Listbox.Items.Add(DateToStr(Tarih));
Tarih:=Tarih+1;
End;
end;

[ertemsoft]

slm

Bunun için önce ekrandan başlangıç ve bitiş tarih değerlerini alarak son
tarihle ilk tarih arasındaki gün sayısını bulman lazım daha sonra bir döngü
yardımıyla veritabanına ekleme yapabilirsin.

var
bastar,bittar,btarih:Tdate;
sayi:Integer;
begin
sayi:=bittar - bastar;
btarih:=bastar;
for i:=1 to sayi do
begin
btarih:=btarih + 1;
end;

[Asri]

Bu kodu bir deneyin. Ben denediğimde bütün günleri listeledi.

edit:cevap verilmiş zaten yeni farkettim

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
t:tdate;
begin
 //edit.text:='2006'
 t:=strtodate('01.01.'+edit1.text);
 memo1.Lines.Add(datetostr(t));
 for i:=1 to 364 do
 begin
   t:=t+1;
   memo1.Lines.Add(datetostr(t));
 end;
end;

[recepuncu]

Sağolun arkadaşlar ama tarih fonksiyonlarının çalışması için uses kısmına bişeymi ekliycez ? DaysInAYear hata veriyo

[Asri]

uses DateUtils;

Kullanmalısın.

[recepuncu]

Çok Teşekkürler Arkadaşlar.

[recepuncu]

kardiş delphi5 te DateUtils.pas diye bir kütüphane yok

[Asri]

kardiş delphi5 te DateUtils.pas diye bir kütüphane yok

Delphi 7 kullanıyorum 5'i hatırlamıyorum açıkcası.

[mussimsek]

Evet Delphi 5'te DateUtils.pas yok.

Kolay gelsin.

[iqprog]

const
DaysPerYear: array [Boolean] of Word = (365, 366);


function DaysInAYear(const AYear: Word): Word;
begin
Result := DaysPerYear[IsLeapYear(AYear)];
end;

[recepuncu]

iqprog büyüksün baba çalıştı. hepinize tekrar teşekkürler.