Šajā rakstā mēs izveidosim makro, lai formatētu laiku hh: mm.sss formātā.
Neapstrādātie dati šajā piemērā sastāv no noteiktām laika vērtībām E slejā.
Šajā rakstā mēs esam izveidojuši lietotāja definētu funkciju (vai pielāgotu funkciju) “HHMMSSSFormat”. Šī funkcija izmanto datuma veidu kā ievadi un atgriež izvadi virknes datu veidā hh: mm.sss formātā.
Loģisks skaidrojums
Funkcijā “HHMMSSSFormat”, lai 60 sekundes pārvērstu par trīsciparu skaitli, mēs esam sadalījuši sekundes noteiktajā laika vērtībā ar 60, lai iegūtu daļu no noteiktām sekundēm, un pēc tam reizinot to ar tūkstošiem, lai iegūtu trīsciparu skaitli.
Funkciju “HHMMSSSFormat” var izmantot, zvanot tieši Excel lapā vai izmantojot funkciju citā procedūrā (vai makro).
Zemāk redzamais attēls parāda, kā mēs esam izmantojuši funkciju “HHMMSSSFormat” Excel lapā, lai iegūtu laiku hh: mm.sss formātā.
Mēs esam izveidojuši arī makro “GettingCurrentTimeinHHMMSSSFormat”, kas izmanto funkciju “HHMMSSSFormat”, lai ziņojumu lodziņā parādītu pašreizējo laiku formātā hh: mm.sss. Zemāk redzamais attēls parāda izvadi, kad mēs izpildām šo makro 3: 54: 30s.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Izteikta funkcija HHMMSSSFormat (datums un laiks kā datums) kā virkne '' funkcija atgriezīs virknes vērtību 'Vesela skaitļa mainīgā deklarēšana Dim SecondValue kā vesels skaitlis' Sekunžu izvilkšana no parametra DateTime SecondValue = Second (DateTime) 'Sekundes vērtības konvertēšana uz trīsciparu skaitli SecondValue = (SecondValue / 60) * 1000 'Mainiet laika formatējumu vajadzīgajā formātā HHMMSSSFormat = Format (Hour (DateTime), "00") & ":" & _ Format (Minute (DateTime), "00") & "." & Format (SecondValue, "000") Beigu funkcija Sub GettingCurrentTimeinHHMMSSSFormat () 'Virknes mainīgā deklarēšana Dim CurrentTime As String' Pielāgotas funkcijas izsaukšana HHMMSSSFormat CurrentTime = HHMMSSSFormat (Tagad) 'Ziņojumu lodziņa rādīšana tikai ar pogu Ok' MsgBox CurrentTime, " "Beigu apakš
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē