????? ????? ??????? Visual Basic ?? ??? 2000

?????? ????????? ?????? ?????????
???? ???????: 162718 - ??? ???????? ???? ????? ????? ??? ???????.
??? ????? ??? ???????. ????? "??? ??" ??? ??? ??????? ??? ????.
????? ???? | ?? ????

?? ??? ??????

??????

?? ???? ?????? ??? ????? ????? ??????? ????????? ?????? ?? ??? 31 ?????? 1999 ?? ???? ?????. ?? ????? ????? ?? ????? 2000 ? ??? ??????? ????? ??? ??? 2000 1900 ?? 1980 ??? ? ????? ?? ??? ??????? ?? ?????? ?? ?? ???? Visual Basic ????????? ????? ???? ???? ?? ???????? ??? 31 ?????? 1999.

??????? ????

????? ??? ?? ????? ?? ????? (??? 7/3/45) ????? ????? ??????? ???? ??????? Visual Basic ????? ???? ?? ??? (?????? ????? ?????) ? ???? Visual Basic ?????? ????? ?? ?????? ?? ???????. ???? ???? ???? ????? ????? ??? ?????? ?????? ??? ??????? Visual Basic ?????.

????? ????????? Visual Basic

??????? ????? ??????? Visual Basic ?? Windows (??? ?? ??? ?????? ??????? ?????? ?? ??? Visual Basic DOS ? QuickBasic) ??? ??????? 3.0 ? ????? ?? ????? ??? ????? ????? ?? ???? ?? 1900s. ?? ????? ?? ?? ????? ????? ??? ????? ????????? ???????? ?????? ??? ????????? ??? ?? ????? ??? ????? ???? ??????? ?? ????? ????? ?????? ??????.

??? ????? ????? ?? Visual Basic 3.0 ? 4.0 emerged ????? ????? ?????: Visual Basic for Applications "?" ????? OLE. ??? ??? ???? ??? ???????? ? ????? ??? ????? Visual Basic ????? ????????? ???????? ??????? ?? ????? ??? ?? ????? ??? ??? ????? ?? ????? ?????. ??? ????? OLE ??? ???? ?? ?????? ??????? ???? ????? ?????? ??? ????????? ??????. ?? Visual Basic for Applications ????? ??? ????? ??? ????????? ????????; ?? ????? ??????????? ??? ?????? ????? OLE ????? ?? ???.

?? ????? ?? ??????? ??????? ???????? ?? ?? ??????? 4.0 Visual Basic ? ???? ????? ??? ?????? ????? OLE ?????? ????? ??? ????? ??? ????? ????? ?? ????? ????? ?? ???? ???????. ????????? ??? ??????? ?? ?????? DateSerial ???? ?? ?????? ?? ????? ??? ????? Visual Basic ???? Visual Basic ????? ?????? ?? ??????? ?? ?? ???? ????? ????? OLE ?? ??? ?????.

????? ???? ????? Visual Basic 4.0 ???? Microsoft ?? ????? ?????????? ????????? ?? ????????? ??????? ?? Visual Basic ?? ???????? ???? ??? ???????? ??????. ???? emerged ????? ?????. ???? ????? ??? ?? ????? ??? ????? ??????? ?? ????? ??????. ??? ??? ??? ????? Year(Date("1/1/00")) ??? ????? ??????. ?? ????? ??? ??????? ??????? ?? ???????? ????? OLE ????????? ?? ??? Visual Basic 4.0 ? Visual Basic for Applications. ????? ??? ????? Visual Basic 4.0 ?????? ??????? ?????? DateSerial ?????.

Microsoft ?????? reconsidered ? ????? ????????? ?? ????? OLE (???? ??????? ??????) ?????? ????? ?? ????? 2.20.4049 OleAut32.dll. ?? ???? ??? ??????? ??? ????????? ??? 16 ?? ???? ????? ??? ???????? ????????? ??????? 32-??. ????? ??? ????? ??? ??? ??? 00 ?29 (??? 17) ??? 2017 ????? ??? ????? ??? ??? ??? 30 ? 99 (??? 72) ??? ???? 1972. ???? ?????? ??????? ????? ????? ????? Visual Basic ?????? DateSerial. ????????? 5.0 Visual Basic ? ????????? ??????? ????? ?? ??? ????? ????? ??? ?????? ?? ?????? ??? ??????? ?????? ???.

??? ????? ??????? ??????? ?? Internet Explorer ??????? 3.0 ?????????? ?????? ? ???? ?????? Service Pack 5 ?????? ?? Windows NT 3.51 ? Windows NT 4.0, Windows 95 OSR 2 ? Office 97, 5.0 Visual Basic ? ???????? ??????.

?? ??? ???? ??? Mean ??? ???????? ????? ??????? Visual Basic ?

3.0 Visual Basic ?????????? ??????? ????? ???? ??????? ??? 1900s.

4.0 Visual Basic (16-??) ????? ???? ??????? ????? ????? ?????? ??????. ???????? ??? ?????? ??????? Visual Basic ????? ??????? ???????? ??? ??????????? ?? ???????? ????????? 16 ?? ?? ????? ??? ???????. ?? ??? ??????? ????? ?????????? ?? ???????? ????????? 16-?? ??? ?????? ??? ???????? ?????? ??? ????? ?? ??????? ???? ??????? ???? 4.0 Visual Basic.

4.0 Visual Basic ????? (32-??) ??????? ??? ????? ????? ?? ????? ????? ???????? ??? ??????? ????????? ?? ???????? ????????? ???? ??? ??? ??????? ???? DateSerial ????? ???? ??????? ????? ????? ?????? ??????. ???????? ????????? 32-?? (OleAut32.dll ??????? 2.10) ??????? ??? ????? 4.0 Visual Basic ????? ???? ??????? ??? ????? ????? ?????? ??????. ????? ?????? ??????? 32-?? ???? (??????? OleAut32.dll 2.20 ?????????? ??????) ??????? 1900s ??? ???? ????? ?????? ??? 30 ? 99. ?? ???? ??? 00 ?29 ????? ?? ?????? ??? ????? ??????? ??? 2000s.

??????? Visual Basic ???? ??? 4.0 ? ????? ??????? ??? ???????? ??? ????????? ?? ???????? ????????? ?????? ????? ???? ??????? ??????? ?? ????? ?????. 5.0 Visual Basic ???? ??? ????? ?? ??????? 2.20.4054 ????? ????? ??? ????? ??? 1900s ??? ???? ????? ?????? ??? 30 ? 99. ?? ???? ??? 00 ?29 ????? ?? ?????? ??? ????? ??????? ??? 2000s.

???? ??? ?? ???? ??? ??????????? ?

?? ????? ??? ??????? ?????? ??????? ?????? ?? ????? ?? ???????? ??? ????????? ?????????? ??????? ??? Visual Basic. ??? ???? ??????? ?? ????? ??? ????? ??? ?????? ????? 00 ??? 49 ?????? ?? ??? 2000 2049 ????? 50 ??? 99 ?????? ?? ????? 1950 1999.

??? ???? ????? ????? ?? ???????? ? ?????? ????? ??????? ?????? ??? ??????? ???? ?? ??????? ?? ?????. ???????? ??? ????? ??? ??????? ????? 11 1 45 ?? ????? 2045 ?? ????? 1945. ??? ??? ??????? ????? ??????? ??? ?????? ????? ??????? ?? ????? ????? ??????? ?? ????? ??? ??????? ????? ?? ??? ????? ?? ????? ????? ??? ????? ?????.

??? ?????

????? ???????? ???????? ??????? ???????? ??????? ?? ???? ?? ???? txtDate ??? ????? ??? cmdConvertDate. ??? ??? ??????? ???? ????? ??? ??? ?? ?????? ??? ????? ??????? ??? ????? ??? ?? ????? ????? ????? ????? ????. ???????? ???????? ?? ???? ??????? ?????? ????? ????? ????? ??? ?????? ?????? ??? ???????? ??? ????? ???? ?????? ??? ????? ??? ????????? ?????????? ??????? ??? Visual Basic. ??? ???????? ??? ????? ??????? ??????? ?? txtDate ??? ????? ??? ???? ?? ???????? ????? ?? ????? ?????.

????? ????? "??????? ?????? ??????? ??????? ?????? ?? ????? ???????" ? ????? ????? ????????? ???????? ??? ?? ???? ???? ???? 32-?? ?? ?????? ????? ??????? ?? Visual Basic. ?????? ??? ???? ?? ????????? ??? ??? ?????? ??? ????? ????? ?????? ??????? ?????? ?? ?????? ?????? ???? Microsoft ??? ??? Visual Basic ??:

http://www.microsoft.com/vbasic

????? ??? ???????? ???????? ???? ????? ???????? ???????? mm/dd/yy ???? ???? ????? ?????? ??????? ????? ????? ???:

   Private Sub cmdConvertDate_Click()
       Dim strYear As String
       Dim intSlash As Integer
       If IsDate(txtDate) or txtDate = "2/29/00" Then
           'Find first date separator.
           intSlash = InStr(txtDate, "/")
           If intSlash > 0 Then
               'Find second date separator.
               intSlash = InStr(intSlash + 1, txtDate, "/")
               If intSlash > 0 Then
                   'Extract the year from the date.
                   strYear = Mid(txtDate, intSlash + 1)
                   If Len(strYear) = 2 Then
                       If CInt(strYear) < 50 Then
                       ' Less than 50: year = 20XX.
                           strYear = "20" & strYear
                       Else
                       ' Greater than 50: year = 19XX.
                           strYear = "19" & strYear
                       End If
                   End If
                   MsgBox "Date Entered: " & txtDate
                   MsgBox "Year (Our Rule): " & strYear
                   MsgBox "Year (VB Default): " & Year(txtDate)
               Else
                   MsgBox "Date not in expected format!"
               End If
           Else
               MsgBox "Date not in expected format!"
           End If
       Else
           MsgBox "Not a valid date!"
       End If
       '  Clarify date in txtDate.
       txtDate.Text = Left(txtDate.Text, intSlash) & strYear
   End Sub
				

?????

??????? Microsoft Visual Basic ?????; ????? ???: ????? ?????? ?????; ???????? IsDate ??????; ????? CDate ? CVDate;

(?) ???? ???? Microsoft ? ???? ???? ?????. ????????? ?????? ????? Sceppa ? ???? Microsoft

???????

???? ???????: 162718 - ????? ??? ??????: 24/???? ??????/1435 - ??????: 3.3
????? ???
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic Control Creation Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 16-bit Enterprise Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic 2.0 Standard Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 1.0 Standard Edition
????? ??????: 
kbnosurvey kbarchive kbmt kbhowto KB162718 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????162718

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com