cok REZİL bir Tarih Karsilastirma HATASi

[VooDoo]

if (CompareDate(Date -2 , Date) = -1 )
ShowMessage('kucuk');

kesin kez yazmasi gerekmez mi ama iste sonuc -1 yani date-2 kesinlikle date den ufak olmasina ragmen bu satir calismiyor.
sizce neden??

delphi 7 kullaniyorum

[mussimsek]

if (CompareDate(Date -2 , Date) = -1 ) then
ShowMessage('kucuk');

bu şekilde sorunsuz çalıştı.

Kolay gelsin.

[cetoonak]

Kod: Tümünü seç

Value	Constant	Meaning

-1	LessThanValue	The first value is less than the second value.
0	EqualsValue	The two values are equal.
1	GreaterThanValue	The first value is greater than the second value.

Burada mantıksız birşey yok.
İlk değer ikincisinden küçük olduğu zaman -1 döner.
İkisi de eşitse 0 döner.
İkincisi büyükse 1 döner.
Senin örnekte ilk değer küçük olduğu için -1 dönüyor ve mesaj veriyor.
Sende mesaj vermiyorsa araya "then" yazmayı unutmuşsun ondan olabilir.

[VooDoo]

then i foruma yazmayi unutmusum programa degil ve calismiyor, calismasi gerek ama anlamis degilim

[VooDoo]

zaten sorun da burda if de -1=-1 diye bir durum olusmasina ragmen if kosulunun icine girmiyor

[vedatkaba]

Kod: Tümünü seç

if CompareDate(Date -2 , Date) = -1 then
ShowMessage('kucuk');

böyle dene.

[VooDoo]

sanirim birde bazi seyleri yazmadim

bu durumu bir fonksiyon icinde kullaniyorum ve ic ice 3 tane if kontrolu olan fonksiyonlarda bu kontrolden sonra

Result:=False;

dedigim zaman yemedigini anlamis bulunuyorum.

halbuki Result:=False; satirinin calisip fonksiyondan cikmasi gerek,
aklinizda bulunsun,
yardim gayretleriniz icin sagolun

[mussimsek]

hocam,

DateUtils'i uses'a ekledin mi? Eklediysen aldığın hata ile kodunu komple bir göndersene...copy-paste ile...

Ben de yukarda denediğim şekilde canafar gibi çalışıyor

Kolay gelsin.

[VooDoo]

tabi ekledim ekledim, sorun fonksiyondan degilmis megerse

kendi yazdigim fonksiyonun result degerine deger aktarmasindan dolayi kaynakli imis

arada baska degiskene deger aktarip sonlarda result edince olay cozuldu, yani bazen yazilan kodtan dolayi sonrasinda da ayni kod satiri varsa bu sekilde atlamalar olur ya neden bundanmis, kod mantigimi degistirdim duzeldi, ama her zaman boyle olmuyor genelde ayni sekilde baska yerlerde de kod yazarim sorun olmaz ama burda oldu nedense