Hlavní navigace

Názor k článku Co je nového u RejstrikuFirem.cz? od Roj - Je to ve foxce, ale to j pro...

  • Článek je starý, nové názory již nelze přidávat.
  • 5. 7. 2006 11:18

    Roj
    Je to ve foxce, ale to j pro kazdeho hracka si predelat ;-)
    **************************
    * kontrola existence ICO *
    **************************
    
    FUNCTION ICAK
    PARAMETERS S_ICO
       PRIVATE    sumaX,iX,nX 
       nX       = ABS(S_ICO) 
       sumaX    = 0
       nX       = INT(nX / 10)
       iX       = 2
       DO WHILE nX > 0
          sumaX = sumaX + ((nX - (INT(nX / 10) * 10)) * iX)
          iX    = iX + 1
          nX    = INT(nX / 10)
       ENDDO
    IF .NOT.(MOD(11 - MOD(sumaX,11),10) = MOD(S_ICO,10))
    RETURN .F.
    
    
Upozorníme vás na články, které by vám neměly uniknout (maximálně 2x týdně).