Aja väärtus VBA-s on sisseehitatud funktsioon, mis on liigitatud ka VBA kuupäeva ja kellaaja funktsiooni alla. See funktsioon, nagu nimigi ütleb, annab meile argumendina esitatud kuupäeva arvulise väärtuse, selleks on vaja ühte argumenti, mis on kuupäev ja tagastab argumendi arvväärtuse.
Mida teeb ajaväärtuse funktsioon VBA-s?
Funktsioon Ajaväärtus tagastab VBA Exceli ajaväärtuse osa alates kogu kuupäevast ja kellaajast. Kuupäev ja kellaaeg salvestatakse Excelis seerianumbritena. Seerianumber tähistab DATE ja kümnendkoht tähistab aega. Funktsiooni TimeValue abil saame ainult aegrida numbri, st kümnendarvu.
Funktsiooni VBA TimeValue süntaks
Funktsiooni VBA TimeValue süntaks on järgmine.
Nagu me ütlesime, tagastab funktsioon TimeValue antud kuupäeva seerianumbri osa, mis salvestatakse tekstiväärtusena. Aeg pole midagi muud kui tegelik aeg, millal seerianumbrit saada soovime. Pidage meeles, et ajaväärtus saab seerianumbri kätte ainult ajast, mis on salvestatud tekstina, mitte kell TIME.
Näited funktsioonist TimeValue koos Exceli VBA-ga
Allpool on toodud funktsiooni VBA TimeValue näited.
VBA TimeValue näide nr 1
Nüüd vaadake funktsiooni VBA TimeValue lihtsat näidet.
Kood:
Sub TIMEVALUE_Function_Example1 () 'Teisendage sisestatud string õigeks kellaajaks ja kuvage ekraanil' Muutuja deklaratsioon Dim MyTime as Date 'Määrake aeg muutujale MyTime = TimeValue ("28-05-2019 16:50:45")' Kuva väljund ekraanil MsgBox "Praegune kellaaeg on:" & MyTime, vbInformation, "Funktsioon VBA TIMEVALUE" Lõpp alam
Esiteks olen deklareerinud muutuja “MyTime” kuupäevaks.
Hämardage MyTime kuupäevana
Siis olen määranud muutujale väärtuse, rakendades TimeValue.
MyTime = TimeValue ("28.05.2019 16:50:45")
Siis olen sõnumikastis määranud muutuja tulemuse.
MsgBox "Pakutav aeg on:" & MyTime, vbInformation, "TIMEVALUE Function".
Kui käivitan koodi F5-klahvi abil või käsitsi, saame tulemuse järgmiselt.
VBA TimeValue näide # 2
Sama koodi puhul kuulutan VBA muutuja väärtuseks „Double”.
Kood:
Sub TIMEVALUE_Function_Example1 () 'Teisendage antud sisendstring kehtivaks kellaajaks ja kuvage ekraanil' Muutuja deklaratsioon Dim MyTime Double "Määrake aeg muutujale MyTime = TimeValue (" 28-05-2019 16:50:45 ") ' Kuva väljund ekraanil MsgBox "Praegune kellaaeg on:" & MyTime, vbInformation, "Funktsioon VBA TIMEVALUE" Lõpp alam
Kui ma käivitan VBA-koodi käsitsi või vajutades klahvi F5, kuvatakse selles aja seerianumber 16:50:45.
Teie paremaks mõistmiseks sisestan kõigepealt ühele lahtrile VBA teatekasti antud numbrid.
Nüüd rakendan täpse tulemuse kontrollimiseks ajavormingut.
Kui teisendate selle ajavormingusse, näete täpset aega.
VBA TimeValue näide # 3
Nüüd vaadake allolevaid andmeid.
Meil on andmeid ja aega koos lahtritest A1 kuni A14. Teise veeru jaoks peame välja tooma ainult ajaväärtuse. Kuna meil on rohkem kui üks lahter, millega tuleb tegeleda, peame kõigi rakkude jaoks sama ülesannete komplekti täitmiseks kasutama tsükleid.
Meil on andmed alates 1. silmus raku kuni 14 th raku, et meie loop peaks kestma 14 korda. Alumise ja ülemise piiri mainimiseks peame VBA-s kasutama FOR NEXT silmust. Allpool on kood, mis on juba kirjutatud, et eraldada kuupäeva ja kellaaja kombinatsioonist ajaväärtus.
Kood:
Sub TimeValue_Example3 () Dim k täisarvuna k = 1 kuni 14 lahtrini (k, 2). Väärtus = TimeValue (lahtrid (k, 1). Väärtus) Järgmine k End Sub
Koodi käivitamisel saame väärtused nagu allpool.
Kui soovite kellaaega näha, rakendage sellele vormingut TIME.
Nii toimib funktsioon TIME VALUE VBA ja Excelis nii.
