Excel VBA中最有效,最简单的方法是将日期分类为星期

时间:2014-03-20 14:04:15

标签: vba excel-vba excel

我有一栏应该说第1周,第2周,第3周或第4周。

我想使用VBA根据文本文件中的日期输入一周......

For Example:

12/19/2013
12/01/2013
12/08/2013
12/26/2013

Excel中的输出应为:

Week 3
Week 1
Week 2
Week 4

我想在" /"上使用Split之后的4个if语句然后将字符串转换为数字,以便可以通过if语句进行比较,但如果我有像#34; 01"或者" 03",从0开始的天数不会导致if语句比较出现问题?

在VBA中有一种简单的方法吗?

2 个答案:

答案 0 :(得分:1)

有一个内置的公式功能。

http://office.microsoft.com/en-us/excel-help/weeknum-HP005209337.aspx

=weeknum(A1)

答案 1 :(得分:1)

作为评论的后续行动,这个有效:

Dim myDate as Date
myDate = DateValue("12/01/2013") 
MsgBox "Week " & (1 + DateDiff("ww", DateSerial(Year(myDate), Month(myDate), 1), myDate))