View Single Post
  #4 (permalink)  
Old June 24th, 2009, 08:43 AM
RobCarter RobCarter is offline
Authorized User
 
Join Date: Nov 2005
Location: Bromsgrove, United Kingdom.
Posts: 41
Thanks: 6
Thanked 1 Time in 1 Post
Send a message via MSN to RobCarter
Question

BTW the underlined section is where the debugger always lands. It points at the following function in its class:

Code:
 
Public Class clsDates
Public Enum FiscalYearStartMonth
Jan = 1
Feb = 2
Mar = 3
Apr = 4
May = 5
Jun = 6
Jul = 7
Aug = 8
Sep = 9
Oct = 10
Nov = 11
Dec = 12
End Enum
Shared Function fiscalYear(ByVal FYStartMonth As Integer, ByVal aDate As DateTime) As String
Dim theYear As Integer = aDate.Year
If aDate.Month >= FYStartMonth Then
'theYear += 1
Else
theYear -= 1
End If
Return theYear.ToString
End Function
End Class
__________________
Rob Carter