'例: ' 2009/01/01 00:00:00 → 091100000 ' 2009/12/31 23:59:59 → 09CVN5959 Dim alphabets As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim newId As String = "" newId &= Now.Year.ToString("0000").Substring(2, 2) newId &= alphabet.Substring(Now.Month, 1) newId &= alphabet.Substring(Now.Day, 1) newId &= alphabet.Substring(Now.Hour, 1) newId &= Now.Minute.ToString("00") newId &= Now.Second.ToString("00")