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

[µo°Ý] ­pºâ¹Lµ{¤¤·¸¦ì

[µo°Ý] ­pºâ¹Lµ{¤¤·¸¦ì

¦p¼ÐÃD¡G

·Q½Ð±Ð¦U¦ì¤j¤j¡A¦b­pºâªº¹Lµ{¤¤¡A§Ú¥u»Ý­n¨ú¨ì¤p¼ÆÂI²Ä¤G¦ì(¥|±Ë¤­¤J)¡C

¨Ò¦p¡G2.2233  => 2.22¡A§_«h±`±`·¸¦ì...

½Ð±Ð¦U¦ì¤j¤j¦p¦ó³B²z?

¦^´_ 1# EGBT


VBA ªº»¡©ú

·¸¦ì (¿ù»~ 6)
·í«ü©w¶W¥X¥Ø¼Ðªº­­¨î®É´N·|µo¥Í·¸¦ì¡C¦¹¿ù»~¦³¥H¤Uªº°_¦]©M¸Ñ¨M¤èªk¡G
¦¹«ü©wªºµ²ªG¡B­pºâ©Î¸ê®Æ«¬ºAÂà´«¤Ó¤j¥H­P©óµLªk¦bÅܼƫ¬ºA©Ò¤¹³\ªº½d³ò¤ºªí¥Ü¥X¨Ó¡C
«ü©w­È¨ì¨¬°÷ªí¥Üªº«¬ºA¤§ÅܼƤW¡C
«ü©wµ¹ÄݩʮɶW¥X¦¹Äݩʯ౵¨üªº½d³ò¡C
½T©w±zªº«ü©w¾A¦X¦¹Äݩʪº½d³ò¡C.
·í±z¸Õ¹Ï¦b­pºâ¤¤¨Ï¥Î¼Æ¦r®É¡A¼Æ¦r³Q±j­¢Âà´«¦¨¤@­Ó¾ã¼Æ¡A¦ý¬Oµ²ªG¶W¥X¤F¾ã¼Æªº½d³ò¡C¨Ò¦p¡G
    Dim x As Long

    x = 2000 * 365   ' ¿ù»~¡G·¸¦ì
­n¸Ñ¨M¸Ó°ÝÃD¡A«ö¦p¤U¤è¦¡¿é¤J¼Æ¦r¡G
    Dim x As Long
x = CLng(2000) * 365
¸Ô²Ó¸ê°T¡A¥i¿ï¨ú¦³ºÃ°Ýªº¶µ¥Ø¨Ã«ö¤U F1 (¦bWindows¤¤) ©Î HELP (¦bMacintosh¤W)¡C

¤F¸Ñ¬Ý¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim x  As Variant  '¥ô¦ó«¬ºA
  4.     Range("A1") = 500
  5.     MsgBox TypeName([a1].Value)
  6.     'Àx¦s®æ¼Æ¦r½d³ò ³£¬ODouble ¸ê®Æ«¬ºA
  7.    
  8.     MsgBox TypeName(2000)
  9.     '«¬ºAÂà´«¨ç¼Æ 'CLng  'CDbl
  10.     MsgBox TypeName(CLng(2000))
  11.     MsgBox TypeName(CDbl(2000))
  12.     x = CLng(2000) * 365
  13.     MsgBox TypeName(x)
  14.     x = 10 ^ 10
  15.     MsgBox TypeName(x)
  16.   '  x = CLng(x) * 365   '·¸¦ì
  17.     x = CDbl(x) * 365
  18.     MsgBox TypeName(x)
  19.    
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

·P®¦¤j¤j­@¤ß¦a¦^µª~

TOP

¦^´_ 2# GBKEE


    GBKEE¤j¤j..¤£¦n·N«ä¤p§ÌÁÙ¬O¼Ò¼Ò½k½kªº..

x = 2000 * 365
ºâ¥X¨Ó¬O730000

Long½d³ò-2147483648 ¨ì 2147483647

-2147483648 < x < 2147483647

¨S¦³¶W¥X½d³ò¡A¬°¤°»ò·|·¸¦ì?

ÁÙ¦³¦b¸Ñ¨M¿ìªk¨ºÃä¡A¬°¤°»ò­n¥hÂà´«Clng(2000)...?

TOP

¦^´_ 4# EGBT
±q Excel ¡yºÊ¬Ý¦¡¡zµøµ¡¤¤¨ÓÆ[¹îÅܼƫ¬ºAªºÅܤơG
  1. Sub Ex2()
  2.     Dim x As Long, y
  3.    
  4.     '  Watch :   : x           : 0       : Long
  5.     '  --------------- (Á|¨Ò¤@) --------------------------
  6.     y = 20000
  7.     '  Watch :   : y           : 20000   : Variant/Integer
  8.     x = y * 365
  9.     '  Watch :   : y * 365     : 7300000 : Variant/Long
  10.     '  Watch :   : 365         : 365     : Integer
  11.     '  Watch :   : x           : 7300000 : Long
  12.    
  13.     '  --------------- (Á|¨Ò¤G) --------------------------
  14.     x = 20000 * 365    '  °õ¦æ¶¥¬q¿ù»~ '6'¡G ·¸¦ì
  15.     '  Watch :   : 20000       : 20000   : Integer
  16.     '  Watch :   : 365         : 365     : Integer
  17.     '  Watch :   : 20000 * 365 : <·¸¦ì>  : Empty
  18.    
  19.     '  --------------- (Á|¨Ò¤T) --------------------------
  20.     x = CLng(20000) * 365
  21.     '  Watch :   : CLng(20000) : 20000   : Long
  22.     '  Watch :   : 365         : 365     : Integer
  23.     '  Watch :   : x           : 7300000 : Long
  24. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2015-11-25 20:00 ½s¿è

¦^´_ 4# EGBT
§A¥i¥H¬ÝF1»¡©ú¡A´M§äºâ³N¹Bºâ¤l¤¤ªº "* ¹Bºâ¤l"¡G
¸Ì­±¦³´£¨ì¡A
result ªº¸ê®Æ«¬ºA³q±`»P³Ìºë±Kªº¹Bºâ¦¡¬Û¦P¡C¦Óºë½T«×¥Ñ³Ì¤p¨ì³Ì¤jªº¶¶§Ç¬O Byte¡BInteger¡BLong¡BSingle¡BCurrency¡BDouble©M Decimal¡C¦ý¥H¤U¬O¨Ò¥~.......................(¦Û¤v¬Ý»¡©úªº¨Ò¥~±¡ªp¡A§Ú´N¤£¼g¤F)


2000 ©M 365 ³£¬O°µ¬° Integer¨Ó¹Bºâ¡A¥Ñ¤W­±»¡©úª¾¹D¹Bºâµ²ªG¤]·|¦s©ñ¦bInteger¸ê®Æ«¬ºAªºªÅ¶¡¡A¦ý¦]¶W¥X Integer¸ê®Æ«¬ºA¥iªí¹Fªº½d³ò©Ò¥H·¸¦ì¤F¡C

ª©¤j¥Î CLng(2000) * 365 ¸Ñ¨M¡A©Ò¥HÅܦ¨¤@­Ó Long­¼¤W¤@­Ó Integer¡A¦]¬° Long§óºë±K¡A¥Ñ¤W­±»¡©úª¾¹D¹Bºâµ²ªG¤]·|¦s©ñ¦bLong¡A©Ò¥H¨S·¸¦ì¡C

¤]¥i¼g¦¨ x= 2000& * 365¡A¼Ð©úµ{¦¡¤¤ªº2000¼Æ¦r¬O¤@­ÓLongªº¼Æ¦r(©Î¬O¨â­Ó³£¼Ð)¡A·N«ä¬O¤@¼Ëªº¡C
©Ò¥H·¸¦ì¸ò§A¤@¶}©l»¡ªº¥|±Ë¤­¤J¤@ÂIÃö«Y³£¨S¦³¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 5# c_c_lai


    ¤Ó²r°Õ~!!!·P®¦¤j¤j

TOP

¦^´_ 6# stillfish00


    ¤j¤j·PÁ§A~­@¤ß¦^µªªº«Ü²M·¡!

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD