Test_WjDateRecognizerY2008M04D03 ; [2008-04-03]

    Private Sub Test_WjDateRecognizerY2008M04D03()
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes No
        ' (重要等級) Importance rating:  60%
        ' (再利用的可能性) Chances of reuse:  40%
        ' (程式撰寫的進度) Developing: Ongoing (80%)
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 04 01 PM 08 12 00)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     DescriptionOfThisRevision
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim AnyText As String
        AnyText = "This2008/04/01Happy"
        AnyText = "2008/04/01Happy"
        AnyText = "aaa2008/04/0"
        AnyText = "aaa2008/04/02"
        AnyText = "aaa2008/03/29"
        'AnyText = "08/04/01Happy"

        AnyText = GetStringInClipboard()

        Dim H As WjDateRecognizer_Slash_Y2008M04D03
        H = New WjDateRecognizer_Slash_Y2008M04D03(AnyText)

        ' Test OK
        'Dim H As WjDateRecognizer_Hyphen_Y2008M04D03
        'H = New WjDateRecognizer_Hyphen_Y2008M04D03(AnyText)

        Dim myRecognizedDateAsOneString As String
        myRecognizedDateAsOneString = H.GetRecognizedDateAsOneString

        Me.Do_PasteStringToTopOfRichTextBox(myRecognizedDateAsOneString)

        PasteStringToClipboard(myRecognizedDateAsOneString)

    End Sub ' Test_WjDateRecognizerY2008M04D03
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -