Delta Days

Description

Calculates the days between two given dates.

From the "MoHPC - General Software Library", Delta Days [12C Actual Day Basis] and MM.DDYYYY or DD.MMYYYY to Julian Day [Stack-Only].

Input:
X = Date 1
Y = Date 2
Flag 0 defines the date format: 0 = MM.DDYYYY, 1 = DD.MMYYYY

Output:
X = Delta Days (Number of Days Between Dates)
Positive results means "Date 1" < "Date 2", a negative result "Date 1" > "Date 2"

Examples:

With MM.DDYYYY input format:
CF 0 04.122007 ENTER 12.072021 A 5353.0000

With DD.MMYYYY input format:
SF 0 04.122007 ENTER 12.072021 A 4969.0000

Program Resources

Labels

Name Description
 A Delta Days
 0 Julian Day Number for a given date
 1 MM.DDYYYY to DD.MMYYYY conversion

Storage Registers

Name Description
.4 Date 2
.5
.6 Preserve Z register, in Y register after calculation
.7 Preserve T register, in Z and T register after calculation

Flags

Number Description
0 Input format: 0 = MM.DDYYYY, 1 = DD.MMYYYY

Program

Line Display Key Sequence Line Display Key Sequence Line Display Key Sequence
000 039 43 44 g INT 078 33 R⬇
001 42,21,11 f LBL A 040 1 1 079 33 R⬇
002 44 .4 STO . 4 041 2 2 080 3 3
003 43 33 g R⬆ 042 34 x↔y 081 6 6
004 44 .7 STO . 7 043 20 × 082 5 5
005 43 33 g R⬆ 044 43 36 g LSTΧ 083 20 ×
006 44 .6 STO . 6 045 33 R⬇ 084 40 +
007 43 33 g R⬆ 046 40 + 085 34 x↔y
008 32 0 GSB 0 047 3 3 086 4 4
009 44 .5 STO . 5 048 30 087 10 ÷
010 45 .4 RCL . 4 049 1 1 088 43 44 g INT
011 32 0 GSB 0 050 5 5 089 40 +
012 45,30, .5 RCL . 5 051 3 3 090 34 x↔y
013 45 .4 RCL . 4 052 20 × 091 26 EEX
014 43 16 g ABS 053 2 2 092 2 2
015 43 35 g CLx 054 40 + 093 10 ÷
016 45 .7 RCL . 7 055 5 5 094 43 44 g INT
017 45 .7 RCL . 7 056 10 ÷ 095 30
018 45 .6 RCL . 6 057 43 44 g INT 096 34 x↔y
019 43 33 g R⬆ 058 34 x↔y 097 4 4
020 43 32 g RTN 059 43 44 g INT 098 0 0
021 42,21, 0 f LBL 0 060 43 36 g LSTΧ 099 0 0
022 43 44 g INT 061 42 44 f FRAC 100 10 ÷
023 43 36 g LSTΧ 062 33 R⬇ 101 43 44 g INT
024 42 44 f FRAC 063 40 + 102 40 +
025 26 EEX 064 34 x↔y 103 3 3
026 2 2 065 43 33 g R⬆ 104 2 2
027 20 × 066 26 EEX 105 0 0
028 43, 6, 0 g F? 0 067 4 4 106 4 4
029 32 1 GSB 1 068 20 × 107 5 5
030 34 x↔y 069 34 x↔y 108 30
031 36 ENTER 070 30 109 43 32 g RTN
032 16 CHS 071 4 4 110 42,21, 1 f LBL 1
033 1 1 072 8 8 111 43 44 g INT
034 4 4 073 0 0 112 34 x↔y
035 40 + 074 0 0 113 43 36 g LSTΧ
036 1 1 075 40 + 114 42 44 f FRAC
037 2 2 076 36 ENTER 115 40 +
038 10 ÷ 077 36 ENTER 116 43 32 g RTN