Una funzione, dedicata al recupero solo dell'orario di sistema, è Time(). La funzione Timer restituisce il numero dei secondi passati dalla mezzanotte.
Le componenti estraibili dalle date sono:
  1. Mese
  2. Anno
  3. Giorno
  4. Ore
  5. Minuti
  6. Secondi
Componenti di una datafunzione VBA da usare
MeseMonth(data)
AnnoYear(data)
GiornoDay(data)
OreHour(data)
MinutiMinute(data)
SecondiSecond(data)

La WeekDay(data) restituisce il progressivo del giorno. Presentiamo la demo in cui acquisita la data di sistema, si possa restituire il messaggio Oggi è:
  1. Domenica;
  2. Lunedì;
  3. Martedì;
  4. Mercoledì;
  5. Giovedì;
  6. Venerdì;
  7. Sabato;
La demo consta delle seguenti righe di codice:
Dim datasistema As Date
Dim costante As Integer
Dim vettoregiorni(1 To 7) As String
vettoregiorni(1) = "Lunedì"
vettoregiorni(2) = "Martedì"
vettoregiorni(3) = "Mercoledì"
vettoregiorni(4) = "Giovedì"
vettoregiorni(5) = "Venerdì"
vettoregiorni(6) = "Sabato"
vettoregiorni(7) = "Domenica"
costante = Weekday(Date, vbUseSystemDayOfWeek)
Select Case costante
    Case 1 To 7 : MsgBox ("Oggi è:" & vettoregiorni(costante))
End Select
Per chiudere l'argomento presentiamo la classe VBA Maths. Racchiude un set di funzioni, le quali ci permettono di manipolare i numeri.
Dato un numero per ottenere la rappresentazione esadecimale dobbiamo utilizzare la funzione Hex
La rappresentazione esadecimale è:
Il codice è:
Sub Main()
    Dim numero As Integer
    Dim stringa As String
    numero = InputBox("Valore in base dieci:")
    stringa = Hex(numero)
    MsgBox ("rappresentazione esadecimale:" & stringa)
End Sub

Sfoglia le lezioni

Ti potrebbero interessare...

Commenti

I commenti sono sottoposti alle linee guida di moderazione e prima di essere visibili devono essere approvati da un moderatore.