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

Helain

§Ú·Q­n°Ý»¡

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

ÁÂÁÂ

fyo00241

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

GBKEE

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

Helain

ÁÂÁ±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

GBKEE

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