Visual Basic

velan wrote:

i had worket vb.net project.i am using msaccess database.how to give print in the form. plz give the sample code
advance thanks for your valuable replay

Private Function getNumberOfWeeks(ByVal year As Integer) As Long
    Dim d1 As Date = New Date(year, 1, 1)
    Dim d2 As Date = New Date(Year, 12, 31)
    Return DateDiff("w", d1, d2, FirstDayOfWeek.Monday)
End Function

Private Function getNumberOfWeeks(ByVal year As Integer) As Integer
    Dim daysBeforeFirstMonday As Integer = 8 - New Date(year, 1, 1).DayOfWeek()
    If daysBeforeFirstMonday > 6 Then daysBeforeFirstMonday -= 7
    Dim firstMonday As Date = New Date(year, 1, daysBeforeFirstMonday + 1)
    Dim firstDayOfNewYear As Date = New Date(year + 1, 1, 1)
    Dim weeks As Integer = Math.Floor(firstDayOfNewYear.Subtract(firstMonday).Days / 7)
    If daysBeforeFirstMonday > 0 Then weeks += 1
    Return weeks
End Function

<br />
    Private Function  Weeknumber_Entire4DayWeekRule(ByVal inDate As  DateTime) As Integer<br />
        Const JAN As Integer = 1<br />
        Const DEC As Integer = 12<br />
        Const LASTDAYOFDEC As Integer = 31<br />
        Const FIRSTDAYOFJAN As Integer = 1<br />
        Const THURSDAY As Integer = 4<br />
        Dim ThursdayFlag As Boolean = False<br />
<br />
        ' Get the day number since the beginning of the year<br />
        Dim DayOfYear As Integer = inDate.DayOfYear<br />
<br />
        ' Get the numeric weekday of the first day of the<br />
        ' year (using sunday as FirstDay)<br />
        Dim StartWeekDayOfYear As Integer = _<br />
           DirectCast(New DateTime(inDate.Year, JAN, FIRSTDAYOFJAN).DayOfWeek, Integer)<br />
        Dim EndWeekDayOfYear As Integer = _<br />
            DirectCast(New DateTime(inDate.Year, DEC, LASTDAYOFDEC).DayOfWeek, Integer)<br />
<br />
        ' Compensate for the fact that we are using monday<br />
        ' as the first day of the week<br />
        If StartWeekDayOfYear = 0 Then<br />
            StartWeekDayOfYear = 7<br />
        End If<br />
        If EndWeekDayOfYear = 0 Then<br />
            EndWeekDayOfYear = 7<br />
        End If<br />
<br />
        ' Calculate the number of days in the first and last week<br />
        Dim DaysInFirstWeek As Integer = 8 - StartWeekDayOfYear<br />
        Dim DaysInLastWeek As Integer = 8 - EndWeekDayOfYear<br />
<br />
       ' If the year either starts or ends on a thursday it will have a 53rd week<br />
        If StartWeekDayOfYear = THURSDAY OrElse EndWeekDayOfYear = THURSDAY Then<br />
            ThursdayFlag = True<br />
       End If<br />
<br />
        ' We begin by calculating the number of FULL weeks between the start of the year and<br />
        ' our date. The number is rounded up, so the smallest possible value is 0.<br />
        Dim FullWeeks As Integer = _<br />
            CType(Math.Ceiling((DayOfYear - DaysInFirstWeek) / 7), Integer)<br />
 <br />
        Dim WeekNumber As Integer = FullWeeks<br />
<br />
        ' If the first week of the year has at least four days, then the actual week number for our date<br />
        ' can be incremented by one.<br />
       If DaysInFirstWeek >= THURSDAY Then<br />
            WeekNumber = WeekNumber + 1<br />
        End If<br />
<br />
       ' If week number is larger than week 52 (and the year doesn't either start or end on a thursday)<br />
        ' then the correct week number is 1.<br />
       If WeekNumber > 52 AndAlso Not ThursdayFlag Then<br />
            WeekNumber = 1<br />
        End If<br />
<br />
        'If week number is still 0, it means that we are trying to evaluate the week number for a<br />
        'week that belongs in the previous year (since that week has 3 days or less in our date's year).<br />
        'We therefore make a recursive call using the last day of the previous year.<br />
        If WeekNumber = 0 Then<br />
            WeekNumber = Weeknumber_Entire4DayWeekRule( _<br />
                New DateTime(inDate.Year - 1, DEC, LASTDAYOFDEC))<br />
        End If<br />
        Return WeekNumber<br />
    End Function

ChandraRam wrote:

I am not aware of any direct function call