Bu yazımızda saati ss:dd.sss formatında formatlamak için bir makro oluşturacağız.
Bu örnek için ham veriler, E sütunundaki belirli zaman değerlerinden oluşur.
Bu yazımızda kullanıcı tanımlı bir fonksiyon (veya özel fonksiyon) “HHMMSSSFormat” oluşturduk. Bu fonksiyon tarih tipini girdi olarak alır ve çıktıyı ss:dd.sss formatında string veri tipinde döndürür.
Mantıksal açıklama
60 saniyeyi üç haneli sayıya dönüştürmek için “HHMMSSSFormat” fonksiyonunda, tanımlanan zaman değerindeki saniyeleri 60'a bölerek tanımlı saniyeler için kesir elde ettik ve ardından bin ile çarparak üç basamaklı sayıyı elde ettik.
“HHMMSSSFormat” işlevi, doğrudan Excel sayfasında çağrılarak veya diğer prosedür (veya makro) içindeki işlev kullanılarak kullanılabilir.
Aşağıdaki resim, zamanı hh:mm.sss formatında türetmek için Excel sayfasında “HHMMSSSSFormat” işlevini nasıl kullandığımızı göstermektedir.
Ayrıca bir mesaj kutusunda geçerli saati ss:dd.sss formatında görüntülemek için “HHMMSSSFormat” işlevini kullanan bir “GettingCurrentTimeinHHMMSSSFormat” makrosu oluşturduk. Aşağıdaki resim, bu makroyu 3:54:30s'de çalıştırdığımızda çıktıyı göstermektedir.
Lütfen kod için aşağıdan takip edin
Seçenek Açık İşlev HHMMSSSFormat(DateTime As Date) As String ' işlevi, dize değerini döndürür 'Tamsayı değişkeni Dim SecondValue As Integer 'DateTime parametresinden saniyeler çıkarılıyor SecondValue = Second(DateTime) 'Saniye değerini üç basamaklı sayıya dönüştürüyor SecondValue = (SecondValue / 60) * 1000 'Zamanın formatını gerekli formatta değiştirin HHMMSSSFormat = Format(Hour(DateTime), "00") & ":" & _ Format(Minute(DateTime), "00") & "." & Format(SecondValue, "000") End Function Sub ReceiveCurrentTimeinHHMMSSSFormat() 'Dize değişkeni Dim CurrentTime As String bildiriliyor 'Özel işlev çağrılıyor HHMMSSSFormat CurrentTime = HHMMSSSFormat(Now) 'Sadece Ok düğmesiyle mesaj kutusu görüntüleniyor MsgBox CurrentTime, vbOKOnly, "Current Time " Son Alt
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın