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

[µo°Ý]®É¶¡®æ¦¡ªºÂà´«(¤w¸Ñ¨M)

¦^´_ 1# jiuhtsair
  1. Sub Ex()
  2.     Dim d As Date, t As Double
  3.     '1¤p®É=1 / 24
  4.     '1¤À = 1 / 24 / 60
  5.     '1¬í=1 / 24 / 60 / 60
  6.     t = (1 / 24) * 9 + (1 / 24 / 60) * 3 + (1 / 24 / 60 / 60) * 1
  7.     d = t
  8.     MsgBox t & Chr(10) & d
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD