30 günde bir form açılsın

[zaxacm]

Merhaba arkadaşlar herkese iyi çalışmalar.
Program ilk kurulduktan sonra her 30 günde bir form açılsın istiyorum.Bunu nasıl ve hangi kodlarla yapabilirim acaba.

[kadirkurtoglu]

registry e ilk açılma tarihini not düşersin. tarihi alır güncel tarih ile karşılaştırırsın. 30 sonucuna ulaşınca olyı çözersin. vel hasıl yöntem ler buna benzer çoğaltılabilir.

[zaxacm]

regedite tarihi kayıt edebilirim.Peki şuandaki tarih ile kayıt tarihini karşılaştırma işlemini hangi kodlarla yapabilirim Daha da önemlisi 30 ar gün artırmayı 30-60-90 şeklinde nasıl ayarlayacağım.Her 30 günün sonunda kayıt mı yapmam lazım acaba

[kadirkurtoglu]

uses dateutils;

Kod: Tümünü seç

var
ilkkayit, sontarih, bugun : TDate;
Begin
bugun := date;
sontarih := incmonth(ilktarih);
if sontarih = bugun then
ok..
else
cancel

[zaxacm]

Çok teşekkürler mantığı anladım biraz uğraşarak yaptım çok sağolun