Il controllo timer e le funzioni data/ora
Principale funzioni Del visual Basic su data e ora La funzione: 07/05/05 10.13.20 Time restituisce solo 10.13.20 Date restituisce
solo 07/05/05 Le funzioni Mentre le funzioni Hour Ora Vanno applicate a Time o a NOW
|
Private Sub Timer1_Timer() Label1.Caption = Time Label2.Caption = Date Label3.Caption = "sono le ore " & Hour(Time) & " ," & Minute(Time) & _ " minuti" & " e " & Second(Time) & " secondi" Label4.Caption = "Del " & Day(Date) & " " & mese(Month(Date)) & _ " " & Year(Date) End Sub |
La funzione mese è stata aggiunta nella sezione generale del form: |
Public Function mese(x) As String Select Case x Case 1 mese = "Gennaio" Case 2 mese = "Febbraio" Case 3 mese = "Marzo" Case 4 mese = "Aprile" Case 5 mese = "Maggio" Case 6 mese = "Giugno" Case 7 mese = "luglio" Case 8 mese = "Agosto" Case 9 mese = "Settembre" Case 10 mese = "Ottobre" Case 11 mese = "Novenbre" Case 12 mese = "Dicembre" End Select End Function |
ma adesso
mi direte : ma cosa è una funzione?
Le funzioni possono essere inserite nella parte generale del form ed essere richiamate da qualsiasi evento.Per inserire una funzione, dal menu strumenti---> inserisci routine.. apparirà la seguente finestra: spuntare ora su function e scrivere il nome della funzione Come vediamo sopra, quando richiamiamo la funzione dobbiamo passargli l'argomento "x" che nel nostro caso è Month(Date) che è la funzione del visual basic che restituisce il mese; poi trasformiamo il numero nel nome del mese. Questo esempio è solamente a scopo didattico; ci sono infatti dei metodi più immediati per raggiungere questo risultato. |
scarica l'esempio orologio.zip |
Torna all' indice |