The Museum of HP Calculators

HP Forum Archive 15

[ Return to Index | Top of Index ]

DDAYS & co. for HP 33s
Message #1 Posted by Gour on 23 Feb 2006, 3:14 a.m.

Hi!

I placed order for HP 33s and while waiting for it to arrive I'm looking for some programs I need for regular use, like date arithmetic - DDAYS, DATE+ etc.

Anyone knows for some date-arithmetic package for HP 33s?

Sincerely,
Gour

      
Re: DDAYS & co. for HP 33s
Message #2 Posted by Gerson W. Barbosa on 23 Feb 2006, 7:19 a.m.,
in response to message #1 by Gour

Hi Gour,

While you don't get anything better, you can try the program below, using the formulas in the TI 58/59 Master Library Manual.

Regards,

Gerson.

DATE & DAYS BETWEEN DATES PROGRAM (HP-33S VERSION)

G0001 LBL G
G0002 x<>y
G0003 STO A
G0004 x<>y
G0005 ENTER
G0006 IP
G0007 STO C
G0008 Rv
G0009 RLC C
G0010 -
G0011 100
G0012 *
G0013 ENTER
G0014 IP
G0015 STO B
G0016 Rv
G0017 FP
G0018 4
G0019 10^x
G0020 *
G0021 STO D
G0022 2
G0023 ENTER
G0024 RCL C
G0025 x>y?
G0026 GTO H
G0027 RCL D
G0028 1
G0029 -
G0030 100
G0031 /
G0032 1
G0033 +
G0034 IP
G0035 0.75
G0036 *
G0037 IP
G0038 +/-
G0039 RCL D
G0040 1
G0041 -
G0042 4
G0043 /
G0044 IP
G0045 +
G0046 RCL C
G0047 1
G0048 -
G0049 31
G0050 *
G0051 +
G0052 RCL B
G0053 +
G0054 RCL D
G0055 365
G0056 *
G0057 +
G0058 RTN

H0001 LBL H
H0002 RCL D
H0003 365
H0004 *
H0005 RCL B
H0006 +
H0007 RCL C
H0008 1
H0009 -
H0010 31
H0011 *
H0012 +
H0013 RCL C
H0014 0.4
H0015 *
H0016 2.3
H0017 +
H0018 IP
H0019 -
H0020 RCL D
H0021 4
H0022 /
H0023 IP
H0024 +
H0025 RCL D
H0026 100
H0027 /
H0028 1
H0029 +
H0030 0.75
H0031 *
H0032 IP
H0033 -
H0034 RTN

N0001 LBL N
N0002 XEQ G
N0003 RCL A
N0004 XEQ G
N0005 RCL A
N0006 -
N0007 +/-
N0008 RTN

W0001 LBL W
W0002 XEQ G
W0003 ENTER
W0004 +/-
W0005 7
W0006 /
W0007 IP
W0008 7
W0009 *
W0010 +
W0011 RTN

Length & Checksum Table:

LBL    CK   LN
 G    7A9E  318
 H    75E1  210
 N    E3B8   24
 W    3A2B   57

Usage:

date 1 (MM.DDYYYY)
ENTER
date 2 (MM.DDYYYY)
XEQ N  => number of days between dates

date   (MM.DDYYYY)
XEQ W  => weekday (0=Sat, 1=Sun, ... , 6=Fri)

1582 < YYYY < 10000

Edited: 23 Feb 2006, 7:29 a.m.

            
Re: DDAYS & co. for HP 33s
Message #3 Posted by Gour on 24 Feb 2006, 3:52 a.m.,
in response to message #2 by Gerson W. Barbosa

Hi Gerson!

Quote:
While you don't get anything better, you can try the program below, using the formulas in the TI 58/59 Master Library Manual.

Thank you very much.

Have you considered to submit those routines to MoHPC software library ?

Sincerely,
Gour

                  
Re: DDAYS & co. for HP 33s
Message #4 Posted by Gerson W. Barbosa on 24 Feb 2006, 1:40 p.m.,
in response to message #3 by Gour

Hi Gour,

Thanks for the suggestion. I have already submitted a program for calculating Carnival and Easter Sundays (for the 42S). Perhaps you should take a look at the calendar functions for the 67, it would not be difficult to convert them to the 33S:

http://www.hpmuseum.org/software/67pacs/67calend.htm

Or at Christoph Giesselink's Date Functions for the HP-42S at www.hp42s.com:

http://www.hp42s.com/programs/date/date.html

It should be easy to adapt them to the 33S.

Best regards,

Gerson.

[ Return to Index | Top of Index ]

Go back to the main exhibit hall