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

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

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

¥»©«³Ì«á¥Ñ jiuhtsair ©ó 2011-8-23 17:53 ½s¿è

§Ú±q¨é°ÓªºDDE¤¤¶Ç¸ê®Æ¨ìEXCEL¡A¦ý¨é°Óªº®É¶¡®æ¦¡¬O 1¬í=1/86400 ¤j¬ù¬O0.00001157407¡C
¥¦¬O¥Ñ­â±á00:00:01=0.00001157407°_ºâ¡A¤W¤È9:03:01=(9*3600+3*60+1)/86400=0.3777095
·Q½Ð±Ð¦p¦ó¦bVBA¤¤§â0.3777095³o¼Æ¦rÂন¤W¤È9:03:01?ÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 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

k = CDate(0.3777095)
MsgBox k
k = CDbl(k)
MsgBox k
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¨â¦ì¤j¤j¸Ñµª¡A´ú¸Õ¤§«á½T¹ê¦bmesage Box¤¤±o¨ì®É¶¡Åã¥Ü¡C
·Q½Ð°Ý¤j¤j¡A­n¦p¦ó¤~¯à±N¤W¤È9:03:01©ñ¦bÀx¦s®æ¤¤?(¨Ò¦p¡GA1¤º®e¬°0.3777095¡AB1¤º®e¬°9:03:01)
ÁÂÁ¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-4-26 22:34 ½s¿è

A1®æ¦¡³]¬°³q¥Î®æ¦¡
B1³]¬°®É¶¡
  1. Sub nn()
  2. [A1].NumberFormatLocal = "G/³q¥Î®æ¦¡"
  3. [B1].NumberFormatLocal = "hh:mm:ss"
  4. [A1:B1] = 0.3777095
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

£~£~...ÁÂÁ¡I¤F¸Ñ¤F¡C­ì¨Ó¦bEXCELÀx¦s®æ®æ¦¡¤¤ª½±µ¿ï¨ú-->®É¶¡-->Ãþ«¬¡A´N¥i¥H±N0.3777095Âন9:03:01¡CÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD