VBA - Funzione DatePart

Una funzione, che restituisce la parte specifica della data specificata.

Sintassi

DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

Descrizione dei parametri

  • Interval- Un parametro obbligatorio. Può assumere i seguenti valori.

    • d - giorno dell'anno.

    • m - mese dell'anno

    • y - anno dell'anno

    • yyyy - anno

    • w - giorno della settimana

    • ww - settimana

    • q - quarto

    • h - ora

    • n - minuto

    • s - secondo

  • Date1 - Un parametro obbligatorio.

  • Firstdayofweek- Un parametro opzionale. Specifica il primo giorno della settimana. Può assumere i seguenti valori.

    • 0 = vbUseSystemDayOfWeek - Utilizza l'impostazione API National Language Support (NLS)

    • 1 = vb domenica - domenica

    • 2 = vbMonday - Monday

    • 3 = vb Martedì - Martedì

    • 4 = vb Mercoledì - Mercoledì

    • 5 = vb giovedì - giovedì

    • 6 = vbFriday - Friday

    • 7 = vbSabato - Sabato

  • Firstdayofyear- Un parametro opzionale. Specifica il primo giorno dell'anno. Può assumere i seguenti valori.

    • 0 = vbUseSystem - Utilizza l'impostazione API National Language Support (NLS)

    • 1 = vbFirstJan1 - Inizia con la settimana in cui si verifica il 1 gennaio (impostazione predefinita)

    • 2 = vbFirstFourDays - Inizia con la settimana che comprende almeno quattro giorni nel nuovo anno

    • 3 = vbFirstFullWeek - Inizia con la prima settimana completa del nuovo anno

Esempio

Aggiungi un pulsante e aggiungi la seguente funzione.

Private Sub Constant_demo_Click()
   Dim Quarter as Variant
   Dim DayOfYear as Variant
   Dim WeekOfYear as Variant
  
   Date1 = "2013-01-15"
   Quarter    = DatePart("q", Date1)
   
   msgbox("Line 1 : " & Quarter)
   DayOfYear  = DatePart("y", Date1)
   
   msgbox("Line 2 : " & DayOfYear)
   WeekOfYear = DatePart("ww", Date1)
   
   msgbox("Line 3 : " & WeekOfYear)
   msgbox("Line 4 : " & DatePart("m",Date1))  
End Sub

Quando si esegue la funzione di cui sopra, produce il seguente output.

Line 1 : 1
Line 2 : 15
Line 3 : 3
Line 4 : 1