XL2000: ?? ??????? ??????? ??????? ?? ????? ??? ???? ????? ???? ????

?????? ????????? ?????? ?????????
???? ???????: 213593 - ??? ???????? ???? ????? ????? ??? ???????.
??? ????? ??? ???????. ????? "??? ??" ??? ??? ??????? ??? ????.
????? ???? | ?? ????

???????

??? ????? ????? ?????? ????? ?? ???? ???? ??? ??????? ???? ?? ?????? ?????? ??????? ?? ????? ??????? ?????? ????? ??? ????? ??????.

?????

????? ?????? ????? ??? ???? ????? ? ??? ???? ?????? ??? ????? ???? ????? 1904 ?? ????? ??????? ?????? ?? ???? ?????? ?????? ????? ???? ??????? ???????:

  • ?????? ??????? ??????? Value2 ????? ???? ?????? ???????.

    - ?? -

  • ??????? ?????? ???? ?? ????? ??????? Microsoft Excel ????? ???? ?????? ???????.

???? ??????

???? ??????? ?????? ?? ??? ??? ???? ??????? 1904 ????? ????? ????? ??? ???? ????? 1900 ? ????? ??????? ???????.

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ?????. ??? ????? ???? ?? ????? ??? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ???? ?????? ?? ??? ??????? ???? ??? ????? ?? ??????? ???? ??? ????????? ?????? ?????? ?????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ??????? ?????.
???????? ??????? ???? ??????? ???????:

  1. ?????? "???? ????" ? ???? ??? "????" ?? ??????? ??? ???? ??? ???? ?? ?? ???? ??? ?????.
  2. ?? ??????? ?????? ???? ??? ?????? ? ???? ??? ????? ??????? ???? ? ?? ???? ??? ???? ????? 1904. ?? ???? ??? ?????.
  3. ???? ???????? ??????? ?? ??????1:
          A1: 7/5/96
          A2: 5/11/96
          A3: 4/28/96
    					
  4. ?? ??????? ?????? ??? ??? ????? ?? ???? ??? ???? Visual Basic. ?? ???? Visual Basic? ???? ??? ???? ????? ?? ??????? ?????.
  5. ???? ???????? ???????? ??????? ??? ???? ???? ?????:
          Sub DateTest()
             'dimension date variable
             Dim dDate As Date
    
             'store minimum date in range into variable
             dDate = Application.Min(Worksheets(1).Range("A1:A3"))
    
             'display stored date
             MsgBox "Stored date" & Chr(13) & dDate
    
             'check for 1904 date system
             If Application.ThisWorkbook.Date1904 Then
    
              'convert 1904 base date to 1900 base date
              dDate = DateSerial(Year(dDate) + 4, Month(dDate), Day(dDate) + 1)
    
              'display converted date
                MsgBox "Converted date" & Chr(13) & dDate
    
             Else
                MsgBox "1904 date system is not enabled"
             End If
          End Sub
    						
  6. ?????? ??????? ??? ??? ????? ??? ??????? ????? ?? ???? ??? ?????. ??? DateTest ?? ???? ??? ?????.
???? ???? ??????? ????? ?? ????? 4/27/92 ? ??? ????? ??????? ??? ???? ? ???? ?? ???? ????? ?? ?????? ?? ??????? ?? A1 ??? A3. ??????? ???? ???? ??????? ??????? ?????? "?????" 28 4 96.

?????

???? Microsoft ?? ??? ????? ?? ?????? Microsoft ??????? ?? ????? ??? ???????.

??????? ????

Visual Basic for Applications ???????? ?????? ?? ???? ????? 1904 ?????? ??????? ??? ???????. ??? ?????? ????? ???? ????? 1904 ?? Microsoft Excel ?????? ????? ???? ????? ?? ????? ???? ??? "? ?? ???? ????? ???? ????? ? ??? ???? (??? ???? ????? ?????? ??? ?????). ??? ???? ??????? ?? ???? ????? 9/1/96 ?? ???? ????? 1904 ????? 8/31/92.

?? ???? ??????? ???? ??????? ?? Visual Basic ??? ????? ???? ????? 1904 ??????? ??????? ??????? Value2 ????? ???? ?????? ???????.

???????

???? ???????: 213593 - ????? ??? ??????: 05/???? ??????/1435 - ??????: 4.2
????? ???
  • Microsoft Excel 2000 Standard Edition
????? ??????: 
kbnosurvey kbarchive kbmt kbbug kbdtacode kbpending kbprogramming KB213593 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????213593

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