| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /nginx/html/JimMartinson/_Archive/CST1861/dostips.com/ |
Upload File : |
:date2jdate JD YYYY MM DD -- converts a gregorian calender date to julian day format :: -- JD [out] - julian days :: -- YYYY [in] - gregorian year, i.e. 2006 :: -- MM [in] - gregorian month, i.e. 12 for december :: -- DD [in] - gregorian day, i.e. 31 :$reference http://aa.usno.navy.mil/faq/docs/JD_Formula.html :$created 20060101 :$changed 20080219 :$categories DateAndTime :$source http://www.dostips.com SETLOCAL set "yy=%~2"&set "mm=%~3"&set "dd=%~4" set /a "yy=10000%yy% %%10000,mm=100%mm% %% 100,dd=100%dd% %% 100" if %yy% LSS 100 set /a yy+=2000 &rem Adds 2000 to two digit years set /a JD=dd-32075+1461*(yy+4800+(mm-14)/12)/4+367*(mm-2-(mm-14)/12*12)/12-3*((yy+4900+(mm-14)/12)/100)/4 ENDLOCAL & IF "%~1" NEQ "" (SET %~1=%JD%) ELSE (echo.%JD%) EXIT /b