ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

­pºâª÷ÃB´X¦~¬°­t¼Æ

­pºâª÷ÃB´X¦~¬°­t¼Æ

¥»©«³Ì«á¥Ñ yc1031 ©ó 2024-3-20 15:41 ½s¿è

¤j®a¦n,

§Ú¦³¤@­Óªí®æ(¦pªþ¥ó), §Ú·Q½Ð°Ý¤j®a¹³³o¼Ëªºªí¦³¨S¦³¿ìªkª½±µ¥Î¤½¦¡ºâ¥XBÄ檺ª÷ÃB¨ì²Ä´X¦~·|¥Î§¹? ÁÂÁÂ! ­pºâ¥»ª÷´X¦~ªá§¹.rar (7.63 KB)

¦^´_ 1# yc1031



¦³¤H¥i¥HÀ°¦£¶Ü? ÁÂÁÂ

TOP

¦^´_ 1# yc1031

ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹©«½m²ß¦Û­q¨ç¼Æ,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
[G1]¿é¤J =Y(9000000, 70000, 0.03, 0.06, 216000) °õ¦æµ²ªG:


Option Explicit
Function Y&(¥»ª÷&, ¨C¤ëªá¶O&, ³q¿±#, °t®§#, °h¥ðª÷&)
Dim i&, ¾ã¦~ªá¶O¥[³q¿±&
For i = 1 To 10000
   ¾ã¦~ªá¶O¥[³q¿± = ¨C¤ëªá¶O * 12 * (1 + ³q¿±) ^ i
   ¥»ª÷ = ¥»ª÷ - (¾ã¦~ªá¶O¥[³q¿± - (¥»ª÷ * °t®§) - °h¥ðª÷)
   If ¥»ª÷ < 0 Then Y = i + 1: Exit For
Next
End Function
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-3-22 16:43 ½s¿è

¦^´_ 3# Andy2483

¨S¦³¦Ò¼{¨ì ªá¤£§¹ ªº±¡ªp,¾Ç²ß¤è®×¦p¤U:
Option Explicit
Function Y(¥»ª÷&, ¨C¤ëªá¶O&, ³q¿±#, °t®§#, °h¥ðª÷&)
Dim i&, ¾ã¦~ªá¶O¥[³q¿±&, ­ì¥»ª÷&
­ì¥»ª÷ = ¥»ª÷
On Error Resume Next
For i = 1 To 10000
   ¾ã¦~ªá¶O¥[³q¿± = ¨C¤ëªá¶O * 12 * (1 + ³q¿±) ^ i
   ¥»ª÷ = ¥»ª÷ - (¾ã¦~ªá¶O¥[³q¿± - (¥»ª÷ * °t®§) - °h¥ðª÷)
   If ¥»ª÷ < 0 Then
      Y = i + 1: Exit Function
   End If
Next
End Function
'======================================
¸É¥R:¥H¤W³oÅÞ¿è¦n¹³¤£¹ï,¦pªGªá¶O50000,«e´X¦~¥»ª÷·|¼W¥[(¥»ª÷>9000000),¦ý¬O²Ä18¦~¶}©l·|´î¤Ö(¥»ª÷<9000000)
¤£ª¾¹D«ç»ò³B²z?? ½Ð¦U¦ì«e½ú«ü±Ð
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 3# Andy2483


·P°Ê!  ¦³¤H¦^ÂФF

´ú¸Õ¬O¨S°ÝÃDªº,  ­ì¨Ó­n¥Î¨ìVBA¤~¯àºâ..

¦A¦¸ÁÂÁ§A

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD