VFP ·R¥ÎªÌªÀ°Ï ­º­¶ VFP ·R¥ÎªÌªÀ°Ï
¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
 
 ±`¨£°ÝÃD±`¨£°ÝÃD   ·j´M·j´M   ·|­û¦Cªí·|­û¦Cªí   ·|­û¸s²Õ·|­û¸s²Õ   ·|­ûµù¥U·|­ûµù¥U 
 ­Ó¤H¸ê®Æ­Ó¤H¸ê®Æ   µn¤JÀˬd±zªº¨p¤H°T®§µn¤JÀˬd±zªº¨p¤H°T®§   µn¤Jµn¤J

¤T«H°Ó»È±b¸¹Àˬd½X

 
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD  
µoªí¤H ¤º®e
garfield
Site Admin


µù¥U®É¶¡: 2003-01-30
¤å³¹: 2157


²Ä 1 ¼Ó

µoªíµoªí©ó: ¬P´Á¤G ¤G¤ë 22, 2022 4:41 pm    ¤å³¹¥DÃD: ¤T«H°Ó»È±b¸¹Àˬd½X ¤Þ¨¥¦^ÂÐ

ºâ­ÓÀˬd½X¦³»Ý­n¥Î2­Ó°Ñ·Óªºªí®æ¶Ü?
ÀH«K¶ñ¤@­Ó¤]¦³10¤À¤§1ªº¾÷²v²q¤¤°Ú.

¥N½X:

macc='1504930686133'
mm = 12345
? '¤T«H°Ó»È±b¸¹Àˬd½X,§tª÷ÃB'+TRANSFORM(mm)+'=',macc,'==>',chksum3sing(macc,mm)

*¤T«H°Ó»È±b¸¹Àˬd½X,§tª÷ÃB, 2­Ó°Ñ¼Æ,1±b¸¹,2ª÷ÃB
*¶Ç¦^­È¬O±b¸¹+1½XÀˬd½X
FUNCTION chksum3sing
LPARAMETERS macno , mmoney
*³o­Ó±b¸¹¥[¤WÀˬd½Xªºµ{¦¡Åçºâ¥i¥H¨ìºô§}¥h¬d http://www.augustana.ualberta.ca/~mohrj/algorithms/checkdigit.html
*
*       0    1     2     3     4     5     6     7     8     9
*0     0   1   2   3   4   5   6   7   8   9
*1     1   5   7   6   2   8   3   0   9   4
*2     5   8   0   3   7   9   6   1   4   2
*3     8   9   1   6   0   4   3   5   2   7
*4     9   4   5   3   1   2   6   8   7   0
*5     4   2   8   6   5   7   3   9   0   1
*6     2   7   9   3   8   0   6   4   1   5
*7     7   0   4   6   9   1   3   2   5   8

LOCAL mf[8]
mf[1]='0123456789'
mf[2]='1576283094'
mf[3]='5803796142'
mf[4]='8916043527'
mf[5]='9453126870'
mf[6]='4286573901'
mf[7]='2793806415'
mf[8]='7046913258'


*        0     1     2     3     4     5     6     7     8     9
*0     0   1   2   3   4   5   6   7   8   9
*1     1   2   3   4   0   6   7   8   9   5
*2     2   3   4   0   1   7   8   9   5   6
*3     3   4   0   1   2   8   9   5   6   7
*4     4   0   1   2   3   9   5   6   7   8
*5     5   9   8   7   6   0   4   3   2   1
*6     6   5   9   8   7   1   0   4   3   2
*7     7   6   5   9   8   2   1   0   4   3
*8     8   7   6   5   9   3   2   1   0   4
*9     9   8   7   6   5   4   3   2   1   0

LOCAL mop[10]
mop[1]='0123456789'
mop[2]='1234067895'
mop[3]='2340178956'
mop[4]='3401289567'
mop[5]='4012395678'
mop[6]='5987604321'
mop[7]='6598710432'
mop[8]='7659821043'
mop[9]='8765932104'
mop[10]='9876543210'

LOCAL minv
minv='0432156789'

LOCAL mr_acno
mr_acno = reverse_str(macno) + reverse_str(TRANSFORM(mmoney,'@L 99999999'))

LOCAL i,mcheck
mcheck=0
FOR i=1 TO LEN(mr_acno)
   *?? SUBSTR(mr_acno,i,1),'op='+TRANSFORM(mcheck+1),'mf['+TRANSFORM(i%8+1)+']='+TRANSFORM(VAL(SUBSTR(mr_acno,i,1))+1),SUBSTR(mf[i%8+1],VAL(SUBSTR(mr_acno,i,1))+1,1)
   mcheck = VAL(SuBSTR( mop[mcheck+1] , VAL(SUBSTR(mf[i%8+1],VAL(SUBSTR(mr_acno,i,1))+1,1))+1,1))
   *?? '='+TRANSFORM(mcheck)+','
next
   *mcheck = VAL(SUBSTR(minv,mcheck+1,1))
   mcheck = SUBSTR(minv,mcheck+1,1)
   *?? 'end:',TRANSFORM(mcheck)
*RETURN macno+TRANSFORM(mcheck)
RETURN macno+mcheck

**
FUNCTION reverse_str
LPARAMETERS mid
RETURN RIGHT(mid,1)+IIF(LEN(mid)=1,'',reverse_str(LEFT(mid,LEN(mid)-1)))


_________________
§Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙ­n§Ö±o¨ìµª®×.


garfield ¦b ¬P´Á¤T ¤G¤ë 23, 2022 11:49 am §@¤F²Ä 1 ¦¸­×§ï
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó
¤p¿à



µù¥U®É¶¡: 2004-12-27
¤å³¹: 469


²Ä 2 ¼Ó

µoªíµoªí©ó: ¬P´Á¤G ¤G¤ë 22, 2022 7:08 pm    ¤å³¹¥DÃD: Re: ¤T«H°Ó»È±b¸¹Àˬd½X ¤Þ¨¥¦^ÂÐ

garfield ¼g¨ì:
?
ÀH«K¶ñ¤@­Ó¤]¦³10¤À¤§1ªº¾÷²v²q¤¤°Ú.


10¤À¤§1ªº¾÷²v²q¤¤; ¤£´N¬Oªí¥Ü¨¾¿ù²v90%
¤£¦n¶Ü?

Àˬd½X; ¤£´N¬O¥Î¨ÓÀËÅç¸ê®Æªº¥¿½T©Ê;·í¸ê®Æ¿é¤J¿ù»~
¦³90%ªº¾÷·|³Q¬D¥X¨Ó;¦³¤°»ò¤£¦n©O?
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó
garfield
Site Admin


µù¥U®É¶¡: 2003-01-30
¤å³¹: 2157


²Ä 3 ¼Ó

µoªíµoªí©ó: ¬P´Á¤G ¤G¤ë 22, 2022 10:27 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

§Ú¬Oı±oÀˬd½X¯à¥Î­pºâ¾÷´N¯àºâ¥X¨Ó´N¦n,
¥Î¤F¹ï·Óªí¤~¯àºâ¥X¨Ó, ¤]¤Ó½ÆÂø¤FÂI, ¤S¤£¬O­n°µ¥[±K,
¤£ª¾¥L­Ì¸ê°T¤H­û¦³¦ó¯S®í¦Ò¶q.

_________________
§Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙ­n§Ö±o¨ìµª®×.
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó
±q¤§«eªº¤å³¹¶}©lÅã¥Ü:   
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï ©Ò¦³ªº®É¶¡§¡¬° ¥x¥_®É¶¡ (GMT + 8 ¤p®É)
²Ä1­¶(¦@1­¶)

 
«e©¹:  
±z µLªk ¦b³o­Óª©­±µoªí¤å³¹
±z µLªk ¦b³o­Óª©­±¦^ÂФ峹
±z µLªk ¦b³o­Óª©­±½s¿è¤å³¹
±z µLªk ¦b³o­Óª©­±§R°£¤å³¹
±z µLªk ¦b³o­Óª©­±¶i¦æ§ë²¼
±z µLªk ¦b³o­Óª©­±ªþ¥[ÀÉ®×
±z µLªk ¦b³o­Óª©­±¤U¸üÀÉ®×


Powered by phpBB © 2001, 2005 phpBB Group
¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@