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

[µo°Ý] µ{¦¡§P©w®É¶¡ªº°ÝÃD

[µo°Ý] µ{¦¡§P©w®É¶¡ªº°ÝÃD

½Ð±Ð¤@¤U¦U¦ì¤j¤j
¦³¿ìªkÅýµ{¦¡§P©w¬Q¤Ñ8ÂI¹L«á¨ì¤µ¤Ñ¦­¤W8ÂI³o¬qªº®É¶¡¡A¤é´Á§P©w¬°¤µ¤Ñªº¤é´Á

ex:2011/6/16  08:01:57am§P©w¿é¥Xªº¸ê®Æ¬O6/17
    2011/6/17  00:00:30am§P©w¿é¥Xªº¸ê®Æ¬O6/17
¦b³Â·Ð¦U¦ìÀ°¦£¨ó§U¸Ñ¨M

Sub timenow()
d = Time
d = TimeValue(Format(d, "h:m:s"))
x = TimeValue("08:01:57")
If d >= x Then
MsgBox Date
Else: MsgBox Date - 1
End If
End Sub
GinBow

TOP

·PÁ¤j¤j
§Ú¥i¯à±Ô­zªº¤£°÷²M·¡¡A§Ú§âÀɮתþ¤W¥h

¤é´Á.zip (3.97 KB)

TOP

Åv­­¤£°÷¤£¯à¬Ý.. ¦pªG¬O­n§PÂ_¹L¥h¤@¬q´Á¶¡¸ê®Æ
¦]¸Ó´N·|¦³¤é´Á ©M®É¶¡Àx¦s®æ ´N¥Î°j°é
§âd§ï¦¨¬O§A¸ê®Æ¤Wªº®É¶¡ ¦Ü©ódate´N¬O§A¸ê®Æªº¤é´Á
GinBow

TOP

¦^´_ 3# imzues
  1. Sub nn()
  2. For Each a In Range([C2], [C65536].End(xlUp))
  3. d = CDate(Int(a))
  4. s = a - d
  5. x = CDbl(TimeValue("08:00:00"))
  6. t = IIf(s > x, 1, 0)
  7. a.Offset(, 1) = d + t
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥i¥H½Ð¤j¤jµy·L¸ÑÄÀ¤@¤U³o´X¦æ»yªk¶Ü¡H
d = CDate(Int(a))

s = a - d

x = CDbl(TimeValue("08:00:00"))

t = IIf(s > x, 1, 0)

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD