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

[µo°Ý] ½Ð±Ð¦p¦ó¸õ¹L©P¤»©P¤é¨â¤Ñ¤£ºâ?

[µo°Ý] ½Ð±Ð¦p¦ó¸õ¹L©P¤»©P¤é¨â¤Ñ¤£ºâ?

½Ð±Ð¸õ¹L©P¤»©P¤é¨â¤Ñ¤£ºâ¦¹µ{§Ç¦p¦ó§ï?
sub test()
Dim rng
For Each rng In Range("AE4:AE15")
If rng <> "" And Month(rng) = Month(Date) And Year(rng) = Year(Date) Then
If Day(Date) - Day(rng) < 4 And Day(Date) - Day(rng) >= 0 Then '«e¤T¤Ñ¨ì·í¤é
MsgBox Day(Date) - Day(rng)
End If
End If
Next
end sub

¥»©«³Ì«á¥Ñ t8899 ©ó 2014-10-25 22:17 ½s¿è

·Q¤F¤@­Ó¤p®É  :-(
Sub MA3333()
Dim rng, k, abc, date2
For Each rng In Range("AE4:AE15")  
If rng <> "" And Month(rng) = Month(Date) And Year(rng) = Year(Date) Then
'------------------------------abc¨D¥X©P¤»©P¤é¦@´X¤Ñ
abc = 0
date2 = Date
date2 = date2 - 1
For k = 1 To rng - date2  
date2 = date2 + 1
If Weekday(date2) = 1 Or Weekday(date2) = 7 Then abc = abc + 1
Next              
'-----------------------------abc¨D¥X©P¤»©P¤é¦@´X¤Ñ
If Day(rng) - Day(Date) - abc < 4 And Day(rng) - Day(Date) >= 0 Then '«e¤T¤Ñ¨ì·í¤é³qª¾
MsgBox  "«e " & Day(rng) - Day(Date)& " ¤Ñ³qª¾
End If  
End If         
'-----
Next
End Sub

TOP

¦^´_  t8899
     ·Q¨ì¤F,´N¬O§Aªº.
¥i°Ñ¦Ò¤@¤U
GBKEE µoªí©ó 2014-10-26 09:04

Weekday §Ú¤£¬O¤F¸Ñªº«Ü¥J²Ó........·PÁ«ü¾É!

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD