ACC2000: ????? ????? ???? ????????? ??? ???????? ?? ?????? ??? "?" ??????

?????? ????????? ?????? ?????????
???? ???????: 209922 - ??? ???????? ???? ????? ????? ??? ???????.
??????: ????? ????? ???????? ????? ? ???????? ??????? ??????? ????????.

????? ???? | ?? ????

??????

???? ??? ?????? ????? ????? ????? ????? ????? ?????? ????????? ??? ???????? ?? Microsoft Access ????? ????? ????? ???????? Microsoft Access ??? ?????? ?????????. ????? ????? ????? ????? ????????? ???????? ?? ??????? ??? ????? ????? ????????? ???????. ????? ???????? ??????? ???? ??????? ??? ?????.

??????? ????

???? ?????? ?? ??????? ?????? ??????? ????????? ??????? ?????????. ?? ??? ??????? ????? ???? ????? ??????? ?? ??? ??????? ????? ????? ?????? ????????? ??????? ?? ??????? ???????? (???????). ????? ?? ???? ??? ??????? ??? ????? ??? ???? ??? ???????. ??? ?????? ?? ???????? ??? ?? ?????.

??? ??????? ??? ???? ????????? ?????? ???????? ???????? ?????????. ?? ????? ????? "???????" ??? ???? ????????? ?? ??? ??????? ???????? ??? ?? ????? (??? ???? ??????? ????? ??????? 032 ???? ?????? ????? ?? ???? ????? 32nd). ????? ??????? ?? ??????? ????? ??????? ??? ???? ???????? ??? ?????? ?????? (??? ???? ?????? 99032 ?? 1 2 ???) ?? ??? ????? ???? (??? ???? ?????? 99-032). ?????? ??????? ????? ??????? ???, ??? ?????? ??? ??? ???? (??? ???? ?????? 9-032). ?? ????? ??? ????????? ?????? ???? ???? ????? ?? decade. ??? ?????? ??? ??????? ?????? ??? ??????? ??? ?????????; ??? ???? ??????? ???? ????? ????? ??????? 00061 3/1/2000 ?? 3/2/1900.

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ?????. ??? ????? ???? ?? ????? ??? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ???? ?????? ?? ??? ??????? ???? ??? ????? ?? ??????? ???? ??? ????????? ?????? ?????? ?????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ??????? ?????. ????? ?????? ????? ????? CJulian2Date() ? ??? ????????? ??? ?????:
  1. ????? ???? ????? ?? ???? ????? ?????? ?? ???? Declarations ??? ?? ??? ????:
    Option Explicit
    					
  2. ???? ??????? ??????:
    ' *********************************************************************
    ' FUNCTION: CJulian2Date()
    '
    ' PURPOSE: Convert a Julian day to a date. The function works with
    '          dates based on the Gregorian (modern) calendar.
    '
    ' ARGUMENTS:
    '    JulDay: The ordinal day of a year. Between 1 and 365 for all
    '            years, or between 1 and 366 for leap years.
    '
    '    YYYY: A three or four digit integer for a year that is within the
    '          range of valid Microsoft Access dates. If YYYY is omitted,
    '          then YYYY is assumed to be the year of the current system
    '          date.
    '
    ' RETURNS: A date for a valid Microsoft Access year and Julian day,
    '          or a Null value for an invalid Julian Day.
    ' *********************************************************************
    
    Function CJulian2Date (JulDay As Integer, Optional YYYY)
        If IsMissing(YYYY) Then YYYY = Year(Date)
        If Not IsNumeric(YYYY) Or YYYY \ 1 <> YYYY Or YYYY < 100 Or YYYY _
          > 9999 Then Exit Function
        If JulDay > 0 And JulDay < 366 Or JulDay = 366 And _
          YYYY Mod 4 = 0 And YYYY Mod 100 <> 0 Or YYYY Mod 400 = 0 Then _
            CJulian2Date = Format(DateSerial(YYYY, 1, JulDay), "m/d/yyyy")
    End Function
    					
??????? ??? ?????? ???? ??????? ???????:
  1. ???? ????? ?????? ?? ?????? ?????? ????? ??? ENTER:
    ?CJulian2Date(32, 1999)
    						
    ???????? ???? ?? ??????? ????? ????? ?????? ????? ?? 1 2 ???. ??? ??? ????? ?????? ????? ?? ?? ??? ?? CJulian2Date(32) ????? ????? 1 2 ???.
  2. ?????? ????? ????? ??????? ??? 99032 ??? ????? Microsoft Access ???? ????? ?????? ?? ?????? ?????? ??? ?? ???? ????? ??????? ENTER:
    ?CJulian2Date(99032 Mod 1000, 1900 + 99032 \ 1000)
    						
    ???????? ???? ?? ??????? ????? ????? ?????? ????? ?? 1 2 ???. ??????? 1900 2000 ??? ??? ?????? ??? ??????? ??????? ????????? ???????? ??? 1/1/2000 ? 31 ?????? 2999.
  3. ?????? ????? ????? ??????? ??? 99-032 ??? ????? Microsoft Access ???? ????? ?????? ?? ?????? ?????? ??? ?? ???? ????? ??????? ENTER:
    ?CJulian2Date(Right("99-032", 3), 1900 + Left("99-032", 2))
    						
    ???????? ???? ?? ??????? ????? ????? ?????? ????? ?? 1 2 ???. ??????? 1900 2000 ??? ??? ?????? ??? ??????? ??????? ????????? ???????? ??? 1/1/2000 ? 31 ?????? 2999.
????? ?????? ????? ?????? CDate2Julian() ? ????? Microsoft Access ??? ??? ???????:
  1. ????? ???? ????? ?? ???? ????? ?????? ?? ???? Declarations ??? ?? ??? ????:
    Option Explicit
    					
  2. ???? ??????? ??????:
    ' *********************************************************************
    ' FUNCTION: CDate2Julian()
    '
    ' PURPOSE: Convert a date to a Julian day. The function works with
    '          dates based on the Gregorian (modern) calendar.
    '
    ' ARGUMENTS:
    '    MyDate: A valid Microsoft Access date.
    '
    ' RETURNS: A three digit Julian day as a string.
    ' *********************************************************************
    
    Function CDate2Julian(MyDate As Date) As String
    
       CDate2Julian = Format(MyDate - DateSerial(Year(MyDate) - 1, 12, _
         31), "000")
    
    End Function
    					
  3. ??????? ??? ?????? ???? ????? ?????? ?? Immediatewindow ??? ?? ???? ????? ??????? ENTER:
    ?CDate2Julian(#3/1/1999#)
    						

    ?????? ??? ????? ??? ????? ??????? 060.
  4. ?????? ????? Microsoft ??? ??? ??????? ?????? ??? 99060 ???? ????? ?????? ?? ?????? ?????? ??? ?? ???? ????? ??????? ENTER:
    ?Year(#3/1/1999#) Mod 100 & CDate2Julian(#3/1/1999#)
    						
    ????????? ????? 99060.
  5. ?????? ????? Microsoft ??? ??? ??????? ?????? ??? 99-060 ???? ????? ?????? ?? ?????? ?????? ??? ?? ???? ????? ??????? ENTER:
    ?Year(#3/1/1999#) Mod 100 & "-" & CDate2Julian(#3/1/1999#)
    						
    ??? ????? ?????? 99-060.

???????

???? ???????: 209922 - ????? ??? ??????: 18/?????/1427 - ??????: 3.2
????? ???
  • Microsoft Access 2000 Standard Edition
????? ??????: 
kbmt kbhowto kbprogramming KB209922 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????209922

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

 

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