Function CURRENT_WEEK(IsToday)

Dim Today As Date

Today = CDate(IsToday)
If Year(Today) = 2002 And Month(Today) = 9 And Day(Today) >= 8 And Day(Today) <= 14 Then CURRENT_WEEK = 7
If Year(Today) = 2002 And Month(Today) = 9 And Day(Today) >= 15 And Day(Today) <= 21 Then CURRENT_WEEK = 8
If Year(Today) = 2002 And Month(Today) = 9 And Day(Today) >= 22 And Day(Today) <= 28 Then CURRENT_WEEK = 9
If Year(Today) = 2002 And Month(Today) = 9 And Day(Today) >= 29 And Day(Today) <= 30 Then CURRENT_WEEK = 10
If Year(Today) = 2002 And Month(Today) = 10 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 10
If Year(Today) = 2002 And Month(Today) = 10 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 11
If Year(Today) = 2002 And Month(Today) = 10 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 12
If Year(Today) = 2002 And Month(Today) = 10 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 13
If Year(Today) = 2002 And Month(Today) = 10 And Day(Today) >= 27 And Day(Today) <= 31 Then CURRENT_WEEK = 14
If Year(Today) = 2002 And Month(Today) = 11 And Day(Today) >= 1 And Day(Today) <= 2 Then CURRENT_WEEK = 14
If Year(Today) = 2002 And Month(Today) = 11 And Day(Today) >= 3 And Day(Today) <= 9 Then CURRENT_WEEK = 15
If Year(Today) = 2002 And Month(Today) = 11 And Day(Today) >= 10 And Day(Today) <= 16 Then CURRENT_WEEK = 16
If Year(Today) = 2002 And Month(Today) = 11 And Day(Today) >= 17 And Day(Today) <= 23 Then CURRENT_WEEK = 17
If Year(Today) = 2002 And Month(Today) = 11 And Day(Today) >= 24 And Day(Today) <= 30 Then CURRENT_WEEK = 18
If Year(Today) = 2002 And Month(Today) = 12 And Day(Today) >= 1 And Day(Today) <= 7 Then CURRENT_WEEK = 19
If Year(Today) = 2002 And Month(Today) = 12 And Day(Today) >= 8 And Day(Today) <= 14 Then CURRENT_WEEK = 20
If Year(Today) = 2002 And Month(Today) = 12 And Day(Today) >= 15 And Day(Today) <= 21 Then CURRENT_WEEK = 21
If Year(Today) = 2002 And Month(Today) = 12 And Day(Today) >= 22 And Day(Today) <= 28 Then CURRENT_WEEK = 22
If Year(Today) = 2002 And Month(Today) = 12 And Day(Today) >= 29 And Day(Today) <= 31 Then CURRENT_WEEK = 23
If Year(Today) = 2003 And Month(Today) = 1 And Day(Today) >= 1 And Day(Today) <= 4 Then CURRENT_WEEK = 23
If Year(Today) = 2003 And Month(Today) = 1 And Day(Today) >= 5 And Day(Today) <= 11 Then CURRENT_WEEK = 24
If Year(Today) = 2003 And Month(Today) = 1 And Day(Today) >= 12 And Day(Today) <= 18 Then CURRENT_WEEK = 25
If Year(Today) = 2003 And Month(Today) = 1 And Day(Today) >= 19 And Day(Today) <= 25 Then CURRENT_WEEK = 26
If Year(Today) = 2003 And Month(Today) = 1 And Day(Today) >= 26 And Day(Today) <= 31 Then CURRENT_WEEK = 27
If Year(Today) = 2003 And Month(Today) = 2 And Day(Today) = 1 Then CURRENT_WEEK = 27
If Year(Today) = 2003 And Month(Today) = 2 And Day(Today) >= 2 And Day(Today) <= 8 Then CURRENT_WEEK = 28
If Year(Today) = 2003 And Month(Today) = 2 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 29
If Year(Today) = 2003 And Month(Today) = 2 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 30
If Year(Today) = 2003 And Month(Today) = 2 And Day(Today) >= 23 And Day(Today) <= 28 Then CURRENT_WEEK = 31
If Year(Today) = 2003 And Month(Today) = 3 And Day(Today) = 1 Then CURRENT_WEEK = 31
If Year(Today) = 2003 And Month(Today) = 3 And Day(Today) >= 2 And Day(Today) <= 8 Then CURRENT_WEEK = 32
If Year(Today) = 2003 And Month(Today) = 3 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 33
If Year(Today) = 2003 And Month(Today) = 3 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 34
If Year(Today) = 2003 And Month(Today) = 3 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 35
If Year(Today) = 2003 And Month(Today) = 3 And Day(Today) >= 30 And Day(Today) <= 31 Then CURRENT_WEEK = 36
If Year(Today) = 2003 And Month(Today) = 4 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 36
If Year(Today) = 2003 And Month(Today) = 4 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 37
If Year(Today) = 2003 And Month(Today) = 4 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 38
If Year(Today) = 2003 And Month(Today) = 4 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 39
If Year(Today) = 2003 And Month(Today) = 4 And Day(Today) >= 27 And Day(Today) <= 30 Then CURRENT_WEEK = 40
If Year(Today) = 2003 And Month(Today) = 5 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 40
If Year(Today) = 2003 And Month(Today) = 5 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 41
If Year(Today) = 2003 And Month(Today) = 5 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 42
If Year(Today) = 2003 And Month(Today) = 5 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 43
If Year(Today) = 2003 And Month(Today) = 5 And Day(Today) >= 25 And Day(Today) <= 31 Then CURRENT_WEEK = 44
If Year(Today) = 2003 And Month(Today) = 6 And Day(Today) >= 1 And Day(Today) <= 7 Then CURRENT_WEEK = 45
If Year(Today) = 2003 And Month(Today) = 6 And Day(Today) >= 8 And Day(Today) <= 14 Then CURRENT_WEEK = 46
If Year(Today) = 2003 And Month(Today) = 6 And Day(Today) >= 15 And Day(Today) <= 21 Then CURRENT_WEEK = 47
If Year(Today) = 2003 And Month(Today) = 6 And Day(Today) >= 22 And Day(Today) <= 28 Then CURRENT_WEEK = 48
If Year(Today) = 2003 And Month(Today) = 6 And Day(Today) >= 29 And Day(Today) <= 30 Then CURRENT_WEEK = 49
If Year(Today) = 2003 And Month(Today) = 7 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 49
If Year(Today) = 2003 And Month(Today) = 7 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 50
If Year(Today) = 2003 And Month(Today) = 7 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 51
If Year(Today) = 2003 And Month(Today) = 7 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 52
If Year(Today) = 2003 And Month(Today) = 7 And Day(Today) >= 27 And Day(Today) <= 31 Then CURRENT_WEEK = 1
If Year(Today) = 2003 And Month(Today) = 8 And Day(Today) >= 1 And Day(Today) <= 2 Then CURRENT_WEEK = 1
If Year(Today) = 2003 And Month(Today) = 8 And Day(Today) >= 3 And Day(Today) <= 9 Then CURRENT_WEEK = 2
If Year(Today) = 2003 And Month(Today) = 8 And Day(Today) >= 10 And Day(Today) <= 16 Then CURRENT_WEEK = 3
If Year(Today) = 2003 And Month(Today) = 8 And Day(Today) >= 17 And Day(Today) <= 23 Then CURRENT_WEEK = 4
If Year(Today) = 2003 And Month(Today) = 8 And Day(Today) >= 24 And Day(Today) <= 30 Then CURRENT_WEEK = 5
If Year(Today) = 2003 And Month(Today) = 8 And Day(Today) = 31 Then CURRENT_WEEK = 6
If Year(Today) = 2003 And Month(Today) = 9 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 6
If Year(Today) = 2003 And Month(Today) = 9 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 7
If Year(Today) = 2003 And Month(Today) = 9 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 8
If Year(Today) = 2003 And Month(Today) = 9 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 9
If Year(Today) = 2003 And Month(Today) = 9 And Day(Today) >= 28 And Day(Today) <= 30 Then CURRENT_WEEK = 10
If Year(Today) = 2003 And Month(Today) = 10 And Day(Today) >= 1 And Day(Today) <= 4 Then CURRENT_WEEK = 10
If Year(Today) = 2003 And Month(Today) = 10 And Day(Today) >= 5 And Day(Today) <= 11 Then CURRENT_WEEK = 11
If Year(Today) = 2003 And Month(Today) = 10 And Day(Today) >= 12 And Day(Today) <= 18 Then CURRENT_WEEK = 12
If Year(Today) = 2003 And Month(Today) = 10 And Day(Today) >= 19 And Day(Today) <= 25 Then CURRENT_WEEK = 13
If Year(Today) = 2003 And Month(Today) = 10 And Day(Today) >= 26 And Day(Today) <= 31 Then CURRENT_WEEK = 14
If Year(Today) = 2003 And Month(Today) = 11 And Day(Today) = 1 Then CURRENT_WEEK = 14
If Year(Today) = 2003 And Month(Today) = 11 And Day(Today) >= 2 And Day(Today) <= 8 Then CURRENT_WEEK = 15
If Year(Today) = 2003 And Month(Today) = 11 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 16
If Year(Today) = 2003 And Month(Today) = 11 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 17
If Year(Today) = 2003 And Month(Today) = 11 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 18
If Year(Today) = 2003 And Month(Today) = 11 And Day(Today) = 30 Then CURRENT_WEEK = 19
If Year(Today) = 2003 And Month(Today) = 12 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 19
If Year(Today) = 2003 And Month(Today) = 12 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 20
If Year(Today) = 2003 And Month(Today) = 12 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 21
If Year(Today) = 2003 And Month(Today) = 12 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 22
If Year(Today) = 2003 And Month(Today) = 12 And Day(Today) >= 28 And Day(Today) <= 31 Then CURRENT_WEEK = 23
If Year(Today) = 2004 And Month(Today) = 1 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 23
If Year(Today) = 2004 And Month(Today) = 1 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 24
If Year(Today) = 2004 And Month(Today) = 1 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 25
If Year(Today) = 2004 And Month(Today) = 1 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 26
If Year(Today) = 2004 And Month(Today) = 1 And Day(Today) >= 25 And Day(Today) <= 31 Then CURRENT_WEEK = 27
If Year(Today) = 2004 And Month(Today) = 2 And Day(Today) >= 1 And Day(Today) <= 7 Then CURRENT_WEEK = 28
If Year(Today) = 2004 And Month(Today) = 2 And Day(Today) >= 8 And Day(Today) <= 14 Then CURRENT_WEEK = 29
If Year(Today) = 2004 And Month(Today) = 2 And Day(Today) >= 15 And Day(Today) <= 21 Then CURRENT_WEEK = 30
If Year(Today) = 2004 And Month(Today) = 2 And Day(Today) >= 22 And Day(Today) <= 28 Then CURRENT_WEEK = 31
If Year(Today) = 2004 And Month(Today) = 2 And Day(Today) = 29 Then CURRENT_WEEK = 32
If Year(Today) = 2004 And Month(Today) = 3 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 32
If Year(Today) = 2004 And Month(Today) = 3 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 33
If Year(Today) = 2004 And Month(Today) = 3 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 34
If Year(Today) = 2004 And Month(Today) = 3 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 35
If Year(Today) = 2004 And Month(Today) = 3 And Day(Today) >= 28 And Day(Today) <= 31 Then CURRENT_WEEK = 36
If Year(Today) = 2004 And Month(Today) = 4 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 36
If Year(Today) = 2004 And Month(Today) = 4 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 37
If Year(Today) = 2004 And Month(Today) = 4 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 38
If Year(Today) = 2004 And Month(Today) = 4 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 39
If Year(Today) = 2004 And Month(Today) = 4 And Day(Today) >= 25 And Day(Today) <= 30 Then CURRENT_WEEK = 40
If Year(Today) = 2004 And Month(Today) = 5 And Day(Today) = 1 Then CURRENT_WEEK = 40
If Year(Today) = 2004 And Month(Today) = 5 And Day(Today) >= 2 And Day(Today) <= 8 Then CURRENT_WEEK = 41
If Year(Today) = 2004 And Month(Today) = 5 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 42
If Year(Today) = 2004 And Month(Today) = 5 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 43
If Year(Today) = 2004 And Month(Today) = 5 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 44
If Year(Today) = 2004 And Month(Today) = 5 And Day(Today) >= 30 And Day(Today) <= 31 Then CURRENT_WEEK = 45
If Year(Today) = 2004 And Month(Today) = 6 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 45
If Year(Today) = 2004 And Month(Today) = 6 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 46
If Year(Today) = 2004 And Month(Today) = 6 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 47
If Year(Today) = 2004 And Month(Today) = 6 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 48
If Year(Today) = 2004 And Month(Today) = 6 And Day(Today) >= 27 And Day(Today) <= 30 Then CURRENT_WEEK = 49
If Year(Today) = 2004 And Month(Today) = 7 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 49
If Year(Today) = 2004 And Month(Today) = 7 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 50
If Year(Today) = 2004 And Month(Today) = 7 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 51
If Year(Today) = 2004 And Month(Today) = 7 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 52
If Year(Today) = 2004 And Month(Today) = 7 And Day(Today) >= 25 And Day(Today) <= 31 Then CURRENT_WEEK = 53
If Year(Today) = 2004 And Month(Today) = 8 And Day(Today) >= 1 And Day(Today) <= 8 Then CURRENT_WEEK = 1
If Year(Today) = 2004 And Month(Today) = 8 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 2
If Year(Today) = 2004 And Month(Today) = 8 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 3
If Year(Today) = 2004 And Month(Today) = 8 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 4
If Year(Today) = 2004 And Month(Today) = 8 And Day(Today) >= 30 And Day(Today) <= 31 Then CURRENT_WEEK = 5
If Year(Today) = 2004 And Month(Today) = 9 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 5
If Year(Today) = 2004 And Month(Today) = 9 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 6
If Year(Today) = 2004 And Month(Today) = 9 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 7
If Year(Today) = 2004 And Month(Today) = 9 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 8
If Year(Today) = 2004 And Month(Today) = 9 And Day(Today) >= 27 And Day(Today) <= 30 Then CURRENT_WEEK = 9
If Year(Today) = 2004 And Month(Today) = 10 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 9
If Year(Today) = 2004 And Month(Today) = 10 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 10
If Year(Today) = 2004 And Month(Today) = 10 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 11
If Year(Today) = 2004 And Month(Today) = 10 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 12
If Year(Today) = 2004 And Month(Today) = 10 And Day(Today) >= 25 And Day(Today) <= 31 Then CURRENT_WEEK = 13
If Year(Today) = 2004 And Month(Today) = 11 And Day(Today) >= 1 And Day(Today) <= 7 Then CURRENT_WEEK = 14
If Year(Today) = 2004 And Month(Today) = 11 And Day(Today) >= 8 And Day(Today) <= 14 Then CURRENT_WEEK = 15
If Year(Today) = 2004 And Month(Today) = 11 And Day(Today) >= 15 And Day(Today) <= 21 Then CURRENT_WEEK = 16
If Year(Today) = 2004 And Month(Today) = 11 And Day(Today) >= 22 And Day(Today) <= 28 Then CURRENT_WEEK = 17
If Year(Today) = 2004 And Month(Today) = 11 And Day(Today) >= 29 And Day(Today) <= 30 Then CURRENT_WEEK = 18
If Year(Today) = 2004 And Month(Today) = 12 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 18
If Year(Today) = 2004 And Month(Today) = 12 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 19
If Year(Today) = 2004 And Month(Today) = 12 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 20
If Year(Today) = 2004 And Month(Today) = 12 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 21
If Year(Today) = 2004 And Month(Today) = 12 And Day(Today) >= 27 And Day(Today) <= 31 Then CURRENT_WEEK = 22
If Year(Today) = 2005 And Month(Today) = 1 And Day(Today) >= 1 And Day(Today) <= 2 Then CURRENT_WEEK = 22
If Year(Today) = 2005 And Month(Today) = 1 And Day(Today) >= 3 And Day(Today) <= 9 Then CURRENT_WEEK = 23
If Year(Today) = 2005 And Month(Today) = 1 And Day(Today) >= 10 And Day(Today) <= 16 Then CURRENT_WEEK = 24
If Year(Today) = 2005 And Month(Today) = 1 And Day(Today) >= 17 And Day(Today) <= 23 Then CURRENT_WEEK = 25
If Year(Today) = 2005 And Month(Today) = 1 And Day(Today) >= 24 And Day(Today) <= 30 Then CURRENT_WEEK = 26
If Year(Today) = 2005 And Month(Today) = 1 And Day(Today) = 31 Then CURRENT_WEEK = 27
If Year(Today) = 2005 And Month(Today) = 2 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 27
If Year(Today) = 2005 And Month(Today) = 2 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 28
If Year(Today) = 2005 And Month(Today) = 2 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 29
If Year(Today) = 2005 And Month(Today) = 2 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 30
If Year(Today) = 2005 And Month(Today) = 2 And Day(Today) = 28 Then CURRENT_WEEK = 31
If Year(Today) = 2005 And Month(Today) = 3 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 31
If Year(Today) = 2005 And Month(Today) = 3 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 32
If Year(Today) = 2005 And Month(Today) = 3 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 33
If Year(Today) = 2005 And Month(Today) = 3 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 34
If Year(Today) = 2005 And Month(Today) = 3 And Day(Today) >= 28 And Day(Today) <= 31 Then CURRENT_WEEK = 35
If Year(Today) = 2005 And Month(Today) = 4 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 35
If Year(Today) = 2005 And Month(Today) = 4 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 36
If Year(Today) = 2005 And Month(Today) = 4 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 37
If Year(Today) = 2005 And Month(Today) = 4 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 38
If Year(Today) = 2005 And Month(Today) = 4 And Day(Today) >= 25 And Day(Today) <= 30 Then CURRENT_WEEK = 39
If Year(Today) = 2005 And Month(Today) = 5 And Day(Today) >= 1 And Day(Today) <= 8 Then CURRENT_WEEK = 40
If Year(Today) = 2005 And Month(Today) = 5 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 41
If Year(Today) = 2005 And Month(Today) = 5 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 42
If Year(Today) = 2005 And Month(Today) = 5 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 43
If Year(Today) = 2005 And Month(Today) = 5 And Day(Today) >= 30 And Day(Today) <= 31 Then CURRENT_WEEK = 44
If Year(Today) = 2005 And Month(Today) = 6 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 44
If Year(Today) = 2005 And Month(Today) = 6 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 45
If Year(Today) = 2005 And Month(Today) = 6 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 46
If Year(Today) = 2005 And Month(Today) = 6 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 47
If Year(Today) = 2005 And Month(Today) = 6 And Day(Today) >= 27 And Day(Today) <= 30 Then CURRENT_WEEK = 48
If Year(Today) = 2005 And Month(Today) = 7 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 48
If Year(Today) = 2005 And Month(Today) = 7 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 49
If Year(Today) = 2005 And Month(Today) = 7 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 50
If Year(Today) = 2005 And Month(Today) = 7 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 51
If Year(Today) = 2005 And Month(Today) = 7 And Day(Today) >= 25 And Day(Today) <= 31 Then CURRENT_WEEK = 52
If Year(Today) = 2005 And Month(Today) = 8 And Day(Today) >= 1 And Day(Today) <= 7 Then CURRENT_WEEK = 1
If Year(Today) = 2005 And Month(Today) = 8 And Day(Today) >= 8 And Day(Today) <= 14 Then CURRENT_WEEK = 2
If Year(Today) = 2005 And Month(Today) = 8 And Day(Today) >= 15 And Day(Today) <= 21 Then CURRENT_WEEK = 3
If Year(Today) = 2005 And Month(Today) = 8 And Day(Today) >= 22 And Day(Today) <= 28 Then CURRENT_WEEK = 4
If Year(Today) = 2005 And Month(Today) = 8 And Day(Today) >= 29 And Day(Today) <= 31 Then CURRENT_WEEK = 5
If Year(Today) = 2005 And Month(Today) = 9 And Day(Today) >= 1 And Day(Today) <= 4 Then CURRENT_WEEK = 5
If Year(Today) = 2005 And Month(Today) = 9 And Day(Today) >= 5 And Day(Today) <= 11 Then CURRENT_WEEK = 6
If Year(Today) = 2005 And Month(Today) = 9 And Day(Today) >= 12 And Day(Today) <= 18 Then CURRENT_WEEK = 7
If Year(Today) = 2005 And Month(Today) = 9 And Day(Today) >= 19 And Day(Today) <= 25 Then CURRENT_WEEK = 8
If Year(Today) = 2005 And Month(Today) = 9 And Day(Today) >= 26 And Day(Today) <= 30 Then CURRENT_WEEK = 9
If Year(Today) = 2005 And Month(Today) = 10 And Day(Today) >= 1 And Day(Today) <= 2 Then CURRENT_WEEK = 9
If Year(Today) = 2005 And Month(Today) = 10 And Day(Today) >= 3 And Day(Today) <= 9 Then CURRENT_WEEK = 10
If Year(Today) = 2005 And Month(Today) = 10 And Day(Today) >= 10 And Day(Today) <= 16 Then CURRENT_WEEK = 11
If Year(Today) = 2005 And Month(Today) = 10 And Day(Today) >= 17 And Day(Today) <= 23 Then CURRENT_WEEK = 12
If Year(Today) = 2005 And Month(Today) = 10 And Day(Today) >= 24 And Day(Today) <= 30 Then CURRENT_WEEK = 13
If Year(Today) = 2005 And Month(Today) = 10 And Day(Today) = 31 Then CURRENT_WEEK = 14
If Year(Today) = 2005 And Month(Today) = 11 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 14
If Year(Today) = 2005 And Month(Today) = 11 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 15
If Year(Today) = 2005 And Month(Today) = 11 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 16
If Year(Today) = 2005 And Month(Today) = 11 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 17
If Year(Today) = 2005 And Month(Today) = 11 And Day(Today) >= 28 And Day(Today) <= 30 Then CURRENT_WEEK = 18
If Year(Today) = 2005 And Month(Today) = 12 And Day(Today) >= 1 And Day(Today) <= 4 Then CURRENT_WEEK = 18
If Year(Today) = 2005 And Month(Today) = 12 And Day(Today) >= 5 And Day(Today) <= 11 Then CURRENT_WEEK = 19
If Year(Today) = 2005 And Month(Today) = 12 And Day(Today) >= 12 And Day(Today) <= 18 Then CURRENT_WEEK = 20
If Year(Today) = 2005 And Month(Today) = 12 And Day(Today) >= 19 And Day(Today) <= 25 Then CURRENT_WEEK = 21
If Year(Today) = 2005 And Month(Today) = 12 And Day(Today) >= 26 And Day(Today) <= 31 Then CURRENT_WEEK = 22
If Year(Today) = 2006 And Month(Today) = 1 And Day(Today) = 1 Then CURRENT_WEEK = 22
If Year(Today) = 2006 And Month(Today) = 1 And Day(Today) >= 2 And Day(Today) <= 8 Then CURRENT_WEEK = 23
If Year(Today) = 2006 And Month(Today) = 1 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 24
If Year(Today) = 2006 And Month(Today) = 1 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 25
If Year(Today) = 2006 And Month(Today) = 1 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 26
If Year(Today) = 2006 And Month(Today) = 1 And Day(Today) >= 30 And Day(Today) <= 31 Then CURRENT_WEEK = 27
If Year(Today) = 2006 And Month(Today) = 2 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 27
If Year(Today) = 2006 And Month(Today) = 2 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 28
If Year(Today) = 2006 And Month(Today) = 2 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 29
If Year(Today) = 2006 And Month(Today) = 2 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 30
If Year(Today) = 2006 And Month(Today) = 2 And Day(Today) >= 27 And Day(Today) <= 28 Then CURRENT_WEEK = 31
If Year(Today) = 2006 And Month(Today) = 3 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 31
If Year(Today) = 2006 And Month(Today) = 3 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 32
If Year(Today) = 2006 And Month(Today) = 3 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 33
If Year(Today) = 2006 And Month(Today) = 3 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 34
If Year(Today) = 2006 And Month(Today) = 3 And Day(Today) >= 27 And Day(Today) <= 31 Then CURRENT_WEEK = 35
If Year(Today) = 2006 And Month(Today) = 4 And Day(Today) >= 1 And Day(Today) <= 2 Then CURRENT_WEEK = 35
If Year(Today) = 2006 And Month(Today) = 4 And Day(Today) >= 3 And Day(Today) <= 9 Then CURRENT_WEEK = 36
If Year(Today) = 2006 And Month(Today) = 4 And Day(Today) >= 10 And Day(Today) <= 16 Then CURRENT_WEEK = 37
If Year(Today) = 2006 And Month(Today) = 4 And Day(Today) >= 17 And Day(Today) <= 23 Then CURRENT_WEEK = 38
If Year(Today) = 2006 And Month(Today) = 4 And Day(Today) >= 24 And Day(Today) <= 30 Then CURRENT_WEEK = 39
If Year(Today) = 2006 And Month(Today) = 5 And Day(Today) >= 1 And Day(Today) <= 7 Then CURRENT_WEEK = 40
If Year(Today) = 2006 And Month(Today) = 5 And Day(Today) >= 8 And Day(Today) <= 14 Then CURRENT_WEEK = 41
If Year(Today) = 2006 And Month(Today) = 5 And Day(Today) >= 15 And Day(Today) <= 21 Then CURRENT_WEEK = 42
If Year(Today) = 2006 And Month(Today) = 5 And Day(Today) >= 22 And Day(Today) <= 28 Then CURRENT_WEEK = 43
If Year(Today) = 2006 And Month(Today) = 5 And Day(Today) >= 29 And Day(Today) <= 31 Then CURRENT_WEEK = 44
If Year(Today) = 2006 And Month(Today) = 6 And Day(Today) >= 1 And Day(Today) <= 4 Then CURRENT_WEEK = 44
If Year(Today) = 2006 And Month(Today) = 6 And Day(Today) >= 5 And Day(Today) <= 11 Then CURRENT_WEEK = 45
If Year(Today) = 2006 And Month(Today) = 6 And Day(Today) >= 12 And Day(Today) <= 18 Then CURRENT_WEEK = 46
If Year(Today) = 2006 And Month(Today) = 6 And Day(Today) >= 19 And Day(Today) <= 25 Then CURRENT_WEEK = 47
If Year(Today) = 2006 And Month(Today) = 6 And Day(Today) >= 26 And Day(Today) <= 30 Then CURRENT_WEEK = 48
If Year(Today) = 2006 And Month(Today) = 7 And Day(Today) >= 1 And Day(Today) <= 2 Then CURRENT_WEEK = 48
If Year(Today) = 2006 And Month(Today) = 7 And Day(Today) >= 3 And Day(Today) <= 9 Then CURRENT_WEEK = 49
If Year(Today) = 2006 And Month(Today) = 7 And Day(Today) >= 10 And Day(Today) <= 16 Then CURRENT_WEEK = 50
If Year(Today) = 2006 And Month(Today) = 7 And Day(Today) >= 17 And Day(Today) <= 23 Then CURRENT_WEEK = 51
If Year(Today) = 2006 And Month(Today) = 7 And Day(Today) >= 24 And Day(Today) <= 30 Then CURRENT_WEEK = 52
If Year(Today) = 2006 And Month(Today) = 7 And Day(Today) = 31 Then CURRENT_WEEK = 53
If Year(Today) = 2006 And Month(Today) = 8 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 1
If Year(Today) = 2006 And Month(Today) = 8 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 2
If Year(Today) = 2006 And Month(Today) = 8 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 3
If Year(Today) = 2006 And Month(Today) = 8 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 4
If Year(Today) = 2006 And Month(Today) = 8 And Day(Today) >= 28 And Day(Today) <= 31 Then CURRENT_WEEK = 5
If Year(Today) = 2006 And Month(Today) = 9 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 5
If Year(Today) = 2006 And Month(Today) = 9 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 6
If Year(Today) = 2006 And Month(Today) = 9 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 7
If Year(Today) = 2006 And Month(Today) = 9 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 8
If Year(Today) = 2006 And Month(Today) = 9 And Day(Today) >= 25 And Day(Today) <= 30 Then CURRENT_WEEK = 9
If Year(Today) = 2006 And Month(Today) = 10 And Day(Today) = 1 Then CURRENT_WEEK = 9
If Year(Today) = 2006 And Month(Today) = 10 And Day(Today) >= 2 And Day(Today) <= 8 Then CURRENT_WEEK = 10
If Year(Today) = 2006 And Month(Today) = 10 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 11
If Year(Today) = 2006 And Month(Today) = 10 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 12
If Year(Today) = 2006 And Month(Today) = 10 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 13
If Year(Today) = 2006 And Month(Today) = 10 And Day(Today) >= 30 And Day(Today) <= 31 Then CURRENT_WEEK = 14
If Year(Today) = 2006 And Month(Today) = 11 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 14
If Year(Today) = 2006 And Month(Today) = 11 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 15
If Year(Today) = 2006 And Month(Today) = 11 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 16
If Year(Today) = 2006 And Month(Today) = 11 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 17
If Year(Today) = 2006 And Month(Today) = 11 And Day(Today) >= 27 And Day(Today) <= 30 Then CURRENT_WEEK = 18
If Year(Today) = 2006 And Month(Today) = 12 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 18
If Year(Today) = 2006 And Month(Today) = 12 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 19
If Year(Today) = 2006 And Month(Today) = 12 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 20
If Year(Today) = 2006 And Month(Today) = 12 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 21
If Year(Today) = 2006 And Month(Today) = 12 And Day(Today) >= 25 And Day(Today) <= 31 Then CURRENT_WEEK = 22
If Year(Today) = 2007 And Month(Today) = 1 And Day(Today) >= 1 And Day(Today) <= 7 Then CURRENT_WEEK = 23
If Year(Today) = 2007 And Month(Today) = 1 And Day(Today) >= 8 And Day(Today) <= 14 Then CURRENT_WEEK = 24
If Year(Today) = 2007 And Month(Today) = 1 And Day(Today) >= 15 And Day(Today) <= 21 Then CURRENT_WEEK = 25
If Year(Today) = 2007 And Month(Today) = 1 And Day(Today) >= 22 And Day(Today) <= 28 Then CURRENT_WEEK = 26
If Year(Today) = 2007 And Month(Today) = 1 And Day(Today) >= 29 And Day(Today) <= 31 Then CURRENT_WEEK = 27
If Year(Today) = 2007 And Month(Today) = 2 And Day(Today) >= 1 And Day(Today) <= 4 Then CURRENT_WEEK = 27
If Year(Today) = 2007 And Month(Today) = 2 And Day(Today) >= 5 And Day(Today) <= 11 Then CURRENT_WEEK = 28
If Year(Today) = 2007 And Month(Today) = 2 And Day(Today) >= 12 And Day(Today) <= 18 Then CURRENT_WEEK = 29
If Year(Today) = 2007 And Month(Today) = 2 And Day(Today) >= 19 And Day(Today) <= 25 Then CURRENT_WEEK = 30
If Year(Today) = 2007 And Month(Today) = 2 And Day(Today) >= 26 And Day(Today) <= 28 Then CURRENT_WEEK = 31
If Year(Today) = 2007 And Month(Today) = 3 And Day(Today) >= 1 And Day(Today) <= 4 Then CURRENT_WEEK = 31
If Year(Today) = 2007 And Month(Today) = 3 And Day(Today) >= 5 And Day(Today) <= 11 Then CURRENT_WEEK = 32
If Year(Today) = 2007 And Month(Today) = 3 And Day(Today) >= 12 And Day(Today) <= 18 Then CURRENT_WEEK = 33
If Year(Today) = 2007 And Month(Today) = 3 And Day(Today) >= 19 And Day(Today) <= 25 Then CURRENT_WEEK = 34
If Year(Today) = 2007 And Month(Today) = 3 And Day(Today) >= 26 And Day(Today) <= 31 Then CURRENT_WEEK = 35
If Year(Today) = 2007 And Month(Today) = 4 And Day(Today) = 1 Then CURRENT_WEEK = 35
If Year(Today) = 2007 And Month(Today) = 4 And Day(Today) >= 2 And Day(Today) <= 8 Then CURRENT_WEEK = 36
If Year(Today) = 2007 And Month(Today) = 4 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 37
If Year(Today) = 2007 And Month(Today) = 4 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 38
If Year(Today) = 2007 And Month(Today) = 4 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 39
If Year(Today) = 2007 And Month(Today) = 4 And Day(Today) = 30 Then CURRENT_WEEK = 40
If Year(Today) = 2007 And Month(Today) = 5 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 40
If Year(Today) = 2007 And Month(Today) = 5 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 41
If Year(Today) = 2007 And Month(Today) = 5 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 42
If Year(Today) = 2007 And Month(Today) = 5 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 43
If Year(Today) = 2007 And Month(Today) = 5 And Day(Today) >= 28 And Day(Today) <= 31 Then CURRENT_WEEK = 44
If Year(Today) = 2007 And Month(Today) = 6 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 44
If Year(Today) = 2007 And Month(Today) = 6 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 45
If Year(Today) = 2007 And Month(Today) = 6 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 46
If Year(Today) = 2007 And Month(Today) = 6 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 47
If Year(Today) = 2007 And Month(Today) = 6 And Day(Today) >= 25 And Day(Today) <= 30 Then CURRENT_WEEK = 48
If Year(Today) = 2007 And Month(Today) = 7 And Day(Today) = 1 Then CURRENT_WEEK = 48
If Year(Today) = 2007 And Month(Today) = 7 And Day(Today) >= 2 And Day(Today) <= 8 Then CURRENT_WEEK = 49
If Year(Today) = 2007 And Month(Today) = 7 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 50
If Year(Today) = 2007 And Month(Today) = 7 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 51
If Year(Today) = 2007 And Month(Today) = 7 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 52
If Year(Today) = 2007 And Month(Today) = 7 And Day(Today) >= 30 And Day(Today) <= 31 Then CURRENT_WEEK = 53
If Year(Today) = 2007 And Month(Today) = 8 And Day(Today) >= 1 And Day(Today) <= 5 Then CURRENT_WEEK = 1
If Year(Today) = 2007 And Month(Today) = 8 And Day(Today) >= 6 And Day(Today) <= 12 Then CURRENT_WEEK = 2
If Year(Today) = 2007 And Month(Today) = 8 And Day(Today) >= 13 And Day(Today) <= 19 Then CURRENT_WEEK = 3
If Year(Today) = 2007 And Month(Today) = 8 And Day(Today) >= 20 And Day(Today) <= 26 Then CURRENT_WEEK = 4
If Year(Today) = 2007 And Month(Today) = 8 And Day(Today) >= 27 And Day(Today) <= 31 Then CURRENT_WEEK = 5
If Year(Today) = 2007 And Month(Today) = 9 And Day(Today) >= 1 And Day(Today) <= 2 Then CURRENT_WEEK = 5
If Year(Today) = 2007 And Month(Today) = 9 And Day(Today) >= 3 And Day(Today) <= 9 Then CURRENT_WEEK = 6
If Year(Today) = 2007 And Month(Today) = 9 And Day(Today) >= 10 And Day(Today) <= 16 Then CURRENT_WEEK = 7
If Year(Today) = 2007 And Month(Today) = 9 And Day(Today) >= 17 And Day(Today) <= 23 Then CURRENT_WEEK = 8
If Year(Today) = 2007 And Month(Today) = 9 And Day(Today) >= 24 And Day(Today) <= 30 Then CURRENT_WEEK = 9
If Year(Today) = 2007 And Month(Today) = 10 And Day(Today) >= 1 And Day(Today) <= 7 Then CURRENT_WEEK = 10
If Year(Today) = 2007 And Month(Today) = 10 And Day(Today) >= 8 And Day(Today) <= 14 Then CURRENT_WEEK = 11
If Year(Today) = 2007 And Month(Today) = 10 And Day(Today) >= 15 And Day(Today) <= 21 Then CURRENT_WEEK = 12
If Year(Today) = 2007 And Month(Today) = 10 And Day(Today) >= 22 And Day(Today) <= 28 Then CURRENT_WEEK = 13
If Year(Today) = 2007 And Month(Today) = 10 And Day(Today) >= 29 And Day(Today) <= 31 Then CURRENT_WEEK = 14
If Year(Today) = 2007 And Month(Today) = 11 And Day(Today) >= 1 And Day(Today) <= 4 Then CURRENT_WEEK = 14
If Year(Today) = 2007 And Month(Today) = 11 And Day(Today) >= 5 And Day(Today) <= 11 Then CURRENT_WEEK = 15
If Year(Today) = 2007 And Month(Today) = 11 And Day(Today) >= 12 And Day(Today) <= 18 Then CURRENT_WEEK = 16
If Year(Today) = 2007 And Month(Today) = 11 And Day(Today) >= 19 And Day(Today) <= 25 Then CURRENT_WEEK = 17
If Year(Today) = 2007 And Month(Today) = 11 And Day(Today) >= 26 And Day(Today) <= 30 Then CURRENT_WEEK = 18
If Year(Today) = 2007 And Month(Today) = 12 And Day(Today) >= 1 And Day(Today) <= 2 Then CURRENT_WEEK = 18
If Year(Today) = 2007 And Month(Today) = 12 And Day(Today) >= 3 And Day(Today) <= 9 Then CURRENT_WEEK = 19
If Year(Today) = 2007 And Month(Today) = 12 And Day(Today) >= 10 And Day(Today) <= 16 Then CURRENT_WEEK = 20
If Year(Today) = 2007 And Month(Today) = 12 And Day(Today) >= 17 And Day(Today) <= 23 Then CURRENT_WEEK = 21
If Year(Today) = 2007 And Month(Today) = 12 And Day(Today) >= 24 And Day(Today) <= 30 Then CURRENT_WEEK = 22
If Year(Today) = 2007 And Month(Today) = 12 And Day(Today) = 31 Then CURRENT_WEEK = 23
If Year(Today) = 2008 And Month(Today) = 1 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 23
If Year(Today) = 2008 And Month(Today) = 1 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 24
If Year(Today) = 2008 And Month(Today) = 1 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 25
If Year(Today) = 2008 And Month(Today) = 1 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 26
If Year(Today) = 2008 And Month(Today) = 1 And Day(Today) >= 28 And Day(Today) <= 31 Then CURRENT_WEEK = 27
If Year(Today) = 2008 And Month(Today) = 2 And Day(Today) >= 1 And Day(Today) <= 3 Then CURRENT_WEEK = 27
If Year(Today) = 2008 And Month(Today) = 2 And Day(Today) >= 4 And Day(Today) <= 10 Then CURRENT_WEEK = 28
If Year(Today) = 2008 And Month(Today) = 2 And Day(Today) >= 11 And Day(Today) <= 17 Then CURRENT_WEEK = 29
If Year(Today) = 2008 And Month(Today) = 2 And Day(Today) >= 18 And Day(Today) <= 24 Then CURRENT_WEEK = 30
If Year(Today) = 2008 And Month(Today) = 2 And Day(Today) >= 25 And Day(Today) <= 29 Then CURRENT_WEEK = 31
If Year(Today) = 2008 And Month(Today) = 3 And Day(Today) >= 1 And Day(Today) <= 2 Then CURRENT_WEEK = 31
If Year(Today) = 2008 And Month(Today) = 3 And Day(Today) >= 3 And Day(Today) <= 9 Then CURRENT_WEEK = 32
If Year(Today) = 2008 And Month(Today) = 3 And Day(Today) >= 10 And Day(Today) <= 16 Then CURRENT_WEEK = 33
If Year(Today) = 2008 And Month(Today) = 3 And Day(Today) >= 17 And Day(Today) <= 23 Then CURRENT_WEEK = 34
If Year(Today) = 2008 And Month(Today) = 3 And Day(Today) >= 24 And Day(Today) <= 30 Then CURRENT_WEEK = 35
If Year(Today) = 2008 And Month(Today) = 3 And Day(Today) >= 31 Then CURRENT_WEEK = 36
If Year(Today) = 2008 And Month(Today) = 4 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 36
If Year(Today) = 2008 And Month(Today) = 4 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 37
If Year(Today) = 2008 And Month(Today) = 4 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 38
If Year(Today) = 2008 And Month(Today) = 4 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 39
If Year(Today) = 2008 And Month(Today) = 4 And Day(Today) >= 28 And Day(Today) <= 30 Then CURRENT_WEEK = 40
If Year(Today) = 2008 And Month(Today) = 5 And Day(Today) >= 1 And Day(Today) <= 4 Then CURRENT_WEEK = 40
If Year(Today) = 2008 And Month(Today) = 5 And Day(Today) >= 5 And Day(Today) <= 11 Then CURRENT_WEEK = 41
If Year(Today) = 2008 And Month(Today) = 5 And Day(Today) >= 12 And Day(Today) <= 18 Then CURRENT_WEEK = 42
If Year(Today) = 2008 And Month(Today) = 5 And Day(Today) >= 19 And Day(Today) <= 25 Then CURRENT_WEEK = 43
If Year(Today) = 2008 And Month(Today) = 5 And Day(Today) >= 26 And Day(Today) <= 31 Then CURRENT_WEEK = 44
If Year(Today) = 2008 And Month(Today) = 6 And Day(Today) = 1 Then CURRENT_WEEK = 44
If Year(Today) = 2008 And Month(Today) = 6 And Day(Today) >= 2 And Day(Today) <= 8 Then CURRENT_WEEK = 45
If Year(Today) = 2008 And Month(Today) = 6 And Day(Today) >= 9 And Day(Today) <= 15 Then CURRENT_WEEK = 46
If Year(Today) = 2008 And Month(Today) = 6 And Day(Today) >= 16 And Day(Today) <= 22 Then CURRENT_WEEK = 47
If Year(Today) = 2008 And Month(Today) = 6 And Day(Today) >= 23 And Day(Today) <= 29 Then CURRENT_WEEK = 48
If Year(Today) = 2008 And Month(Today) = 6 And Day(Today) = 30 Then CURRENT_WEEK = 49
If Year(Today) = 2008 And Month(Today) = 7 And Day(Today) >= 1 And Day(Today) <= 6 Then CURRENT_WEEK = 49
If Year(Today) = 2008 And Month(Today) = 7 And Day(Today) >= 7 And Day(Today) <= 13 Then CURRENT_WEEK = 50
If Year(Today) = 2008 And Month(Today) = 7 And Day(Today) >= 14 And Day(Today) <= 20 Then CURRENT_WEEK = 51
If Year(Today) = 2008 And Month(Today) = 7 And Day(Today) >= 21 And Day(Today) <= 27 Then CURRENT_WEEK = 52
If Year(Today) = 2008 And Month(Today) = 7 And Day(Today) >= 28 And Day(Today) <= 31 Then CURRENT_WEEK = 53
End Function