Šiame straipsnyje sukursime makrokomandą, kuri suformatuos laiką hh: mm.sss formatu.
Neapdorotus šio pavyzdžio duomenis sudaro tam tikros laiko vertės E stulpelyje.
Šiame straipsnyje mes sukūrėme vartotojo apibrėžtą funkciją (arba pasirinktinę funkciją) „HHMMSSSFormat“. Ši funkcija laiko datos tipą kaip įvestį ir grąžina išvestį eilutės duomenų tipu hh: mm.sss formatu.
Loginis paaiškinimas
Funkcijoje „HHMMSSSFormat“ 60 sekundžių paversti trijų skaitmenų skaičiumi, mes nustatytos laiko vertės sekundes padalijome iš 60, kad gautume trupmeną apibrėžtoms sekundėms, o tada padauginome ją iš tūkstančio, kad gautume trijų skaitmenų skaičių.
Funkcija „HHMMSSSFormat“ gali būti naudojama skambinant tiesiogiai „Excel“ lape arba naudojant funkciją kitos procedūros (arba makro) viduje.
Žemiau esančiame paveikslėlyje parodyta, kaip „Excel“ lape panaudojome funkciją „HHMMSSSFormat“, kad gautume laiką hh: mm.sss formatu.
Taip pat sukūrėme makrokomandą „GettingCurrentTimeinHHMMSSSFormat“, kuri naudoja funkciją „HHMMSSSFormat“, kad pranešimų laukelyje būtų rodomas dabartinis laikas hh: mm.sss formatu. Žemiau esančiame paveikslėlyje parodyta išvestis, kai vykdome šią makrokomandą 3: 54: 30s.
Sekite toliau pateiktą kodą
Parinktis Aiškioji funkcija HHMMSSSFormat (DateTime As Date) As String “funkcija grąžins eilutės reikšmę„ Deklaruojantis sveikojo skaičiaus kintamąjį Dim SecondValue As Integer “Sekundžių ištraukimas iš parametro DateTime SecondValue = Second (DateTime)“ Sekundžių vertės konvertavimas į trijų skaitmenų skaičių SecondValue = (SecondValue / 60) * 1000 'Pakeiskite laiko formatą reikiamu formatu & Formatas (SecondValue, "000") Pabaigos funkcija Sub GettingCurrentTimeinHHMMSSSFormat () 'Eilutės kintamojo deklaravimas Dim CurrentTime as String' Skambinimas pasirinktinei funkcijai HHMMSSSFormat CurrentTime = HHMMSSSFormat (Dabar) 'Rodomas pranešimų langelis su tik mygtuku Gerai MsgBox CurrentTime, " "Pabaiga Sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el