[Coco] Julian Date

[Luis Fernández]

FUNCTION FechaJul# (dd, m1, a1)
mm = m1
aa = a1
IF mm > 2 THEN
mm = mm + 1
ELSE
mm = mm + 13
aa = aa - 1
END IF
FechaJul# = INT(365.25 * aa) + INT(30.6 * mm) + dd - 621050!
END FUNCTION




---------------------------------------------------------------------------------

Making  CoCoDskUtil V 1.X.X, Scan magazines and organize maltedmedia

http://cococoding.com/cocodskutil/ Thank Aaron Wolfe

http://www.tandycoco.com<http://www.tandycoco.com/> Thank Brian Blake

My personal blog: http://www.luis45ccs.blogspot.com,

Excuse my English, I use google translator, my language is Spanish, I'm Spanish but I live in Venezuela

---------------------------------------------------------------------------------


________________________________
De: Coco <coco-bounces at maltedmedia.com> en nombre de phillip taylor <ptaylor2446 at gmail.com>
Enviado: martes, 23 de mayo de 2017 08:38 p.m.
Para: CoCoList for Color Computer Enthusiasts
Asunto: Re: [Coco] Julian Date

Thank you but I did not write this code I got it off the internet.

On Tue, May 23, 2017 at 8:15 PM, Mark McDougall <msmcdoug at iinet.net.au>
wrote:

> On 24/05/2017 8:46 AM, phillip taylor wrote:
>
> I am not sure what you mean by this "At least those skilled in BASIC09
>> will be able to fund an early retirement! ;)" but there is nothing
>> wrong with Basic09 or most of the other compilers that run under Rsdos
>> or Microsoft Windows. Cbasic will compile a basic program to machine
>> lanuage and will run 1 to 1000 faster then a program written in Basic.
>>
>
> Not sure how you took away that I was criticizing BASIC09 or any other
> language from that statement?!?
>
> I was referring to the COBOL programmers that retired off the back of the
> Y2K problem, implying that the situation would be the same in 2400
> (ignoring the fact that it has been pointed out that it isn't actually a
> leap year) for BASIC09 programmers.
>
> Anyway, if one has to explain one's jokes then I guess they've fallen
> flat. :( I tried...
>
> Regards,
>
> --
> Mark McDougall
> <http://retroports.blogspot.com.au>
>
> --
> Coco mailing list
> Coco at maltedmedia.com
> https://pairlist5.pair.net/mailman/listinfo/coco
>

--
Coco mailing list
Coco at maltedmedia.com
https://pairlist5.pair.net/mailman/listinfo/coco