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