matarillo #7546(2008/09/02 01:32 GMT) [ Other ] Rating0/0=0.00
VBA for Excel (2003)
1 2 3 4 5 6 7 8 9 10 11 12 13 14
Sub Main() t = Date p = 0 Do If DateValue("2013/12/31") = t Then Exit Do End If If Day(t) = 13 And Weekday(t) = 6 Then Range("A1").Offset(p) = t p = p + 1 End If t = t + 1 Loop End Sub
Rating0/0=0.00-0+
[ reply ]
matarillo
#7546()
[
Other
]
Rating0/0=0.00
VBA for Excel (2003)
Sub Main() t = Date p = 0 Do If DateValue("2013/12/31") = t Then Exit Do End If If Day(t) = 13 And Weekday(t) = 6 Then Range("A1").Offset(p) = t p = p + 1 End If t = t + 1 Loop End SubRating0/0=0.00-0+
[ reply ]