Mega Code Archive
Neoturk - tarih crc kontrolü function
<![CDATA[
herkese merhaba,
bir tarihin istenilen 2 tarih arasında olup olmadığını şu şekilde anlayacağız,
bu tür bir örnek görmedim, kendi yazdığım bir mantıkla sizlerle paylaşmak istedim
//***** tarih crc sini ver *******************
function tarihcrc(x:string):longint;
var gun,ay,yil:string;xgun,xay,xyil:longint;
begin
gun:=copy(x,1,2);
ay:=copy(x,4,2);
yil:=copy(x,7,4);
xgun:=strtointdef(gun,0);
xay:=strtointdef(ay,0)*120;
xyil:=strtointdef(yil,0)*3650;
result:=xyil+xay+xgun;
end;
kullanimi:
var tarih1,tarih2,tarih3:string;t1,t2,t3:longint;
tarih1:='05/06/2003';
tarih2:='11/07/2004';
tarih3:='12/08/2004';
t1:=tarihcrc(tarih1);
t2:=tarihcrc(tarih2);
t3:=tarihcrc(tarih3);
if (t2>=t1) and (t2<=t3) then memo1.lines.add(tarih2+' tarih aralığındadır');
05/06/2003 < "11/07/2004" <12/08/2004 olduğundan tarih2 aralığı şartı sağlıyor.. vs vs....
yani tarih2 sorgulamasını yaptırdık, vs vs...
ticari programlarda bu yöntemi kullanıyorum. oldukça hızlı ve son derece ilaç gibi!
(özellikle tarih sorgulama ve raporlarında)
saygılarımla_
xxnt03@lycos.co.uk
neoturk_
]]>