Het vergelijken van data in VBA , of Visual Basic for Applications , is in wezen hetzelfde als het vergelijken van gehele getallen . Om het vergelijken van data eenvoudiger te maken en te vereenvoudigen het werken met data in het algemeen , gebruiken variabele namen die een " Date " type geven . Bijvoorbeeld , schrijf " DAT1 , " of " birthday1 . " Om te begrijpen hoe om data te vergelijken , schrijf korte programma's die datum vergelijkingen uit te voeren , en het gebruik van de stap-voor - stap uitvoeren modus van de VBA- programmeeromgeving , samen met " watch Quick " -venster van het milieu , om deze vergelijkingen te observeren in real time . Bepalen Type
U hoeft niet te data te converteren naar de " Date " -type voor vergelijkingen als ze al in dat type . U kunt zien of een variabele een datum typt in een paar manieren . Kijk naar de sectie declaraties aan het begin van een VBA-procedure . Deze sectie is waar u verklaart alle variabelen met behulp van de " Dim " keyword . Je date variabelen zal worden verklaard met uitspraken als deze: " . Dim d1 als Date " Een andere manier weet u of uw variabele is een " Date " type is door te kijken naar opdrachten aan een variabele . Die opdrachten zal het karakter "#" , waarbij de " Date "-type geeft gebruiken . Bijvoorbeeld , de volgende instructie wijst de datum " 2001/12/01 " om de " Date " variabele " D1 . " D1
= # 2001/12/01 #
converteren naar Type
tot datum data in VBA vergelijken , moet u eerst twee data die zijn opgeslagen in de " Date " type, dat is een van de verschillende soorten waarde in VBA hebben . De " datum " type is een speciaal geval van de integer data , zodat data vergeleken in wezen hetzelfde als vergelijking integers . Als uw data zijn nog niet in de " Date "-type , moet u ze converteren naar dat type . Doe dat door het toepassen van de CDate functie . Voer bijvoorbeeld de volgende verklaring aan de string " 2001/12/01 " te converteren naar een datum Type : D1
= CDate ( " 2001/12/01 " )
de vergelijking
als u wilt testen of de datum in een variabele " date " plaatsvindt voor een andere , gebruik maken van de minder - dan-teken , zoals het volgende voorbeeld laat zien .
Als ( d1 < d2 ) op Twitter Gebruik het groter - dan-teken om te testen of een datum plaatsvindt later dan een andere datum , en gebruik het gelijk symbool om te zien of de waarden in twee variabelen hebben betrekking op dezelfde datum .
sample programma
Schrijf een steekproef programma dat converteert en vergelijkt data , zodat u kunt verwijzen naar het programma bij het schrijven van complexere VBA -programma's uitvoeren datum vergelijkingen . Open de programmeeromgeving in een van de Office-toepassingen door te klikken op de knop van het tabblad "Ontwikkelaar " " Visual Basic " , dan is het volgende programma plakken in centraal venster van het milieu . Dit programma maakt gebruik van de " CDate " -functie om strings te converteren naar data , en voert drie verschillende vergelijkingen op twee data . Start het programma door op " F5 ", en bekijk de output door te kijken in de " Direct " -venster . Public Sub CompareDates
( ) Dim d1
, d2 als Datum
d1 = CDate ( " 2001/12/01 " ) d2
= CDate ( " 2002/12/01 " ) op Twitter Als ( d1 < d2 ) dan Debug.Print " Date 1 gebeurt eerder dan datum 2 . "
Als ( d1 > d2 ) dan Debug.Print " datum 1 treedt uiterlijk datum 2 . "
Als ( d1 = d2 ) dan Debug . print " datum 1 is hetzelfde als datum 2 . " End Sub
|
