Data Confronto in VBA

date di confronto in VBA o Visual Basic for Applications , è essenzialmente la stessa funzione del confronto tra numeri interi . Per facilitare le date confronto e semplificare la collaborazione con le date , in generale , utilizzare i nomi delle variabili che indicano un tipo "Data" . Ad esempio , scrivere " DAT1 , " o " birthday1 . " Per capire come confrontare le date , scrivere brevi programmi che eseguono confronti di data , e utilizzare la modalità di esecuzione passo- passo del ambiente di programmazione VBA , insieme con la finestra dell'ambiente di " orologio rapido" , per osservare questi confronti in tempo reale. Determinazione Tipo

Non hai bisogno di convertire le date per il tipo "Data" per i confronti se sono già in quel tipo . Si può dire se una variabile è di tipo data in un paio di modi . Guardate la sezione delle dichiarazioni all'inizio di una procedura VBA . Questa sezione è dove si dichiarano tutte le variabili utilizzando la parola chiave " Dim " . Le variabili di data saranno dichiarati con affermazioni come questa : " . D1 Dim come data" Un altro modo di dire se la variabile è di tipo "Data" è , cercando in assegnazioni a una variabile. Tali assegnazioni potranno utilizzare il carattere "#" , che denota il tipo "Data" . Ad esempio, l' istruzione seguente assegna la data " 12/1/2001 " alla variabile "date" "D1 ".

D1 = # 12/1/2001 #
Convert to Date tipo

Per confrontare le date in VBA , è necessario prima di avere due date che vengono memorizzati nel tipo "Data" , che è uno dei diversi tipi di valore in VBA . Del tipo "Data" è una speciale istanza del tipo di dati integer , quindi confrontando date è essenzialmente la stessa di confrontare gli interi . Se le date non sono ancora del tipo "Data" , è necessario convertirli in quel tipo . Fate che, applicando la funzione CDate . Ad esempio, eseguire l'istruzione seguente per convertire la stringa " 12/1/2001 " ad un tipo di data :

D1 = CDate ( " 12/1/2001 " )

il confronto

Se si desidera verificare se la data di una variabile " data " si verifica prima di un altro , utilizzare il simbolo minore , come mostra il seguente esempio .

Se ( d1 < d2 ) per

utilizzare il simbolo maggiore di verificare se una data si verifica più tardi un'altra data , e utilizzare il simbolo uguale per vedere se i valori di due variabili fanno riferimento alla stessa data .
campione programma

scrivere un programma di esempio che converte e paragona le date in modo da poter fare riferimento al programma per la scrittura più complessi programmi di VBA che effettuano i confronti di data. Aprire l' ambiente di programmazione in una delle applicazioni di Office facendo clic sul pulsante " Visual Basic " del tab " Sviluppo " , quindi incollare il seguente programma nella finestra centrale del ambiente . Questo programma utilizza la funzione " CDate " per convertire le stringhe di date , ed esegue tre confronti diversi su due date . Eseguire il programma premendo il tasto " F5 " e visualizzare l'output , cercando nella finestra " Immediata" .

CompareDates Public Sub ()

Dim d1, d2 As Date

d1 = CDate ( " 12/1/2001 " ) per

d2 = CDate ( " 12/1/2002 " ) per

( d1 < d2 ) Then Debug.Print " Data 1 verifica antecedente a quella di 2 . "

( d1 > d2 ) Poi Debug.Print " Date 1 si verifica più tardi della data 2 . "

( d1 = d2 ), quindi eseguire il debug . Print " data 1 è la stessa data 2 . "

End Sub