Konu: Araç Plaka Doğrulaması
Selamlar;
'07nn2525' hata almıyorum. Ama '07an2525' deki "a" harfini neden N olarak görüyor.
Çözüm bulamadım yardıma ihtiyacım var.
Şimdiden teşekkürler.
? PlakaDogrumu('07an2525')
? PlakaDogrumu('07nn2525')
Function PlakaDogrumu
Lparameters Lcplaka
Lchata=Lcplaka
If Type(Left(Lcplaka,2))<>'N'
Lchata=Lchata+' İl Bilgileri Yanlış '+Chr(13)
Endif
Lcsag=Between(Len(Substr(Lcplaka,3)),5,6)
If Lcsag=.F.
Lchata=Lchata+' Değerleri Eksik/Fazla '+Chr(13)
Endif
Lcdeg_u=0
Lcdeg_n=0
LcTip=""
For a=1 To Len(Substr(Lcplaka,3))
Lcsira=2+a
Lcdeg=Substr(Lcplaka,Lcsira,1)
Do Case
Case Type(Lcdeg)='U'
Lcdeg_u=Lcdeg_u+1
Case Type(Lcdeg)='N'
Lcdeg_n=Lcdeg_n+1
Endcase
LcTip=LcTip+Lcdeg+">"+Type(Lcdeg)+Chr(13)
Endfor
lcsonuc=0
Do Case
Case Lcdeg_u=3 And Lcdeg_n=2
lcsonuc=1
Case Lcdeg_u=2 And Lcdeg_n=3
lcsonuc=1
Case Lcdeg_u=2 And Lcdeg_n=4
lcsonuc=1
Case Lcdeg_u=1 And Lcdeg_n=4
lcsonuc=1
Otherwise
lcsonuc=0
Endcase
If lcsonuc=0
Lchata=Lchata+LcTip+' Diziliminde Hata var. '+Chr(13)
Endif
If Len(Lchata)>Len(Lcplaka)
Messagebox(Lchata)
lcsonuc=0
Endif
Return lcsonuc
Endfunc