Public Class Form1 ' http://msdn.microsoft.com/fr-fr/library/20ee97hz(v=vs.80).aspx Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim FirstDate, Msg As String 'Declare variables. Dim SecondDate As Date FirstDate = InputBox("Enter a date:") SecondDate = CDate(FirstDate) ' Msg = "Quarter: " & DatePart(DateInterval.Quarter, SecondDate) Msg = "Nous sommes la " & DatePart("ww", SecondDate, vbMonday, vbFirstFourDays) & " ème semaine" MsgBox(Msg) End Sub End Class
importSystem.Globalization public function sharedWeekNumber(date as DateTime) as int32 dim cal as GregorianCalendar = new GregorianCalendar(GregorianCalendarTypes.Localized) return cal.GetWeekOfYear(date, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday) end function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question