Dim UyariMesaji
UyariMesaji = ""

Sub NumAlan(AlanDeger, AlanAdi, MaxDeger, MinDeger, BosKabul)
    If Trim(AlanDeger) <> AlanDeger Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
    End if
    If Instr(1,AlanDeger,"+") > 0 or Instr(1,AlanDeger,"-") > 0 Then 
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Geçersiz Karakterler İçeriyor." & vbCrLf
		Exit Sub    
	End If
	If IsNumeric(AlanDeger) Then
		If csng(AlanDeger) <> Round(csng(AlanDeger),0) or InStr(AlanDeger,",")>0 or InStr(AlanDeger,".")>0 then
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer Tamsayı Olmalıdır." & vbCrLf
	        Exit Sub
		End If
	   If CSng(AlanDeger) > MaxDeger And MaxDeger <> -1 Then
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & MaxDeger & " Değerinden Büyük Olamaz." & vbCrLf
	        Exit Sub
	   End If
	   If CSng(AlanDeger) < CSng(MinDeger) And MinDeger <> -1 Then			
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & MinDeger & " Değerinden Küçük Olamaz." & vbCrLf
	        Exit Sub
	   End If
	Else
		If Not (AlanDeger = "" and BosKabul) then
	      UyariMesaji = UyariMesaji & AlanAdi & " Alanına Nümerik Bir Değer Girilmesi Gereklidir." & vbCrLf
	    	Exit Sub
		End If
	End If	
End Sub

Sub NumAlan2(AlanDeger, AlanAdi, MaxDeger, MinDeger, HaneSayisi,BosKabul)
	If Trim(AlanDeger) <> AlanDeger Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
    End if
    If IsNumeric(AlanDeger) Then
		If csng(AlanDeger) <> Round(csng(AlanDeger),0) or InStr(AlanDeger,",")>0 or InStr(AlanDeger,".")>0 then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer Tamsayı Olmalıdır." & vbCrLf
            Exit Sub
		End If
        If CSng(AlanDeger) > MaxDeger And MaxDeger <> -1 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & (HaneSayisi) & " Haneli Bir Sayı Olmalıdır." & vbCrLf
            Exit Sub
        End If
        If CSng(AlanDeger) < MinDeger And MinDeger <> -1 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & (HaneSayisi) & " Haneli Bir Sayı Olmalıdır." & vbCrLf
            Exit Sub
        End If
    Else
		If Not (AlanDeger = "" and BosKabul) then
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanına Nümerik Bir Değer Girilmesi Gereklidir." & vbCrLf
        	Exit Sub
		End If
    End If
End Sub

Sub TelefonAlan(AlanDeger, AlanAdi,BosKabul)
    If Trim(AlanDeger) <> AlanDeger Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
		Exit Sub
    End if
	AlanDeger = Trim(AlanDeger)
    If IsNumeric(AlanDeger) Then
		If csng(AlanDeger) <> Round(csng(AlanDeger),0) or InStr(AlanDeger,",")>0 or InStr(AlanDeger,".")>0 then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            Exit Sub
		End If
        If CSng(AlanDeger) > 9999999999 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            Exit Sub
        End If
        If CSng(AlanDeger) < 0 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            Exit Sub
        End If
        If Len(AlanDeger) < 10 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            Exit Sub
        End If
        If Left(cstr(AlanDeger),1) = "0" Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            UyariMesaji = UyariMesaji & " Alan Kodu yazılırken başına 0 eklenmemelidir." & vbCrLf
            Exit Sub
        End If        
    Else
		If Not (AlanDeger = "" and BosKabul) then
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
        	Exit Sub
		End If
    End If

End Sub

Function TarihAlan(AlanDeger, AlanAdi, BosKabul)
    AlanDeger = Trim(AlanDeger)
    TarihAlan = AlanDeger
    Dim MyIsDate
    MyIsDate = True
    
    if AlanDeger = "" And BosKabul Then Exit function
    if AlanDeger = "" And Not BosKabul then MyIsdate = False

    If Len(Trim(AlanDeger))>0 then
        If IsDate(AlanDeger) Then
         
		    if Mid(AlanDeger,2,1) = "/" Then AlanDeger = "0" & AlanDeger
		    if Mid(AlanDeger,5,1) = "/" Then AlanDeger = Left(AlanDeger,3) & "0" & Right(AlanDeger,Len(AlanDeger)-3)
		    
		    if Len(AlanDeger) <> 10 Then 	
				UyariMesaji = UyariMesaji & AlanAdi & " Alanına (gg/aa/yyyy) Şeklinde Geçerli Bir Tarih Girilmesi Gereklidir." & vbCrLf
				Exit function
			 End if

			if (Mid(AlanDeger,3,1) <> "/" OR Mid(AlanDeger,6,1) <> "/") Then
				MyIsDate = False
			End If 

            If cint(Mid(AlanDeger, 4, 2)) > 12 Then
                MyIsDate = False
            ElseIf DateDiff("d", "01/01/1900", AlanDeger) < 0 Then
                MyIsDate = False
            ElseIf cint(Right(AlanDeger, 4)) > 2050 Then
                MyIsDate = False
            End If
        Else
            MyIsDate = False
        End If
    End If

    If MyIsDate = False then 
		UyariMesaji = UyariMesaji & AlanAdi & " Alanına (gg/aa/yyyy) Şeklinde Geçerli Bir Tarih Girilmesi Gereklidir." & vbCrLf
    End If

End function

Sub TextAlan(AlanDeger, AlanAdi, enkucuk, enbuyuk, BosKabul)
	
    If InStr(AlanDeger,"""")>0 or InStr(AlanDeger,"=")>0 or InStr(AlanDeger,"<")>0 or InStr(AlanDeger,">")>0 or InStr(AlanDeger,"!")>0 or InStr(AlanDeger,chr(39))>0 then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanı Yanlış Karakterler İçeriyor. ' = "" < > ! " & chr(39) & " karakterlerini kullanmayınız." & vbCrLf
    End If

    If Len(Trim(AlanDeger))=0 and BosKabul=True Then exit sub
    
    If Len(Trim(AlanDeger))=0 and BosKabul=False Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanı Boş Bırakılamaz." & vbCrLf
    End If

    If Len(AlanDeger) < enkucuk Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanına en az " & enkucuk & " karakter veri girilmelidir." & vbCrLf
    End if

    If Len(AlanDeger) > enbuyuk Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanına en uzun " & enbuyuk & " karakter veri girilebilir." & vbCrLf
    End if
    
    If Trim(AlanDeger) <> AlanDeger Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
    End if
  
End Sub


Sub BosKontrol(AlanDeger, AlanAdi)
	AlanDeger = Trim(AlanDeger)
    If Len(Trim(AlanDeger))=0 Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanı Boş Bırakılamaz." & vbCrLf
    End If
End Sub

Sub ListAlan(AlanDeger, AlanAdi)
	AlanDeger = Trim(AlanDeger)
    If Len(Trim(AlanDeger))=0 Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanı İçin Liste Kutusundan Seçim Yapmalısınız." & vbCrLf
    End If
End Sub

Sub EMailAlan(AlanDeger, AlanAdi, Uzunluk, BosKabul)
	if AlanDeger = "" and BosKabul then exit sub
	
    If InStr(AlanDeger,"""")>0 or InStr(AlanDeger,"<")>0 or InStr(AlanDeger,">")>0 or InStr(AlanDeger,"!")>0 or InStr(AlanDeger,chr(39))>0 then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Yanlış Karakterler İçeriyor. ' "" < > ! " & chr(39) & " karakterlerini kullanmayınız." & vbCrLf
    End If

    If Len(Trim(AlanDeger))=0 and BosKabul=False Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Boş Bırakılamaz." & vbCrLf
		exit sub
    End If

    If Len(AlanDeger) > Uzunluk Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanına en uzun " & Uzunluk & " karakter veri girilebilir." & vbCrLf
    End if
    
    If Trim(AlanDeger) <> AlanDeger Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
    End if
    If Trim(Left(AlanDeger,4)) = "www." Then 
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında www. bulunmaz!" & vbCrLf
    End If

	If not IsNull(AlanDeger) Then	
		Dim objRegExp
		Set objRegExp = New Regexp
		With objRegExp
			.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
			.IgnoreCase = False
			.Global = True
		End With
		If objRegExp.Test(Alandeger) = False Then
			UyariMesaji = UyariMesaji & AlanAdi & " Alanı elektronik posta adresi düzenine uygun bir yapıda değildir." & vbCrLf
		End If
	End if
End Sub

Sub WebAlan(AlanDeger, AlanAdi, Uzunluk, BosKabul)
	if AlanDeger = "" and BosKabul then exit sub
	
    If InStr(AlanDeger,"""")>0 or InStr(AlanDeger,"<")>0 or InStr(AlanDeger,">")>0 or InStr(AlanDeger,"!")>0 or InStr(AlanDeger,chr(39))>0 then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Yanlış Karakterler İçeriyor. ' "" < > ! " & chr(39) & " karakterlerini kullanmayınız." & vbCrLf
    End If

    If Len(Trim(AlanDeger))=0 and BosKabul=False Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Boş Bırakılamaz." & vbCrLf
		exit sub
    End If

    If Len(AlanDeger) > Uzunluk Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanına en uzun " & Uzunluk & " karakter veri girilebilir." & vbCrLf
    End if
    
    If Trim(AlanDeger) <> AlanDeger Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
    End if

    If Trim(Left(AlanDeger,7)) <> "http://" Then 
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı http:// ile başlamalıdır!" & vbCrLf
		exit sub
    End If
    
	If not IsNull(AlanDeger) Then	
		Dim objRegExp
		Set objRegExp = New Regexp
		With objRegExp
			.Pattern = "^(http://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}?/?[a-zA-Z0-9\-\._\?\,\'/\\\+&%\$#\=~]*)$"
			.IgnoreCase = False
			.Global = True
		End With
		If objRegExp.Test(Alandeger) = False Then
			UyariMesaji = UyariMesaji & AlanAdi & " Alanı web adresi düzenine uygun bir yapıda değildir." & vbCrLf
		End If
	End if
End Sub

Function buyukHarfYap(inpControl)
	inpControl.value = UCase(replace(replace(inpControl.value,"ı","I"),"i","İ"))
End Function
Function ParafHazirla(strveri)
	dim verimiz
	verimiz = split(strveri)
	ParafHazirla=left(verimiz(0),1) & ". " & verimiz(1)
end Function

Sub ParolaAlan(AlanDeger1, Alandeger2, AlanDeger3, AlanAdi1, AlanAdi2, AlanAdi3, enkucuk, enbuyuk)
	
    If InStr(AlanDeger1,"""")>0 or InStr(AlanDeger1,"=")>0 or InStr(AlanDeger1,"<")>0 or InStr(AlanDeger1,">")>0 or InStr(AlanDeger1,"!")>0 or InStr(AlanDeger1,chr(39))>0 then
	UyariMesaji = UyariMesaji & AlanAdi1 & " Alanı Yanlış Karakterler İçeriyor. ' = "" < > ! " & chr(39) & " karakterlerini kullanmayınız." & vbCrLf
    End If

    If InStr(AlanDeger2,"""")>0 or InStr(AlanDeger2,"=")>0 or InStr(AlanDeger2,"<")>0 or InStr(AlanDeger2,">")>0 or InStr(AlanDeger2,"!")>0 or InStr(AlanDeger2,chr(39))>0 then
	UyariMesaji = UyariMesaji & AlanAdi2 & " Alanı Yanlış Karakterler İçeriyor. ' = "" < > ! " & chr(39) & " karakterlerini kullanmayınız." & vbCrLf
    End If

    If InStr(AlanDeger3,"""")>0 or InStr(AlanDeger3,"=")>0 or InStr(AlanDeger3,"<")>0 or InStr(AlanDeger3,">")>0 or InStr(AlanDeger3,"!")>0 or InStr(AlanDeger3,chr(39))>0 then
	UyariMesaji = UyariMesaji & AlanAdi3 & " Alanı Yanlış Karakterler İçeriyor. ' = "" < > ! " & chr(39) & " karakterlerini kullanmayınız." & vbCrLf
    End If

    If Len(AlanDeger1) < enkucuk Then
	UyariMesaji = UyariMesaji & AlanAdi1 & " Alanına en az " & enkucuk & " karakter veri girilmelidir." & vbCrLf
    End if

    If Len(AlanDeger2) < enkucuk Then
	UyariMesaji = UyariMesaji & AlanAdi2 & " Alanına en az " & enkucuk & " karakter veri girilmelidir." & vbCrLf
    End if

    If Len(AlanDeger1) > enbuyuk Then
	UyariMesaji = UyariMesaji & AlanAdi1 & " Alanına en uzun " & enbuyuk & " karakter veri girilebilir." & vbCrLf
    End if
    
    If Len(AlanDeger2) > enbuyuk Then
	UyariMesaji = UyariMesaji & AlanAdi1 & " Alanına en uzun " & enbuyuk & " karakter veri girilebilir." & vbCrLf
    End if
    
    If AlanDeger2 <> AlanDeger3 Then
	UyariMesaji = UyariMesaji & "Yeni Parolalarınız birbiriyle eşleşmiyor. Lütfen kontrol edip tekrar deneyiniz..." & vbCrLf
    End if
  
End Sub