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

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