help on functions

[CALocklin]

Re: help on functions

tim,

how can i create this seudo code into expression?

if <number> is divisible by 10 = .t. else = .f.

thanks

 
IF mod( number, 10 ) = 0
   <do this>
ELSE
   <do that>
END IF

or

IF( mod( number, 10 ) = 0, <do this>, <do that )

[fddizon]

Re: help on functions

Mike,

thanks..

[MikeC]

Re: help on functions

if IMEI_Valid(.f.) then

try

if IMEI_Valid = .f. then

or

if .NOT.(IMEI_Valid) then

[fddizon]

Re: help on functions

tim,

im creating a function to check the validity of a cellphone IMEI.

i can't get the last part to work... here is the code and a valid IMEI from my cellphone.

'Date Created: 01-Aug-2010 01:09:31 PM
'Last Updated: 16-Aug-2010 01:37:53 PM
'Created By  : fdd
'Updated By  : fdd

FUNCTION IMEI_Valid AS L (IMEI AS C)

	dim ln as n = 0
	dim d1 as n = 0
	dim d2 as n = 0
	dim d3 as n = 0
	dim d4 as n = 0
	dim d5 as n = 0
	dim d6 as n = 0
	dim d7 as n = 0
	dim d8 as n = 0
	dim d9 as n = 0
	dim d10 as n = 0
	dim d11 as n = 0
	dim d12 as n = 0
	dim d13 as n = 0
	dim d14 as n = 0
	dim d15 as n = val(substr(IMEI,15,1))
	dim x as c=""	
	
	ln = len(imei)-1
	for i=1 to ln
	x=substr(IMEI,i,1)

	if i = 1 then
	    d1 = val(x)
	elseif i = 2 then
		d2 = val(x)
	elseif i = 3 then
		d3 = val(x)
	elseif i = 4 then
		d4 = val(x)
	elseif i = 5 then
		d5 = val(x)
	elseif i = 6 then
		d6 = val(x)
	elseif i = 7 then
		d7 = val(x)
	elseif i = 8 then
		d8 = val(x)
	elseif i = 9 then
		d9 = val(x)
	elseif i = 10 then
		d10 = val(x)
	elseif i = 11 then
		d11 = val(x)
	elseif i = 12 then
		d12 = val(x)
	elseif i = 13 then
		d13 = val(x)
	elseif i = 14 then
		d14 = val(x)
	end if
	
	next
	
	d1 = d1 * 2
	d3 = d3 * 2
	d5 = d5 * 2
	d7 = d7 * 2
	d9 = d9 * 2
	d11 = d11 * 2
	d13 = d13 * 2

	dim vFinal as n

	if len(alltrim(str(d1))) = 2 then	
	    dim dtmp as c = ""
		dim dtmp1 as c = ""
		dim dtmp2 as c = ""
		dim fin1 as n
		dim fin2 as n
		dim tmpfinal as n		
		if len(alltrim(str(d1))) then
			dtmp = alltrim(str(d1))
			dtmp1 = substr(dtmp,1,1)
			dtmp2 = substr(dtmp,2,1)
			tmpfinal = val(dtmp1) + val(dtmp2)
			d1 = tmpfinal
		end if 
	elseif len(alltrim(str(d3))) = 2 then
	    dim dtmp as c = ""
		dim dtmp1 as c = ""
		dim dtmp2 as c = ""
		dim fin1 as n
		dim fin2 as n
		dim tmpfinal as n		
		if len(alltrim(str(d3))) then
			dtmp = alltrim(str(d3))
			dtmp1 = substr(dtmp,1,1)
			dtmp2 = substr(dtmp,2,1)
			tmpfinal = val(dtmp1) + val(dtmp2)
			d3 = tmpfinal
		end if 
	elseif len(alltrim(str(d5))) = 2 then
	    dim dtmp as c = ""
		dim dtmp1 as c = ""
		dim dtmp2 as c = ""
		dim fin1 as n
		dim fin2 as n
		dim tmpfinal as n		
		if len(alltrim(str(d5))) then
			dtmp = alltrim(str(d5))
			dtmp1 = substr(dtmp,1,1)
			dtmp2 = substr(dtmp,2,1)
			tmpfinal = val(dtmp1) + val(dtmp2)
			d5 = tmpfinal
		end if 
	elseif len(alltrim(str(d7))) = 2 then
	    dim dtmp as c = ""
		dim dtmp1 as c = ""
		dim dtmp2 as c = ""
		dim fin1 as n
		dim fin2 as n
		dim tmpfinal as n		
		if len(alltrim(str(d7))) then
			dtmp = alltrim(str(d7))
			dtmp1 = substr(dtmp,1,1)
			dtmp2 = substr(dtmp,2,1)
			tmpfinal = val(dtmp1) + val(dtmp2)
			d7 = tmpfinal
		end if 
	elseif len(alltrim(str(d9))) = 2 then
	    dim dtmp as c = ""
		dim dtmp1 as c = ""
		dim dtmp2 as c = ""
		dim fin1 as n
		dim fin2 as n
		dim tmpfinal as n		
		if len(alltrim(str(d9))) then
			dtmp = alltrim(str(d9))
			dtmp1 = substr(dtmp,1,1)
			dtmp2 = substr(dtmp,2,1)
			tmpfinal = val(dtmp1) + val(dtmp2)
			d9 = tmpfinal
		end if 
	elseif len(alltrim(str(d11))) = 2 then
	    dim dtmp as c = ""
		dim dtmp1 as c = ""
		dim dtmp2 as c = ""
		dim fin1 as n
		dim fin2 as n
		dim tmpfinal as n		
		if len(alltrim(str(d11))) then
			dtmp = alltrim(str(d11))
			dtmp1 = substr(dtmp,1,1)
			dtmp2 = substr(dtmp,2,1)
			tmpfinal = val(dtmp1) + val(dtmp2)
			d11 = tmpfinal
		end if 
	elseif len(alltrim(str(d13))) = 2 then
	    dim dtmp as c = ""
		dim dtmp1 as c = ""
		dim dtmp2 as c = ""
		dim fin1 as n
		dim fin2 as n
		dim tmpfinal as n		
		if len(alltrim(str(d13))) then
			dtmp = alltrim(str(d13))
			dtmp1 = substr(dtmp,1,1)
			dtmp2 = substr(dtmp,2,1)
			tmpfinal = val(dtmp1) + val(dtmp2)
			d13 = tmpfinal
		end if 
	
	end if	
	
	vFinal = d1 + d3 + d5 + d7 + d9 + d11 + d13 + d2 + d4 + d6 + d8 + d10 + d12 + d14


    IMEI_Valid= if(mod(vFinal, 10) = 0,.t.,.f.)

	if IMEI_Valid(.f.) then
		cancel()
	    msgbox(vSystem_Name, "Invalid IMEI. Please enter the correct IMEI to continue.",UI_ATTENTION_SYMBOL+UI_OK)
	else
		msgbox(vSystem_name, "IMEI is valid")
	end if
	
END FUNCTION

valid imei: 352526032177436

[Tim Kiebert]

Re: help on functions

Do you mean equally? ie 10,20,30 etc

[fddizon]

Re: help on functions

tim,

how can i create this seudo code into expression?

if <number> is divisible by 10 = .t. else = .f.

thanks

[fddizon]

Re: help on functions

x=43

?10*int(x/10)
= 40

thanks tim... (ssshh i didn't pay attention in my math class when i was in school.) :D

[Tim Kiebert]

Re: help on functions

x=43

?10*int(x/10)
= 40

[fddizon]

hi to all,

1. is there a function to get the digit of a number? (to eliminate conversion of numeric to character and using len function)

2. is there a function that get the tens value of a 2 digit number?
ex. 18 = 10
23 = 20
45 = 40

thanks in advance