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

[µo°Ý] ¦p¦óÅã¥Ü¹Bºâ®É¶¡

[µo°Ý] ¦p¦óÅã¥Ü¹Bºâ®É¶¡

§Ú·Q­n°Ý»¡

¦pªG·Q­nª¾¹D¾ã­Ó¬yµ{VBA¹Bºâªº°õ¦æ®É¶¡
»yªk¸Ó«ç»ò¥´?

ÁÂÁÂ

¦^´_ 1# Helain
¬O³o¼Ë¶Ü?
  1. Sub Ex()
  2.     Dim D As Date
  3.     D = Time
  4.     Application.Wait Now + #12:00:05 AM#
  5.     MsgBox Format(Time - D, "HH:MM:SS")
  6. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ±zªºÀ°¦£¡A
¤£¹L¥i¥HÀ°§Ú¸ÑÄÀ¤@¤U
Sub Ex()
    Dim D As Date
    D = Time
    Application.Wait Now + #12:00:05 AM#
    MsgBox Format(Time - D, "HH:MM:SS")
End Sub

TOP

¦^´_ 3# Helain
1¬í      ->®É¶¡ªí¥Ü¦¡  #12:00:01 AM#->®É¶¡¨ç¼Æ TimeValue( "00:00:01")
1¤À      ->®É¶¡ªí¥Ü¦¡  #12:01:00 AM#->®É¶¡¨ç¼Æ TimeValue( "00:01:00")
1¤p®É ->®É¶¡ªí¥Ü¦¡  #01:00:00 AM#->®É¶¡¨ç¼Æ TimeValue( "01:00:00")

TOP

·PÁ¤À¨É,,¾Ç²ß¤¤!!¤]¥i´ú¸Õ¤@¤Uµ{¦¡ªº§ÖºC

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD