Delphi Forum

Teşekkür ederim yardımınızla problem çözüldü

Verdiğiniz linkten de internetten de araştırdım fakat aklımda kurgulayamadım. Nasıl kullanabilirim. Başka yöntemler varmıdır.

sql server da datetime alanında sadece saat bilgisine göre sorgulama yapmak istiyorum. Tarihi ne olursa olsun saat 20:00:00 ve 23:59:59 arasında kart basanları filtrelemek istiyorum bunu sql ile nasıl yapabilirim

ID Terminal ID Eventtime SicilID
646251 3 02.01.2012 17:31:30 0 0 210
646252 1 ...

Yukarıdaki konularda detaylı olarak kodları ve memoya atanan değeri yazmıştım.

memo158 de formül yok fastreport üzerinde tanmlanmış değişken. Değeri form üzerinden kodu ile alıyor.

arkadaşlar problemim hala devam ediyor

while not query1.Eof do
begin
if (query1btarih.AsDateTime >= strtodate('01.01.2010')) and (query1btarih.AsDateTime <=strtodate('31.01.2010')) then

sanırım kodun bu kısmına dikkat etmediniz 12 ay içinde üsteki döngüyü yapıyorum. Sebebi ise tamir bakım için gelen parçaların ortalama kaç günde ...

procedure TForm6.BitBtn1Click(Sender: TObject);
var
m,a,b,t,a1,a2:integer;
begin
query1.First;
m:=0;
a:=0;
b:=0;
t:=0;
a1:=0;
a2:=0;
while not query1.Eof do
begin
if (query1btarih.AsDateTime >= strtodate('01.01.2010')) and (query1btarih.AsDateTime <=strtodate('31.01.2010')) then
begin
if ...

barutali dediğin yönetm ile de denedim fakat bu seferde access denied hatası verdi aslında benim değişkene atarak bu işi çözmem gerekiyor.

barutali,Lost Soul,aslangeri söylediklerinizi yaptım fakat aynı hatayı alıyorum

Fast Report 3.03 versiyonunu kullanıyorum. formdan rapordaki değişkene değer atıyorum raporu ön izleme yaptığımda aşağıdaki hatayı alıyorum.
http://s11.upload.gen.tr/uploads/20vxzxko/thumb_hata.JPG
Hatanın virgüllü değer atamasından kaynaklandığını düşündüm
frxReport2.Variables.Variables['m1 ...

IncDay(t1); yerine t1:=t1+1;

Yukarıdaki değişiklikle sorunun bir kısmını sizinde yardımlarınızla hallettik. Şimdi sıra dini bayramları hesaplatmakta

mkysoft » 13 Nis 2010 02:13
Bakanlar kurulu karar alarak calisma gununu tatil edebiliyor. Sizde biliyorsunuz ki bazen bayramlara gun ekleniyor ...

const
resmitatilsayisi=6;
resmitatiller:array[1..resmitatilsayisi]of string[6]=
('01.01','23.04','01.05','19.05','30.08','29.10');
function tatiledenkgeliyormu(tarih:tdatetime):Boolean;
var
i:byte;
begin
result:=(DayOfWeek(tarih)=1) or (DayOfWeek(tarih)=7);
if not result then
begin
//resmi ...

if (dayofweek(t1)<>1) and (dayofweek(t1)<>7) then
t1 tarihi iki şartı birden sağlamaz. ya cumartesiye denk gelir veya pazara. kodda t2 ile t1 arası gün farkını alıp t1 den sonra o fark kadar tarihi artırıyor. bu arada haftasonuna gelen tarihleri saymamasını gerekiyor. Birde buraya resmi tatilleri ...

procedure TForm6.Query1CalcFields(DataSet: TDataSet);
var
t1,t2:Tdate;
Gun,I,calisma:Integer;
begin

t1:=query1otarih.AsDateTime; // 02.02.2010 onay tarihi
t2:=query1btarih.AsDateTime; //24.02.2010 bitiş tarihi
Gun:=daysbetween(t2,t1); // iki tarih arası gün farkı
calisma:=0;
FOR I:=1 To gun do ...