Re: Pomocy! Jak obliczyc nazwe dnia?

Article View: pl.comp.programming

Article #654

Back to pl.comp.programming Previous Next

#654

From: rG... Ryszard Glab
Date: Wed, 08 May 1996 00:00

35 lines
1568 bytes

In article <4mpfd6$9...@bilbo.nask.org.pl>,
 chr...@gazeta.pl (Chris Labanowski) wrote:

>Mam taki problem...potrzebuje przeliczyc date na nazwe dnia, to znaczy
>znalezc jaki dzien, byl np. 16 grudnia 1968 (sroda, czwartek?, a moez piatek?)

Algorytm sciagniety z instrukcji obslugi kalkulatora 
Texas Instruments TI-58C :)
(procedurka jest w Clipperze ale sadze ze jest czytelna)
/*
    nD -dzien miesiaca
    nM -numer miesiaca
    nR -rok
*/
FUNCTION DzienTygodnia( nD, nM, nR )
LOCAL nDoba
STATIC aDni:={ "Sobota", "Niedziela", "Poniedzialek", "Wtorek", ;
               "Sroda", "Czwartek", "Piatek" }

    IF( nM <= 2 )
        nDoba =365*nR +nD +31*(nM-1) + INT((nR-1)/4) -;
               INT( 3/4 * INT( (nR-1)/100 +1 ) )
    ELSE
        nDoba =365*nR + nD +31*(nM-1) - INT( 0.4*nM +2.3 ) +;
               INT(nR/4) - INT( 3/4 * (INT(nR/100)+1) )
    ENDIF
    nDoba +=INT( -nDoba / 7 ) * 7
// 0 -sobota
// 1 -niedziela
// 6 -piatek
RETURN( aDni[ nDoba+1 ] )

----------------------=-----------------------=-----------------------
r(ycho)GLAB           |  rg...@maloka.waw.pl  |         Warsaw, Poland

Technical Details

Message-ID: <4mqrtj$irh@bilbo.nask.org.pl>

Path: mbox-mo1.pugleaf.net!unknown!not-for-mail

References: <4mpfd6$904@bilbo.nask.org.pl>

Show Full Headers

Complete Article Headers

From: rG...@maloka.waw.pl (Ryszard Glab)
Subject: Re: Pomocy! Jak obliczyc nazwe dnia?
Date: 1996/05/08
Message-ID: <4mqrtj$irh@bilbo.nask.org.pl>
X-Deja-AN: 153796953
references: <4mpfd6$904@bilbo.nask.org.pl>
organization: VIP Software via Maloka BBS
reply-to: rg...@maloka.waw.pl
newsgroups: pl.comp.programming
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Reply to Parent Message