Mega Code Archive
Stringteki veri tarih formatında mı
<![CDATA[
(* SOURCE KODU *)
function IsDateTime(const Source:AnsiString):Boolean;
asm
Push ESI
Mov EAX,Source
Or EAX,EAX
Jz @Done
Mov ESI,EAX
Mov ECX,[EAX-4]
Xor EAX,EAX
Jecxz @Done
Cld
@Start:
Lodsb
Cmp AL,32
Jz @OK
Cmp AL,TimeSep
Jz @OK
Cmp AL,DateSep
Jz @OK
Cmp AL,45
Jz @OK
Cmp AL,65
Jz @OK
Cmp AL,77
Jz @OK
Cmp AL,80
Jz @OK
Cmp AL,48
Jb @NG
Cmp AL,57
Ja @NG
@OK:
Dec ECX
Jnz @Start
Mov EAX,True
Jmp @Done
@NG:
Xor EAX,EAX
@Done:
Pop ESI
Mov Result,AL
end;
(* KULLANIMI *)
// Örnek 1:
var
S: String;
begin
S := '09.01.1979 08:30:12';
if S = IsDateTime then
ShowMessage(S + ' geçerli tarih formatı');
else
ShowMessage(S + ' geçersiz tarih formatı');
end;
(*
-----------------------------------------------------------------------
Şükrü Kansız
GEBİTEK (Gelişmiş Bilişim Teknolojileri)
Bilgisayar Programcısı - Proje Koordinatörü
sukruk@gebitek.com / www.gebitek.com
Tel: +90(212) 225 84 77 Fax: +90(212) 225 84 76
-----------------------------------------------------------------------
*)
]]>