Threaded Mode | Linear Mode

Arcorange · 09-23-2024, 05:36 PM

Hello,

Does anyone know of a program for HP-15C that adds a number of months to a date?
DD,MMYYYY
ENTER
MM (0 to 99)
-->DD,MM1,YYYY1

Thanks :-)

Thomas Klemm · 09-24-2024, 06:54 PM

Something like this?

Code:

   001 {       34 } X<=>Y

   002 {    43 44 } g INT

   003 {       34 } X<=>Y

   004 {    43 36 } g LSTx

   005 {    42 44 } f FRAC

   006 {       26 } EEX

   007 {        2 } 2

   008 {       20 } *

   009 {       40 } +

   010 {        1 } 1

   011 {       30 } -

   012 {    44 25 } STO I

   013 {        1 } 1

   014 {        2 } 2

   015 {       10 } /

   016 {    43 44 } g INT

   017 { 42  4 25 } f x<-> I

   018 {        1 } 1

   019 {       40 } +

   020 {    45 25 } RCL I

   021 {        1 } 1

   022 {        2 } 2

   023 {       20 } *

   024 {       30 } -

   025 {    45 25 } RCL I

   026 {       26 } EEX

   027 {        4 } 4

   028 {       10 } /

   029 {       40 } +

   030 {       26 } EEX

   031 {        2 } 2

   032 {       10 } /

   033 {       40 } +

Matt Agajanian · 09-24-2024, 07:35 PM

(09-24-2024 06:54 PM)Thomas Klemm Wrote: Something like this?

Code:

001 { 34 } X<=>Y 002 { 43 44 } g INT 003 { 34 } X<=>Y 004 { 43 36 } g LSTx 005 { 42 44 } f FRAC 006 { 26 } EEX 007 { 2 } 2 008 { 20 } * 009 { 40 } + 010 { 1 } 1 011 { 30 } - 012 { 44 25 } STO I 013 { 1 } 1 014 { 2 } 2 015 { 10 } / 016 { 43 44 } g INT 017 { 42 4 25 } f x<-> I 018 { 1 } 1 019 { 40 } + 020 { 45 25 } RCL I 021 { 1 } 1 022 { 2 } 2 023 { 20 } * 024 { 30 } - 025 { 45 25 } RCL I 026 { 26 } EEX 027 { 4 } 4 028 { 10 } / 029 { 40 } + 030 { 26 } EEX 031 { 2 } 2 032 { 10 } / 033 { 40 } +

Tried this on RPN-67. Excellent program. It works for a future amount of N months, but not -N months for a past date.

Arcorange · 09-24-2024, 08:04 PM

Yes, thank you Thomas. It work fine.
I often need to calculate a target date in my work as a project manager. Great. THANKS