close

Public Shared Function MakeSerial(ByVal Head As String) As String
    Dim KK As String
    KK = Format(Now, "yyyyMMddHHmmss")
    Return Head & KK & Format(Now.Millisecond, "000")
End Function


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 Roger 的頭像
    Roger

    歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

    Roger 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄