HomeVisual Basic技術項目 現在の日付・時刻からID作成

現在の日付・時刻からID作成

'例:
' 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")




ページトップへ

データベース

サーバ

Copyright (C) MadCap. All Rights Reserved.