Select Case Vs. If Statement

E

EStallworth

Well-known member
Joined
Aug 14, 2006
Messages
75
Location
Destin, FL
Programming Experience
Beginner
Does anyone know if one or the other is faster. For example, it takes my program a little long to run through the following If statement.

VB.NET: 
[SIZE=2][COLOR=#0000ff]Try[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200701"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/22/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200702"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200703"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200704"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200705"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/21/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200706"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200707"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200708"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200709"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200710"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/22/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200711"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200712"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200601"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200602"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200603"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200604"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200605"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/22/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200606"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200607"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200608"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/21/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200609"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200610"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200611"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200612"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200501"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200502"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/21/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200503"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/21/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200504"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200505"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200506"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200507"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200508"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/22/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200509"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200510"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200511"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/21/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200512"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200401"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200402"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200403"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/22/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200404"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200405"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200406"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/21/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200407"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200408"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200409"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200410"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200411"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/22/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200412"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200301"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200302"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200303"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200304"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/21/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200305"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200306"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200307"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/21/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200308"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200309"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/22/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200310"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200311"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200312"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/22/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200201"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/21/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200202"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200203"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200204"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/22/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200205"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200206"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200207"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/22/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200208"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200209"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200210"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/21/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200211"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200212"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200101"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/22/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200102"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200103"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200104"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200105"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/21/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200106"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200107"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200108"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200109"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200110"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/22/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200111"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200112"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200001"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200002"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/21/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200003"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200004"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200005"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/22/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200006"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200007"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200008"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/21/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200009"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200010"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200011"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200012"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Catch[/COLOR][/SIZE][SIZE=2] ex [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] Exception[/SIZE]
[SIZE=2]MsgBox([/SIZE][SIZE=2][COLOR=#800000]"Please try entering the account number again. If the grid to the right of the screen has not been populated,[/COLOR][/SIZE]
[SIZE=2][COLOR=#800000] this means there are no current transactions for this account."[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Try[/COLOR][/SIZE]

What I would like to know is if I would get any performance enhancements if I changed this to a Select Case. To me it seems like the select case would run through a little faster, yet I still used IF..., I would just like to present this question in hopes of not having to try it out. I am pretty sure I remember my instructor always saying to limit the amount of conditions in an IF statement and to use select case in the event it happens to be this long, but that was years ago and I forget. Thx to everyone/anyone with input.
 
Sort by date Sort by votes
Time both options with the StopWatch class. (but you can't select more than one case expression, here you have two)

Why do you make the CDate conversion more than one time? The result is always the same.
 
Upvote 0 Downvote
Its all the conversions you make. Why don't you declare a variable up top of type Date and assign the text of the textbox to it, thus casting only once. Also do you need to use "And" instead of "AndAlso" for short cut evaluation?
 
Upvote 0 Downvote
Also don't forget it is, at least theoretically, faster to put your more common options at the top so they are checked first. Its nice to nice the months in order, but, if 90% of inquires are in December, your checking 9 or of 10 items against 11 other months that likely don't apply.
 
Upvote 0 Downvote
Atanas Vanchev said:
Its all the conversions you make. Why don't you declare a variable up top of type Date and assign the text of the textbox to it, thus casting only once. Also do you need to use "And" instead of "AndAlso" for short cut evaluation?
Click to expand...

Good point. I had just come up with an idea and just copied, pasted and modified. I took your advice though and just assigned the month and year values to variables.

VB.NET: 
[SIZE=2][COLOR=#0000ff]Try[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] month [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Integer[/COLOR][/SIZE][SIZE=2] = [/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Month[/SIZE]
[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] year [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Integer[/COLOR][/SIZE][SIZE=2] = [/SIZE][SIZE=2][COLOR=#0000ff]CDate[/COLOR][/SIZE][SIZE=2](receiptdatetxt.Text).Year[/SIZE]
 
 
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200701"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/22/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200702"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200703"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200704"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200705"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/21/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200706"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200707"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200708"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200709"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200710"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/22/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200711"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2007 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200712"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2007"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200601"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200602"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200603"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200604"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200605"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/22/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200606"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200607"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200608"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/21/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200609"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200610"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200611"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2006 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200612"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2006"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200501"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200502"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/21/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200503"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/21/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200504"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200505"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200506"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200507"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200508"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/22/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200509"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200510"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200511"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/21/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2005 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200512"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2005"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200401"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200402"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200403"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/22/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200404"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200405"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200406"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/21/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200407"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200408"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200409"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200410"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200411"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/22/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2004 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200412"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2004"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200301"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200302"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200303"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200304"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/21/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200305"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200306"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200307"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/21/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200308"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200309"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/22/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200310"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200311"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2003 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200312"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/22/2003"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200201"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/21/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200202"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200203"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200204"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/22/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200205"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200206"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200207"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/22/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200208"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200209"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200210"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/21/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200211"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2002 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200212"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2002"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200101"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/22/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200102"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200103"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200104"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200105"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/21/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200106"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200107"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200108"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200109"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200110"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/22/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200111"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2001 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200112"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2001"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 1 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200001"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"1/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 2 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200002"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"2/21/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 3 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200003"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"3/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 4 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200004"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"4/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 5 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200005"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"5/22/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 6 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200006"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"6/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 7 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200007"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"7/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 8 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200008"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"8/21/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 9 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200009"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"9/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 10 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200010"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"10/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 11 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200011"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"11/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]ElseIf[/COLOR][/SIZE][SIZE=2] month = 12 [/SIZE][SIZE=2][COLOR=#0000ff]And[/COLOR][/SIZE][SIZE=2] year = 2000 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]ComboBox2.Text = [/SIZE][SIZE=2][COLOR=#800000]"200012"[/COLOR][/SIZE]
[SIZE=2]duedatelabel.Text = [/SIZE][SIZE=2][COLOR=#800000]"12/20/2000"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Catch[/COLOR][/SIZE][SIZE=2] ex [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] Exception[/SIZE]
[SIZE=2]MsgBox([/SIZE][SIZE=2][COLOR=#800000]"Please try entering the account number again. If the grid to the right of the screen has not been populated, [/COLOR][/SIZE]
[SIZE=2][COLOR=#800000]this means there are no current transactions for this account."[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Try[/COLOR][/SIZE]
 
Upvote 0 Downvote
Some shortcuts presented (I'm more bored than you.. lol:)):
VB.NET: 
Dim receiptdate As Date = CDate(receiptdatetxt.Text)
Dim month As Integer = receiptdate.Month
Dim year As Integer = Creceiptdate.Year
Dim day As Integer = 20
If month = 1 And year = 2007 Then : day = 22
ElseIf month = 5 And year = 2007 Then : day = 21
ElseIf month = 10 And year = 2007 Then : day = 22
ElseIf month = 5 And year = 2006 Then : day = 22
ElseIf month = 8 And year = 2006 Then : day = 21
ElseIf month = 2 And year = 2005 Then : day = 21
ElseIf month = 3 And year = 2005 Then : day = 21
ElseIf month = 8 And year = 2005 Then : day = 22
ElseIf month = 11 And year = 2005 Then : day = 21
ElseIf month = 3 And year = 2004 Then : day = 22
ElseIf month = 6 And year = 2004 Then : day = 21
ElseIf month = 11 And year = 2004 Then : day = 22
ElseIf month = 4 And year = 2003 Then : day = 21
ElseIf month = 7 And year = 2003 Then : day = 21
ElseIf month = 9 And year = 2003 Then : day = 22
ElseIf month = 12 And year = 2003 Then : day = 22
ElseIf month = 1 And year = 2002 Then : day = 21
ElseIf month = 4 And year = 2002 Then : day = 22
ElseIf month = 7 And year = 2002 Then : day = 22
ElseIf month = 10 And year = 2002 Then : day = 21
ElseIf month = 1 And year = 2001 Then : day = 22
ElseIf month = 5 And year = 2001 Then : day = 21
ElseIf month = 10 And year = 2001 Then : day = 22
ElseIf month = 2 And year = 2000 Then : day = 21
ElseIf month = 5 And year = 2000 Then : day = 22
ElseIf month = 8 And year = 2000 Then : day = 21
End If
Dim duedate As New Date(year, month, day)
ComboBox2.Text = duedate.ToString("yyyyMM")
duedatelabel.Text = duedate.ToString("M/d/yyyy")
 
Upvote 0 Downvote
Thanks for the input. That seems more practical than my approach.

 
Last edited:
Upvote 0 Downvote
If you change the And to AndAlso you no longer need to evaluate both expressions around the And clause but rather use short cut evaluation.

VB.NET: 
Dim receiptdate AsDate = CDate(receiptdatetxt.Text)
Dim month AsInteger = receiptdate.Month
Dim year AsInteger = Creceiptdate.Year
Dim day AsInteger = 20
 
If month = 1 [COLOR=red]AndAlso[/COLOR] year = 2007 Then : day = 22
ElseIf month = 5 [COLOR=red]AndAlso[/COLOR] year = 2007 Then : day = 21
ElseIf month = 10 [COLOR=red]AndAlso[/COLOR] year = 2007 Then : day = 22
ElseIf month = 5 [COLOR=red]AndAlso[/COLOR] year = 2006 Then : day = 22
ElseIf month = 8 AndAlso year = 2006 Then : day = 21
ElseIf month = 2 AndAlso year = 2005 Then : day = 21
ElseIf month = 3 AndAlso year = 2005 Then : day = 21
ElseIf month = 8 AndAlso year = 2005 Then : day = 22
ElseIf month = 11 AndAlso year = 2005 Then : day = 21
ElseIf month = 3 AndAlso year = 2004 Then : day = 22
ElseIf month = 6 AndAlso year = 2004 Then : day = 21
ElseIf month = 11 AndAlso year = 2004 Then : day = 22
ElseIf month = 4 AndAlso year = 2003 Then : day = 21
ElseIf month = 7 AndAlso year = 2003 Then : day = 21
ElseIf month = 9 AndAlso year = 2003 Then : day = 22
ElseIf month = 12 AndAlso year = 2003 Then : day = 22
ElseIf month = 1 AndAlso year = 2002 Then : day = 21
ElseIf month = 4 AndAlso year = 2002 Then : day = 22
ElseIf month = 7 AndAlso year = 2002 Then : day = 22
ElseIf month = 10 AndAlso year = 2002 Then : day = 21
ElseIf month = 1 AndAlso year = 2001 Then : day = 22
ElseIf month = 5 AndAlso year = 2001 Then : day = 21
ElseIf month = 10 AndAlso year = 2001 Then : day = 22
ElseIf month = 2 AndAlso year = 2000 Then : day = 21
ElseIf month = 5 AndAlso year = 2000 Then : day = 22
ElseIf month = 8 AndAlso year = 2000 Then : day = 21
EndIf
 
Dim duedate AsNewDate(year, month, day)
ComboBox2.Text = duedate.ToString("yyyyMM")
duedatelabel.Text = duedate.ToString("M/d/yyyy")
 
Last edited by a moderator:
Upvote 0 Downvote
Good thinking!
 
Upvote 0 Downvote
Thanks for the info Atanas. You and John have been very helpful and have cut my load time just about in half. I need to work on planning my methods a little better. Thx to all who have responded!
 
Upvote 0 Downvote

Similar threads

S
  • Solved
Question how to retrieve row, update and lock from another user?
Replies
1
Views
2K
servox
S
D
  • Question
Click Once Install Error
Replies
1
Views
5K
JohnH
JohnH
R
  • Question
call CellContentDoubleClick event from button outside DataGridView?
Replies
3
Views
4K
jmcilhinney
jmcilhinney
C
  • Question
Web Page manupilation
Replies
0
Views
2K
cobus
C
R
  • Question
Answered How to transfer updated rows of datagridview to database ?
Replies
2
Views
4K
rajdh75
R

Share this page

Latest posts

Back
Top