Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
OptionalByVal DayOfWeek As FirstDayOfWeek = FirstDayOfWeek.Sunday, _
OptionalByVal WeekOfYear As FirstWeekOfYear = FirstWeekOfYear.Jan1 _
)AsLong
Nell'esempio DateDiff restituisce 0 per wD perché la differenza tra le due date è inferiore a sette giorni, mentre restituisce 1 per wY perché tra i primi giorni delle rispettive settimane di calendario vi è una differenza di sette giorni.
Codice sorgente - presumibilmente VB.NET
' The following statements set datTim1 to a Thursday
' and datTim2 to the following Tuesday.
Dim datTim1 AsDate= #1/4/2001#
Dim datTim2 AsDate= #1/9/2001#
' Assume Sunday is specified as first day of the week.
Dim wD AsLong=DateDiff(DateInterval.Weekday, datTim1, datTim2)
Dim wY AsLong=DateDiff(DateInterval.WeekOfYear, datTim1, datTim2)
Nell'esempio riportato di seguito la funzione DateDiff viene utilizzata per visualizzare il numero di giorni compreso tra una determinata data e la data odierna.
Codice sorgente - presumibilmente VB.NET
Dim firstDate, msg AsString
Dim secondDate AsDate
firstDate =InputBox("Enter a date")
secondDate =CDate(firstDate)
msg ="Days from today: "&DateDiff(DateInterval.Day, Now, secondDate)