Programalama > ASP

<%
	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
%>