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

[µo°Ý] ¦p¦ó¨Ï¥Î³æ¤@¿z¿ï©Ô¦h­«¸ê®Æ???¦p¹Ï

¦^´_ 1# keovin790916
§Aªº¹CÀ¸³W«h¡A½Ð»¡©ú­n¿z¿ï¡H

TOP

¦^´_ 3# keovin790916

´ú¸Õª©¤@.rar (41.75 KB)

TOP

¦^´_ 6# keovin790916
  1. Sub Ex()
  2.     Dim MyDouble As Double, MyInt As Integer
  3.    
  4.     MyDouble = 2345.4678 ' MyDouble ¬OÂùºë·Ç¼Æ¡C
  5.     MyInt = CInt(MyDouble) ' MyInt ªº­È¬°2345¡C
  6.     MsgBox MyDouble & " =" & vbCrLf & MyInt
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD