Function GetStandardTimeStampWithYearMonthDayAndTime() ; Version: 1.00.02 , Last Updated: (2006 01 13 AM 01 39 50)

    Public Function GetStandardTimeStampWithYearMonthDayAndTime() As String
        ' (本段程式之目的) Purpose:
        '     Return a standard time stamp like the followings:
        '
        '           "(2003 07 28 AM 01 51 56)"
        '           "(2003 07 28 MM 12 51 56)"
        '           "(2003 07 28 PM 01 51 56)"
        '
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating:  90%
        ' (再利用的可能性) Chances of reuse:  80%
        ' (程式撰寫的進度) Developing: 100%
        ' (程式堪用的程度) Workable: 80%
        ' (程式的測試程度) Code tested: 80%
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2003 07 28 PM 01 49 20)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        '     Version: 1.00.02
        '     Last Updated: (2006 01 13 AM 01 39 50)
        '     Version: 1.00.01
        '     Last Updated: (2003 07 28 PM 01 49 20)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        ' Begin: 1.00.02 (2006 01 13 AM 01 40 03)

        Dim TimeStampWithYearMonthDayAndTime As String
        Dim ValueOfHour As Long

        Dim ThisMoment As Date
        ThisMoment = Now

        ValueOfHour = Hour(ThisMoment)

        Dim AM_MM_or_PM As String

        If ValueOfHour >= 0 And ValueOfHour < 12 Then
            AM_MM_or_PM = "AM"
        ElseIf ValueOfHour = 12 Then
            AM_MM_or_PM = "MM"
        Else
            AM_MM_or_PM = "PM"
            If ValueOfHour <> 12 Then
                ValueOfHour = ValueOfHour - 12
            End If
        End If

        Dim YearAsString As String
        YearAsString = ThisMoment.Year.ToString.PadLeft(4, Convert.ToChar("0"))
        Dim MonthAsString As String
        MonthAsString = ThisMoment.Month.ToString.PadLeft(2, Convert.ToChar("0"))
        Dim DayAsString As String
        DayAsString = ThisMoment.Day.ToString.PadLeft(2, Convert.ToChar("0"))

        Dim HourAsString As String
        HourAsString = ValueOfHour.ToString.PadLeft(2, Convert.ToChar("0"))

        Dim MinuteAsString As String
        MinuteAsString = ThisMoment.Minute.ToString.PadLeft(2, Convert.ToChar("0"))
        Dim SecondAsString As String
        SecondAsString = ThisMoment.Second.ToString.PadLeft(2, Convert.ToChar("0"))

        Dim SpaceChar As String = " "

        TimeStampWithYearMonthDayAndTime = "(" & YearAsString & SpaceChar & MonthAsString & SpaceChar & DayAsString & SpaceChar & AM_MM_or_PM & SpaceChar & HourAsString & SpaceChar & MinuteAsString & SpaceChar & SecondAsString & ")"

        Return TimeStampWithYearMonthDayAndTime

        ' End:    1.00.02 (2006 01 13 AM 01 40 03)

    End Function ' GetStandardTimeStampWithYearMonthDayAndTime
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -