µ±Ç°Î»ÖÃ:

Netease BBS ¾«»ª >>ÌÖÂÛÇø¾«»ª >>µçÄÔ¼¼Êõ >>¡ñ ASP >>ASPÖÐÎļòÃ÷½Ì³Ì

·¢ÐÅÈË: nightcat (ҹè×Ó), ÐÅÇø: ASP
±ê  Ìâ: ASP ÖРÎÄ ¼ò Ã÷ ½Ì ³Ì(17)
·¢ÐÅÕ¾: ÍøÒ×ÐéÄâÉçÇø (Thu Feb  4 20:03:25 1999), Õ¾ÄÚÐżþ

 

µÚÒ»¿Î£º´´½¨ ActiveX ²ÆÎñ×é¼þ

×é¼þ½«°üº¬Ò»×éÏà¹ØµÄ·½·¨£¨º¯Êý£©£¬ÓÃÀ´Ìṩ½Å±¾ÓïÑÔËù²»¾ßÓеŦÄÜ¡£ÓÉÓÚ
 VBScript ²»Ìṩ²ÆÎñº¯Êý£¬ËùÒÔÄú±ØÐëͨ¹ý×Ô¼ºµÄ Finance ·þÎñÆ÷×é¼þÀ´Ìṩ
¶Ô Visual Basic ²ÆÎñº¯ÊýµÄʹÓÃÄÜÁ¦¡£¸Ã·þÎñÆ÷×é¼þÄÜÌṩËùÓеĠVisual Ba
sic ²ÆÎñº¯Êý£¬°üÀ¨ DDB º¯Êý£¨Ë«±¶Óà¶îµÝ¼õ·¨£©¡¢FV º¯Êý£¨Î´À´Öµ£©¡¢IPmt
 º¯Êý£¨Ö§¸¶ÀûÏ¢£©¡¢IRR º¯Êý£¨ÄÚ²¿»Ø±¨ÂÊ£©ÒÔ¼°ÆäËûº¯Êý¡£²»¹ý£¬ÔÚ±¾½Ì³ÌÖÐ
£¬Äú½«Ö»Ê¹ÓàFV º¯Êý£¬»ùÓڹ̶¨ÀûÂʼ°µÈ¶î¶¨ÆÚÖ§¸¶·½Ê½£¬·µ»ØÒ»±ÊÄê½ð¡£ 


¡¡

Æô¶¯ Visual Basic

µ¥»÷¡°¿ªÊ¼¡±°´Å¥£¬Ö¸Ïò¡°³ÌÐò¡±£¬È»ºóÖ¸Ïò¡°Microsoft Visual Basic 5.0¡±
 

µ¥»÷×Ӳ˵¥Öеġ°Visual Basic 5.0¡±£¬ÔËÐбà³Ì»·¾³¡£ 

¿ªÊ¼²¢ÃüÃûÒ»¸ö¹¤³Ì

ÔÚ¡°New Project¡±¶Ô»°¿òÖУ¬Ë«»÷¡°ActiveX DLL¡±¡£ 

ÔÚ¡°Project¡±²Ëµ¥ÉÏ£¬µ¥»÷¡°Project1 Properties¡±¡£ 

ÔÚ¡°General¡±ÊôÐÔÒ³µÄ¡°Project Name¡± ¿òÖУ¬¼üÈë¡°MS¡±¡£ 

Ñ¡Ôñ¡°Unattended Execution¡±¡£ 

×¢Òâ Ñ¡Ôñ¸ÃÑ¡Ïî±íÃ÷Õâ¸ö¹¤³ÌÔËÐÐʱ²»ÐèÒªÓû§½»»¥£¬²¢ÇÒ½«²»¾ßÓÐÓû§½»»¥µÄ
»ù´¡¡£

¡¡

µ¥»÷¡°OK¡±¡£ 

ÏÖÔÚ¹¤³Ì±»ÃüÃûΪ¡°MS¡±¡£ÒÔºó£¬Äú½«´Ó ASP ½Å±¾ÖÐÒÔ MS.Finance µÄÐÎʽÒýÓÃ
 Finance ·þÎñÆ÷×é¼þ¡£ 

¡¡

½« Finance Class Ìí¼Óµ½¹¤³ÌÖÐ

ÔÚ Visual Basic ÖУ¬ÈôÒª´´½¨¾ßÓÐÒ»×é¿ÉÒÔµ÷Óõĺ¯Êý×é¼þ£¬±ØÐ붨ÒåÒ»¸ö Àà
¡£Ò»¸öÀà°üº¬Ò»×é·½·¨ºÍÊôÐÔ¡£ÔÚÄúµÄ¹¤³ÌÖУ¬Àà¾ÍÊÇÄú˵Ã÷²ÆÎñ·½·¨µÄµØ·½¡£


¡¡

°´Ï F4 ¼ü´ò¿ªÀàÄ£¿éµÄ¡°Properties¡±´°¿Ú£¬Ë«»÷¡°Name¡±ÊôÐÔ²¢¼üÈë¡°Func
tion¡±£¬È»ºó°´ Enter¡£ 

Ë«»÷¡°Instancing¡±¡£ 

µ¥»÷¼ýÍ·£¬È»ºóÑ¡Ôñ¡°5 - MultiUse¡±¡£ 

½øÒ»²½Ñ§Ï° Visual Basic ²ÆÎñº¯Êý

Visual Basic µÄ°ïÖúϵͳÃèÊöÁË¿ÉÒÔʹÓõIJÆÎñº¯Êý¡£

¡¡

µ¥»÷¡°Help¡±¡£ 

Ñ¡Ôñ¡°Microsoft Visual Basic Help Topics¡±¡£ 

Ñ¡Ôñ¡°Index¡±Ñ¡Ï£¬È»ºó¼üÈë¡°financial functions¡±×÷Ϊ²éÕÒµÄÎÄ×Ö¡£ 


Ë«»÷¡°financial functions¡±Ë÷ÒýÌõ¡£ 

µ¥»÷¡°FV Function¡±£¬Ñ§Ï°¸Ãº¯Êý¡£ 

ѧϰÍê²ÆÎñº¯Êýºó£¬¹Ø±Õ¡°Visual Basic Help¡±¶Ô»°¿ò¡£ 

½« CalcFV º¯ÊýÌí¼Óµ½ Finance Àà

Finance ·þÎñÆ÷×é¼þÐèҪһЩ´úÂë¡£ÕâЩ´úÂëÈÃʹÓÃÄú×é¼þµÄÓïÑÔ¿ÉÒÔµ÷ÓàVis
ual Basic ÄÚ½¨µÄδÀ´Öµº¯Êý¡£ 

¡¡

½«ÏÂÁÐÐи´ÖƲ¢Õ³Ìùµ½ Finance ÀàµÄ´úÂë´°¿ÚÖУº

¡¡

Public Function CalcFV(rate, nper, pmt, Optional pv, Optional whendue)
 

CalcFV = FV(rate, nper, pmt, pv, whendue)

End Function

Ìí¼Ó×é¼þµÄÈë¿Úµã

ËùÓзþÎñÆ÷×é¼þ¶¼ÐèÒªÒ»¸öÈë¿Ú£¨Æðʼ£©µã¡£ÕâÊǵ±¶ÔÏóµÚÒ»´Î¿ÉÓÃÓÚÒ»ÖÖÓïÑÔ
ʱ£¬½«±»µ÷ÓõĴúÂë¡£ÔÚ VBScript ÖУ¬µ±ÄúʹÓàServer.CreateObject Ê±£¬½«
´´½¨¶ÔÏóµÄÒ»¸öʵÀý¡£µ±Ö´ÐРServer.CreateObject Óï¾äʱ£¬£¨ÓÉ Visual Bas
ic ´´½¨µÄ£©·þÎñÆ÷×é¼þÉϵĠSub Main ¹ý³Ì½«±»µ÷Óá£

µ±ÄúµÄ²ÆÎñ×é¼þ±»µ÷ÓÃʱ£¬Ëü²»ÐèÒªÈκÎÌØÊâ´úÂëÀ´³õʼ»¯×ÔÉí¡£Òò´Ë£¬ÐèÒªÌá
¹©Ò»¸ö¿ÕµÄ£¨Ã»ÓРVisual Basic Óï¾äµÄ£©Sub Main ¹ý³Ì¡£ 

¡¡

Ñ¡Ôñ¡°Project¡±²Ëµ¥Öеġ°Add Module¡±¡£ 

ÔÚ¡°Module 1¡±¶Ô»°¿òÖУ¬Ë«»÷Ä£¿éͼ±ê¡£ 

ÔÚ Module 1 ´úÂë´°¿ÚÖУ¬¼üÈë Sub Main¡£ 

°´Ï Enter ¼ü¡£ 

½«×Ô¶¯½øÈëÈçÏ´úÂ룺

¡¡

Sub Main()

End Sub

±£´æ Finance ¹¤³Ì

µ±±£´æËù×÷µÄ¹¤×÷ʱ£¬½«Ñ¯ÎÊÄúÊÇ·ñ±£´æ Visual Basic ¹¤³ÌµÄÈ«²¿ 3 ²¿·Ö¡£Æä
ÖаüÀ¨¹¤³ÌÎļþ¡¢ÀàÄ£¿éºÍ´úÂëÄ£¿é¡£

¡¡

´ò¿ª¡°File¡±²Ëµ¥¡£ 

Ñ¡Ôñ¡°Save Project¡±¡£ 

ÔÚ¡°File name¡±Îı¾¿òÖУ¬¼üÈë¡°Finance¡±¡£Ñ¡Ôñ localhost Web ·þÎñÆ÷ÉϵÄ
ÈçÏ·¾¶£ºDriveLetter:\Winnt\System32\Inetsrv\£¬ÆäÖРDriveLetter ÊÇÊʵ±
µÄÇý¶¯Æ÷ºÅ¡££¨Èç¹ûÄúûÓнÓÊÜĬÈϵݲװĿ¼£¬ÇëÓÃÄúµÄ°²×°Ä¿Â¼Ìæ»» \Winn
t\System32¡££© 

µ¥»÷¡°Save¡±°´Å¥¡£ 

Èç¹ûÔÚ´ËÒÔǰ£¬ÁíÒ»¸öÓû§ÒѾ­Ñ§ÍêÁ˽̵̳ÄÕâÒ»²¿·Ö£¬½«³öÏÖÒ»ÌõÏûÏ¢£¬Ìáʾ
ÎļþÒѾ­´æÔÚ¡£ÇëÓÃÄúµÄÎļþ¸²¸Ç¾ÉÎļþ¡£

¡¡

Ë«»÷¡°File name¡±Îı¾¿òÖеÄÖµ ¡°Project1¡±£¬Ñ¡ÖÐËü¡£ 

Ϊ¹¤³ÌÎļþ¼üÈëÃû³Æ¡°Finance¡± (.vbp)¡£ 

µ¥»÷¡°Save¡±°´Å¥±£´æ¹¤³Ì¡£ 

Èç¹ûÔÚ´ËÒÔǰ£¬ÁíÒ»¸öÓû§ÒѾ­Ñ§ÍêÁ˽̵̳ÄÕâÒ»²¿·Ö£¬½«³öÏÖÒ»ÌõÏûÐÅÏ¢£¬Ìá
ʾÎļþÒѾ­´æÔÚ¡£ÇëÓÃÄúµÄÎļþ¸²¸Ç¾ÉÎļþ¡£

¡¡

³ÉΪ¡°½ø³ÌÄÚ (In-Process)¡±×é¼þ

Visual Basic ÔÊÐíÄú´´½¨½ø³ÌÄÚ ActiveX ×é¼þ£¨Í¨³£³ÆÎª OLE ×Ô¶¯·þÎñÆ÷£©ºÍ
½ø³ÌÍâ ActiveX ×é¼þ¡£Ò»¸ö½ø³ÌÄÚ ActiveX ×é¼þÊÇÒ»¸ö¶¯Ì¬Á´½Ó¿â£¨´ø .dll 
ºó׺£©£¬Óɵ÷ÓÃËüµÄ½ø³Ì½øÐмÓÔØ¡£Ò»¸ö½ø³ÌÍâ ActiveX ×é¼þÊÇÒ»¸ö¿ÉÖ´ÐÐÎļþ
£¨´ø .exe ºó׺£©£¬µ±Ëü±»Ó¦ÓóÌÐòµ÷Óúó£¬ÒÔ¶ÀÁ¢½ø³ÌµÄ״̬ÔËÐС£ÓÉÓÚ½ø³Ì
ÄÚ×é¼þÓëµ÷ÓÃËüµÄ³ÌÐòÔÚͬһ¸ö½ø³Ì¿Õ¼ä£¬ËùÒÔÐÔÄܱȽø³ÌÍâ×é¼þÒª¼Ñ¡£

ʹ Finance ·þÎñÆ÷×é¼þ³ÉΪ½ø³ÌÄÚ ActiveX ×é¼þ

´ò¿ª¡°File¡±²Ëµ¥¡£ 

Ñ¡¶¨¡°Make Finance.dll¡±¡£ 

µ¥»÷¡°Options¡±°´Å¥¡£ 

Ñ¡¶¨¡°Auto Increment¡±¸´Ñ¡¿ò¡£ 

µ¥»÷¡°OK¡±¡£ 

¼üÈë DriveLetter:\localhost\Winnt\System32\Inetsrv\Finance£¬ÆäÖРDrive
Letter ÊÇÊʵ±µÄÇý¶¯Æ÷ºÅ¡££¨Èç¹ûÄúûÓнÓÊÜĬÈϵݲװĿ¼£¬ÇëÓÃÄúµÄ°²×°Ä¿
Â¼Ìæ»» \Winnt\System32¡££©

Èç¹ûÔÚ´ËÒÔǰ£¬ÁíÒ»¸öÓû§ÒѾ­Ñ§ÍêÁ˽̵̳ÄÕâÒ»²¿·Ö£¬½«³öÏÖÒ»ÌõÏûÐÅÏ¢£¬Ìá
ʾÎļþÒѾ­´æÔÚ¡£ÇëÓÃÄúµÄÎļþ¸²¸Ç¾ÉÎļþ¡£ 

Í˳ö Visual Basic¡£ 

×¢²á Finance ·þÎñÆ÷×é¼þ

ËùÓзþÎñÆ÷×é¼þ¶¼±ØÐë×¢²á¡£Windows NT ºÍ Windows 95 ÓÃϵͳע²á±íÀ´×·×ÙÄÄ
¸ö·þÎñÆ÷×é¼þÊÇ¿ÉÓõġ£ÔÚÄúµÄ¼ÆËã»úÉϽ« Finance ·þÎñÆ÷×é¼þ×¢²áºó£¬¾Í¿ÉÒÔ
ÔÚ VBScript ºÍËùÓмæÈÝ OLE µÄÓïÑÔÖе÷ÓÃËüÁË¡£

´ò¿ªÒ»¸öÃüÁîÌáʾ·û´°¿Ú¡£ 

ÔÚÃüÁîÌáʾ·ûºó¼üÈë cd Drive Letter:\localhost\Winnt\System32\Inetsrv£¬
ÆäÖРDriveLetter ÊÇÊʵ±µÄÇý¶¯Æ÷ºÅ¡££¨Èç¹ûÄúûÓнÓÊÜĬÈϵݲװĿ¼£¬ÇëÓÃ
ÄúµÄ°²×°Ä¿Â¼Ìæ»» \Winnt\System32¡££© 

°´Ï Enter ¼ü¡£ 

¼üÈë regsvr32 Finance.dll¡£ 

°´Ï Enter ¼ü¡£ 

µ±³öÏÖÒ»¸ö¶Ô»°¿òÏÔʾ¡°DllRegisterServer in finance.dll succeeded¡±Ê±£¬
Çëµ¥»÷¡°OK¡±°´Å¥¡£ 

¹Ø±ÕÃüÁîÌáʾ·û´°¿Ú¡£ 

--
¡ù À´Ô´:£®ÍøÒ×ÐéÄâÉçÇø http://club.netease.com£®[FROM: 202.97.7.19]Ä m


µ±Ç°Î»ÖÃ:

Netease BBS ¾«»ª >>ÌÖÂÛÇø¾«»ª >>µçÄÔ¼¼Êõ >>¡ñ ASP >>ASPÖÐÎļòÃ÷½Ì³Ì
 
(C)1997-1998 °æÈ¨ËùÓÐ
¹ãÖÝÍøÒ×¼ÆËã»úϵͳÓÐÏÞ¹«Ë¾