VBA Verificare che un anno è bisestile

Emanuele Mattei — Mon, 07 Apr 2008 13:52:00 GMT

Il frammento di codice qui di seguito, verifica che un anno è bisestile, la funzione ritorna true se è bisestile o false se non lo è.

'Funzione richiamata dall'evento click di un pulsante

Private Sub CommandButton1_Click()
MsgBox (AnnoBisestile(TextBox1.Text))
End Sub

'Funzione di verifica dell'anno

Private Function AnnoBisestile(IntAnno As Integer) As Boolean

If IntAnno Mod 4 = 0 And IntAnno Mod 100 <> 0 Or IntAnno Mod 400 = 0 Then
AnnoBisestile = True
Else
AnnoBisestile = False
End If

End Function

Publisher tasti di scelta rapida

Emanuele Mattei — Sun, 19 Feb 2006 10:45:00 GMT

Trucco: Publisher - tasti di scelta rapida

Di seguito si riportano alcuni tasti di scelta rapida per il programma Microsoft Publisher.

Aggiungere una pagina dopo la pagina corrente	CTRL+MAIUSC+N
Annullare	CTRL+Z
Aprire una pubblicazione esistente	CTRL+F12
Assestare a destra	ALT+freccia DESTRA
Assestare a sinistra	ALT+freccia SINISTRA
Assestare in alto	ALT+freccia SU
Assestare in basso	ALT+freccia GIÙ
Copiare	CTRL+C
Copiare la formattazione	CTRL+MAIUSC+C
Creare una nuova pubblicazione	CTRL+N
Eseguire il controllo dell'ortografia	F7
Incollare	CTRL+V
Incollare la formattazione	CTRL+MAIUSC+V
Iniziare un nuovo paragrafo	INVIO
Inserire un collegamento ipertestuale per l'oggetto selezionato su una pagina Web	CTRL+Y
Rendere trasparente o opaco	CTRL+MAIUSC+A
Riapplicare al carattere lo stile del testo corrente	CTRL+barra spaziatrice
Salvare le modifiche apportate a una pubblicazione	MAIUSC+F12
Selezionare tutto il testo di una cornice di testo, tutto il brano di cornici di testo collegate oppure tutto il testo di una cella di una tabella	CTRL+B o F8
Spostarsi tra la pagina di sfondo e quella in primo piano	CTRL+M
Spostarsi tra la visualizzazione della pagina corrente e la visualizzazione della dimensione effettiva	F9
Stampare una parte o tutta la pubblicazione	CTRL+MAIUSC+F12
Terminare una riga e iniziarne un'altra senza incominciare un nuovo paragrafo	MAIUSC+INVIO
Visualizzare la finestra di dialogo Vai a pagina	F5