Julian Date from Gregorian Date

Description

Preload the Gregorian Date into these registers:

R1 = month (1 for January, 12 for December)
R2 = date
R3 = year in four digits (example: 2013)

Then press [f] [A] to get the Julian Date

Program resources

Labels

Name Description
A Gregorian to Julian Date Converter

Storage Registers

Name Description
0 Result: Julian Date
1 Preload: Month (1 for January, 12 for December)
2 Preload: Date
3 Preload: Year in four digits
4 temporary
5 temporary

Program

Line Display Key Sequence Line Display Key Sequence Line Display Key Sequence
000    023 3   3 046 1   1
001 42.21.11 f LBL A 024 30    047 43 14   g %
002 1   1 025 1   1 048 16   CHS
003 4   4 026 5   5 049 43 44   g INT
004 45.30. 1   RCL 1 027 3   3 050 44.40. 0   STO 0
005 1   1 028 20    051 45 5   RCL 5
006 2   2 029 2   2 052 4   4
007 10   ÷ 030 40    053 10   ÷
008 43 44   g INT 031 5   5 054 1   1
009 44 4   STO 4 032 10   ÷ 055 43 14   g %
010 4   4 033 43 44   g INT 056 43 44   g INT
011 8   8 034 44.40. 0   STO 0 057 44.40. 0   STO 0
012 0   0 035 3   3 058 45 0   RCL 0
013 0   0 036 6   6 059 3   3
014 45.40. 3   RCL 3 037 5   5 060 2   2
015 45.30. 4   RCL 4 038 45.20. 5   RCL 5 061 0   0
016 44 5   STO 5 039 44.40. 0   STO 0 062 4   4
017 45 2   RCL 2 040 45 5   RCL 5 063 5   5
018 44 0   STO 0 041 4   4 064 30   
019 1   1 042 10   ÷ 065 44 0   STO 0
020 2   2 043 43 44   g INT 066 43 32 g RTN
021 45.20. 4   RCL 4 044 44.40. 0   STO 0
022 45.40. 1   RCL 1 045 45 5   RCL 5