Programalama > ASP

Etiketler: tarih, kontrolü......

Ort. 0
Puan ver:
<%
	Public Sub Hata(strGelen)
		Response.Write "<font color=""red"">" & strGelen & "</font>"
		Response.End
	End Sub
	Public Sub TarihKontrol(strGelen)
		arrGecerli = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
		strGelen2 = Replace(strGelen, "X", "a")
		
		For EACH Gecerli IN arrGecerli
			strGelen2 = Replace(strGelen2, Gecerli, "X")
		Next

		IF NOT strGelen2 = "XX.XX.XXXX" THEN Hata "Tarih GG.AA.YYYY şeklinde olmalı ve sadece sayı ile nokta içermelidir. (Örn: 10.10.1987)"
		arrGelen = Split(strGelen, ".")
		IF CINT(arrGelen(0)) > 31 THEN Hata "Gün hiçbir zaman 31'den büyük olamaz."
		IF CINT(arrGelen(1)) > 12 THEN Hata "Ay hiçbir zaman 12'den büyük olamaz."
		IF CINT(arrGelen(2)) > Year(Date) THEN Hata "Geleceği göremeyiz. Bu nedenle yıl, şimdiki tarihten büyük olamaz."
		IF (CINT(arrGelen(2)) MOD 4) AND (CINT(arrGelen(1)) = 2 AND CINT(arrGelen(0)) > 29) THEN 
			Hata "Şubat ayı 29 günden uzun olamaz." 
		ELSE
			IF CINT(arrGelen(1)) = 2 AND CINT(arrGelen(0)) > 28 THEN Hata "Şubat ayı 28 günden uzun olamaz."
		END IF
	End Sub
%>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.