În acest articol, vom crea o macro pentru a formata ora în format hh: mm.sss.
Datele brute pentru acest exemplu constau din anumite valori de timp din coloana E.
În acest articol, am creat o funcție definită de utilizator (sau o funcție personalizată) „HHMMSSSFormat”. Această funcție ia tipul de dată ca intrare și returnează ieșirea în tipul de date șir în format hh: mm.sss.
Explicație logică
În funcția „HHMMSSSFormat” pentru a converti 60 de secunde într-un număr de trei cifre, am împărțit secunde în valoarea de timp definită cu 60 pentru a obține fracțiune pentru secunde definite și apoi a înmulțit-o cu mii pentru a obține numărul de trei cifre.
Funcția „HHMMSSSFormat” poate fi utilizată apelând fie direct în foaia Excel, fie utilizând funcția din cealaltă procedură (sau macro).
Imaginea de mai jos arată cum am folosit funcția „HHMMSSSFormat” în foaia Excel pentru a obține timpul în format hh: mm.sss.
De asemenea, am creat o macro „GettingCurrentTimeinHHMMSSSFormat” care utilizează funcția „HHMMSSSFormat” pentru a afișa ora curentă în format hh: mm.sss într-o casetă de mesaj. Imaginea de mai jos arată ieșirea când rulăm această macro la 3: 54: 30s.
Vă rugăm să urmați codul de mai jos
Opțiune Funcția explicită HHMMSSSFormat (funcția DateTime ca dată) Ca șir 'va returna valoarea șirului' Declararea variabilei întregi Dim SecondValue As Integer 'Extragerea de secunde din parametrul DateTime SecondValue = Second (DateTime)' Conversia valorii secundelor la numărul de trei cifre SecondValue = (SecondValue / 60) * 1000 'Schimbați formatarea timpului în formatul dorit HHMMSSSFormat = Format (Hour (DateTime), "00") & ":" & _ Format (Minute (DateTime), "00") & "." & Format (SecondValue, "000") Funcție de sfârșit Sub GettingCurrentTimeinHHMMSSSFormat () 'Declararea variabilei de șir Dim CurrentTime ca șir' Apelarea funcției personalizate HHMMSSSFormat CurrentTime = HHMMSSSFormat (Acum) 'Afișarea casetei de mesaj doar cu butonul Ok MsgBox CurrentTime, vbOKOn „Încheiați sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail