System Registry Dates

Discussion in 'AutoCAD' started by brent_mctigue, May 3, 2004.

  1. AutoCAD records the file and date edited in the system registry;
    HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R15.0\ACAD??:???\File History
    The date entries don't seem to be in Julian format. Does anyone know how to decipher these.
    I'd like to be able to export part of the registry to an excel spreadsheet, hopefully to run the date entries through a formula to convert them.
     
    brent_mctigue, May 3, 2004
    #1
  2. brent_mctigue

    sdaze Guest

    The format is similar to the date/time that is stored as an environment variable in AutoCAD. If you look for "DATE" in the AutoCAD help file you will get a brief description. I'm sure someone has a quick routine that extracts the day/month/year from this variable.

    Shaye.
     
    sdaze, May 3, 2004
    #2
  3. brent_mctigue

    sdaze Guest

    sdaze, May 3, 2004
    #3
  4. brent_mctigue

    Jürg Menzi Guest

    brent_mctigue

    Check this:
    ;
    ; == Function ConvJulianDate
    ; Convert julian date/time to standard format.
    ; Arguments [Type]:
    ; Val = Date/Time Julian [REAL]
    ; Mde = Conversion Mode, eg "MO/DD/YYYY HH:MM" [STR] *)
    ; Return [Type]:
    ; > Formatted date/time [STR]
    ; Notes:
    ; *) Details for mode see Diesel, edtime
    ;
    (defun ConvJulianDate (Val Mde / TmpVal)
    (setq TmpVal (if (minusp (- Val 2415019.0)) (+ Val 2415019.0) Val))
    (menucmd (strcat "M=$(edtime," (rtos TmpVal) "," Mde ")"))
    )

    Cheers
     
    Jürg Menzi, May 3, 2004
    #4
  5. brent_mctigue

    Juerg Menzi Guest

    brent_mctigue

    Check this:
    ;
    ; == Function ConvJulianDate
    ; Convert julian date/time to standard format.
    ; Arguments [Type]:
    ; Val = Date/Time Julian [REAL]
    ; Mde = Conversion Mode, eg "MO/DD/YYYY HH:MM" [STR] *)
    ; Return [Type]:
    ; > Formatted date/time [STR]
    ; Notes:
    ; *) Details for mode see Diesel, edtime
    ;
    (defun ConvJulianDate (Val Mde / TmpVal)
    (setq TmpVal (if (minusp (- Val 2415019.0)) (+ Val 2415019.0) Val))
    (menucmd (strcat "M=$(edtime," (rtos TmpVal) "," Mde ")"))
    )

    Cheers
     
    Juerg Menzi, May 3, 2004
    #5
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.