Kode di bawah ini digunakan untuk memberikan pemisah waktu yang diminta, tetapi sekarang Excel2016 pada Windows 10 menghasilkan hasil yang salah.
Public Sub TestDateFormat()
Dim s As String
Dim d As Date
d = Now()
s = Format(d, "yyyy.mm.dd Hh:Nn:Ss")
Debug.Print s
End Sub
============================================
TestDateFormat
2018.11.08 13.43.26
Windows 10 Pro versi 10.0.17134 Excel untuk Office versi 16.0.11001.20074
Orang lain punya ini?
Jawaban:
Masalah dalam fungsi vba. Format tampaknya menggunakan pembatas khusus yang diberikan untuk tanggal, tetapi pembatas dari pengaturan regional untuk waktu! OH TUHAN!
sumber
Gunakan sel tanggal untuk menyimpan tanggal dalam format yang Anda inginkan:
sumber
StrReverse (Ganti (StrReverse (Format (d, "yyyy.mm.dd Hh: Nn: Ss")), ".", ":", 1, 2))
sumber