DateAndTime.DateDiff Yöntem

Kaynak:

DateAndTime.vb

Kaynak:

DateAndTime.vb

Kaynak:

DateAndTime.vb

public static long DateDiff (Microsoft.VisualBasic.DateInterval Interval, DateTime Date1, DateTime Date2, Microsoft.VisualBasic.FirstDayOfWeek DayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Microsoft.VisualBasic.FirstWeekOfYear WeekOfYear = Microsoft.VisualBasic.FirstWeekOfYear.Jan1);

static member DateDiff : Microsoft.VisualBasic.DateInterval * DateTime * DateTime * Microsoft.VisualBasic.FirstDayOfWeek * Microsoft.VisualBasic.FirstWeekOfYear -> int64

Public Function DateDiff (Interval As DateInterval, Date1 As DateTime, Date2 As DateTime, Optional DayOfWeek As FirstDayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Optional WeekOfYear As FirstWeekOfYear = Microsoft.VisualBasic.FirstWeekOfYear.Jan1) As Long

Parametreler

Döndürülenler

İki Date değer arasındaki zaman aralıklarının sayısını belirten uzun bir değer.

Özel durumlar

Örnekler

Bu örnekte, belirli bir tarih ile bugün arasındaki gün sayısını görüntülemek için DateDiff işlevi kullanılır.

Dim date2Entered As String = InputBox("Enter a date")

Try
    Dim date2 As Date = Date.Parse(date2Entered)
    Dim date1 As Date = Now

    ' Determine the number of days between the two dates.
    Dim days As Long = DateDiff(DateInterval.Day, date1, date2)

    ' This statement has a string interval argument, and
    ' is equivalent to the above statement.
    'Dim days As Long = DateDiff("d", date1, date2)

    MessageBox.Show("Days from today: " & days.ToString)
Catch ex As Exception
    MessageBox.Show("Invalid Date: " & ex.Message)
End Try

Açıklamalar

İki tarih/saat değeri arasında belirtilen zaman aralıklarının sayısını belirlemek için DateDiff işlevini kullanabilirsiniz. Örneğin, iki tarih arasındaki gün sayısını veya bugün ile yıl sonu arasındaki hafta sayısını hesaplamak için DateDiff kullanabilirsiniz.

Davranış

• Parametrelerin işlenmesi. DateDiff, farkı oluşturmak için Date1 değerini Date2 değerinden çıkarır. Çağıran programda hiçbir değer değiştirilmez.

• Dönüş Değerleri. Date1 ve Date2Date veri türünde olduğundan, sistem zamanlayıcıda 100 nanosaniyelik değere doğru tarih ve saat değerlerini tutarlar. Ancak DateDiff her zaman zaman aralıklarının sayısını Long değeri olarak döndürür.

  Date1 Date2'den sonraki bir tarih ve saati temsil ederse DateDiff negatif bir sayı döndürür.

• Gün Aralıkları. Interval DateInterval.DayOfYearolarak ayarlanırsa, DayOfYear bir zaman aralığı için anlamlı bir birim olmadığından DateInterval.Dayolarak değerlendirilir.

• Hafta Aralıkları. Interval DateInterval.WeekOfYearolarak ayarlanırsa, dönüş değeri Date1 içeren haftanın ilk günü ile Date2içeren haftanın ilk günü arasındaki hafta sayısını temsil eder. Aşağıdaki örnekte bunun DateInterval.Weekday'dan nasıl farklı sonuçlar ürettiği gösterilmektedir.

  ' The following statements set datTim1 to a Thursday
  ' and datTim2 to the following Tuesday.
  Dim datTim1 As Date = #1/4/2001#
  Dim datTim2 As Date = #1/9/2001#
  ' Assume Sunday is specified as first day of the week.
  Dim wD As Long = DateDiff(DateInterval.Weekday, datTim1, datTim2)
  Dim wY As Long = DateDiff(DateInterval.WeekOfYear, datTim1, datTim2)
  

  Yukarıdaki örnekte, iki tarih arasındaki fark yedi günden az olduğundan DateDiff 0 ile wD arası döndürür, ancak ilgili takvim haftalarının ilk günleri arasında yedi günlük bir fark olduğundan 1 ile wY arasında bir değer döndürür.

• Daha Büyük Aralıklar. Interval DateInterval.Yearolarak ayarlanırsa, dönüş değeri yalnızca Date1 ve Date2yıl bölümlerinden hesaplanır. Benzer şekilde, DateInterval.Month için dönüş değeri yalnızca bağımsız değişkenlerin yıl ve ay bölümlerinden ve iki tarihi içeren üç aylık dönemlerden DateInterval.Quarter hesaplanır.

  Örneğin, 31 Aralık ile sonraki yılın 1 Ocak'ını karşılaştırırken, DateDiff en fazla bir gün geçmesine rağmen DateInterval.Year, DateInterval.Quarterveya DateInterval.Monthiçin 1 döndürür.

  Birden çok çağı olan Japonca gibi kültürler için DateDiff yöntemi, fark iki veya daha fazla çağa yayılmışsa yıllar içinde bir fark döndürmez. Bunun yerine, aşağıdaki örnekte gösterildiği gibi Year özelliği tarafından döndürülen değerlerdeki farkı hesaplayabilirsiniz: date2.Year - date1.Year.

• Diğer Aralıklar. Her Date değeri bir DateTime yapısı tarafından desteklendiğinden, yöntemleri size zaman aralıklarını bulma konusunda ek seçenekler sağlar. Örneğin, Subtract yöntemini aşırı yüklenmiş formlarından birinde kullanabilirsiniz: DateTime.Subtract başka bir Date değeri döndürmek için bir TimeSpanDate değişkenden çıkarır ve DateTime.SubtractTimeSpandöndürmek için Date bir değeri çıkarır. Aşağıdaki örnekte gösterildiği gibi kaç milisaniye sürdüğünü bulmak için bir işlemi zamanlayabilirsiniz.

  Dim startTime As Date = Now
  ' Run the process that is to be timed.
  Dim runLength As Global.System.TimeSpan = Now.Subtract(startTime)
  Dim millisecs As Double = runLength.TotalMilliseconds
  

Interval bağımsız değişkeni aşağıdaki ayarlardan birine sahip olabilir.

DayOfWeek bağımsız değişkeni aşağıdaki ayarlardan birine sahip olabilir.

WeekOfYear bağımsız değişkeni aşağıdaki ayarlardan birine sahip olabilir.

Ayrıca bkz.

• DateAdd
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• DateTime
• TimeSpan
• Veri Türü Özeti (Visual Basic)

Kaynak:

DateAndTime.vb

Kaynak:

DateAndTime.vb

Kaynak:

DateAndTime.vb

public static long DateDiff (string Interval, object? Date1, object? Date2, Microsoft.VisualBasic.FirstDayOfWeek DayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Microsoft.VisualBasic.FirstWeekOfYear WeekOfYear = Microsoft.VisualBasic.FirstWeekOfYear.Jan1);

public static long DateDiff (string Interval, object Date1, object Date2, Microsoft.VisualBasic.FirstDayOfWeek DayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Microsoft.VisualBasic.FirstWeekOfYear WeekOfYear = Microsoft.VisualBasic.FirstWeekOfYear.Jan1);

static member DateDiff : string * obj * obj * Microsoft.VisualBasic.FirstDayOfWeek * Microsoft.VisualBasic.FirstWeekOfYear -> int64

Public Function DateDiff (Interval As String, Date1 As Object, Date2 As Object, Optional DayOfWeek As FirstDayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Optional WeekOfYear As FirstWeekOfYear = Microsoft.VisualBasic.FirstWeekOfYear.Jan1) As Long

Parametreler

Döndürülenler

İki Date değer arasındaki zaman aralıklarının sayısını belirten uzun bir değer.

Özel durumlar

Örnekler

Bu örnekte, belirli bir tarih ile bugün arasındaki gün sayısını görüntülemek için DateDiff işlevi kullanılır.

Dim date2Entered As String = InputBox("Enter a date")

Try
    Dim date2 As Date = Date.Parse(date2Entered)
    Dim date1 As Date = Now

    ' Determine the number of days between the two dates.
    Dim days As Long = DateDiff(DateInterval.Day, date1, date2)

    ' This statement has a string interval argument, and
    ' is equivalent to the above statement.
    'Dim days As Long = DateDiff("d", date1, date2)

    MessageBox.Show("Days from today: " & days.ToString)
Catch ex As Exception
    MessageBox.Show("Invalid Date: " & ex.Message)
End Try

Açıklamalar

İki tarih/saat değeri arasında belirtilen zaman aralıklarının sayısını belirlemek için DateDiff işlevini kullanabilirsiniz. Örneğin, iki tarih arasındaki gün sayısını veya bugün ile yıl sonu arasındaki hafta sayısını hesaplamak için DateDiff kullanabilirsiniz.

Davranış

• Parametrelerin işlenmesi. DateDiff, farkı oluşturmak için Date1 değerini Date2 değerinden çıkarır. Çağıran programda hiçbir değer değiştirilmez.

• Dönüş Değerleri. Date1 ve Date2Date veri türünde olduğundan, sistem zamanlayıcıda 100 nanosaniyelik değere doğru tarih ve saat değerlerini tutarlar. Ancak DateDiff her zaman zaman aralıklarının sayısını Long değeri olarak döndürür.

  Date1 Date2'den sonraki bir tarih ve saati temsil ederse DateDiff negatif bir sayı döndürür.

• Gün Aralıkları. Interval DateInterval.DayOfYearolarak ayarlanırsa, DayOfYear bir zaman aralığı için anlamlı bir birim olmadığından DateInterval.Dayolarak değerlendirilir.

• Hafta Aralıkları. Interval DateInterval.WeekOfYearolarak ayarlanırsa, dönüş değeri Date1 içeren haftanın ilk günü ile Date2içeren haftanın ilk günü arasındaki hafta sayısını temsil eder. Aşağıdaki örnekte bunun DateInterval.Weekday'dan nasıl farklı sonuçlar ürettiği gösterilmektedir.

  ' The following statements set datTim1 to a Thursday
  ' and datTim2 to the following Tuesday.
  Dim datTim1 As Date = #1/4/2001#
  Dim datTim2 As Date = #1/9/2001#
  ' Assume Sunday is specified as first day of the week.
  Dim wD As Long = DateDiff(DateInterval.Weekday, datTim1, datTim2)
  Dim wY As Long = DateDiff(DateInterval.WeekOfYear, datTim1, datTim2)
  

  Yukarıdaki örnekte, iki tarih arasındaki fark yedi günden az olduğundan DateDiff 0 ile wD arası döndürür, ancak ilgili takvim haftalarının ilk günleri arasında yedi günlük bir fark olduğundan 1 ile wY arasında bir değer döndürür.

• Daha Büyük Aralıklar. Interval DateInterval.Yearolarak ayarlanırsa, dönüş değeri yalnızca Date1 ve Date2yıl bölümlerinden hesaplanır. Benzer şekilde, DateInterval.Month için dönüş değeri yalnızca bağımsız değişkenlerin yıl ve ay bölümlerinden ve iki tarihi içeren üç aylık dönemlerden DateInterval.Quarter hesaplanır.

  Örneğin, 31 Aralık ile sonraki yılın 1 Ocak'ını karşılaştırırken, DateDiff en fazla bir gün geçmesine rağmen DateInterval.Year, DateInterval.Quarterveya DateInterval.Monthiçin 1 döndürür.

  Birden çok çağı olan Japonca gibi kültürler için DateDiff yöntemi, fark iki veya daha fazla çağa yayılmışsa yıllar içinde bir fark döndürmez. Bunun yerine, aşağıdaki örnekte gösterildiği gibi Year özelliği tarafından döndürülen değerlerdeki farkı hesaplayabilirsiniz: date2.Year - date1.Year.

• Diğer Aralıklar. Her Date değeri bir DateTime yapısı tarafından desteklendiğinden, yöntemleri size zaman aralıklarını bulma konusunda ek seçenekler sağlar. Örneğin, Subtract yöntemini aşırı yüklenmiş formlarından birinde kullanabilirsiniz: DateTime.Subtract başka bir Date değeri döndürmek için bir TimeSpanDate değişkenden çıkarır ve DateTime.SubtractTimeSpandöndürmek için Date bir değeri çıkarır. Aşağıdaki örnekte gösterildiği gibi kaç milisaniye sürdüğünü bulmak için bir işlemi zamanlayabilirsiniz.

  Dim startTime As Date = Now
  ' Run the process that is to be timed.
  Dim runLength As Global.System.TimeSpan = Now.Subtract(startTime)
  Dim millisecs As Double = runLength.TotalMilliseconds
  

Interval bağımsız değişkeni aşağıdaki ayarlardan birine sahip olabilir.

DayOfWeek bağımsız değişkeni aşağıdaki ayarlardan birine sahip olabilir.

WeekOfYear bağımsız değişkeni aşağıdaki ayarlardan birine sahip olabilir.

Ayrıca bkz.

• DateAdd
• DatePart
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• DateTime
• TimeSpan
• Veri Türü Özeti (Visual Basic)