Beräkning tid och datum i din ansökan sker med hjälp av redan existerande Visual Basic-funktioner . Visual Basic levereras med flera funktioner som addera, subtrahera och spela in den aktuella tiden för användarna . Time -funktioner kan användas med input från användaren , eller så kan du hämta aktuellt datum och tid med hjälp av " Nu ( ) " -funktion . Instruktioner
1
Initiera variabler . Time värden definieras med hjälp av " Date " datatypen . Koden nedan skapar tre tidsvariabler . Den första innehåller den aktuella tiden , har den andra tiden plus 24 timmar och den tredje används för att hålla resultatet av beräkningen .
Dim firsttime så DateDim secondTime som DateDim resultat Datum
2
Tilldela tidsvärden till de första två variablerna . Koden nedan tar den aktuella tiden , och den andra variabeln innehar den aktuella tiden plus 1 dag :
firsttime = TimeValue ( nu ) secondTime = TimeValue ( Nu +1 ) Addera 3
Beräkna skillnaden mellan de två gånger . Koden nedan visar hur man beräknar skillnaden :
resultat = secondTime - Firsttime
4
ut resultaten . Resultaten av exemplet tid beräkning är 24 timmar. Koden nedan skriver resultatet till avlusningsfönstret :
Print resultat
