• singoli
    • giorno
      • Day(data)
        • restrituisce il giorno della data indicata


      • Weekday(data)
        • restrituisce il giorno della settimana in numero della data indicata

        Weekday(Date, parametro)
        é possibile indicare un paramtro per settare il giorno 1

        • vbUseSystemDayOfWeek settaggio in base al sistema usato
        • vbMonday Lunedì = 1
        • vbTuesday Martedì = 1
        • vbWednesday Mercoledì = 1
        • vbThursday Giovedì = 1
        • vbFriday Venerdì = 1
        • vbSaturday Sabato = 1
        • vbSunday Domenica = 1



      • WeekdayName(Weekday(data))
        • restrituisce il nome del giorno della settimana della data indicata


      • WeekdayName(Weekday(data),True)
        • restrituisce il nome abbreviato del giorno della settimana della data indicata


      • Month(data)
        • restrituisce il mese della data indicata


      • MonthName(Month(data))
        • restrituisce il nome del mese della data indicata


      • MonthName(Month(data))
        • restrituisce il giorno della data indicata


      • Year(data)
        • restrituisce l'anno della data indicata




    • ora
      • Hour(ora)
        • restrituisce l'ora


      • Minute(ora)
        • restrituisce i minuti dell'ora inidcata


      • Second(ora)
        • restrituisce i secondi dell'ora indicata


      comandi estrazioni data
      estrazione comando VBA
      Mese Month(data)
      Anno Year(data)
      Giorno Day(data)
      Ore Hour(data)
      Minuti Minute(data)
      Secondi Second(data)
      Giorno della settimana WeekDay(data)

      esempio:
      Dim oggi As Integer

      Dim giorno(7) As String

      giorno(1) = "Lunedì"
      giorno(2) = "Martedì"
      giorno(3) = "Mercoledì"
      giorno(4) = "Giovedì"
      giorno(5) = "Venerdì"
      giorno(6) = "Sabato"
      giorno(7) = "Domenica"


      oggi = Weekday(Date, vbUseSystemDayOfWeek)

      Select Case oggi
      Case 1 To 7: MsgBox ("Oggi é:" & giorno(oggi))
      End Select





  • DatePart()
    • estrae una parte della data o ora indicata

    sintassi:
    DatePart(parametro, valore)


    parametri:

    • yyyy anno
    • q quadrimestre
    • m mese
    • y giorno dell'anno
    • d giorno del mese
    • w giorno della settimana
    • ww numero settimana
    • h ora
    • n minuti
    • s secondi


    esempi:
    DatePart("h", Time) estraggo solo ora attuale
    DatePart("yyyy", "15/10/2012") 2012
    DatePart("m", "15/10/2012") 10
    DatePart("d", "15/10/2012") 15



    esempio: scrivo nel file un testo diverso se siamo prima delle 13 o dopo
    If DatePart("h", Time) < 13 Then

    Print #numerofile, "Buongiorno,"
    Else
    Print #numerofile, "Buonasera,"
    End If