From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.1 required=5.0 tests=BAYES_00, PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII X-Google-Thread: 103376,611fb023d16b157d X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-04-04 21:22:02 PST Path: supernews.google.com!sn-xit-03!supernews.com!cyclone-sjo1.usenetserver.com!news-out-sjo.usenetserver.com!e420r-sjo4.usenetserver.com!news-out.usenetserver.com!newshub2.rdc1.sfba.home.com!news.home.com!news1.sttls1.wa.home.com.POSTED!not-for-mail From: "DuckE" Newsgroups: comp.lang.ada References: <0rGy6.262$A24.137061@carnaval.risq.qc.ca> Subject: Re: Here my package X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.50.4133.2400 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400 Message-ID: Date: Thu, 05 Apr 2001 04:20:04 GMT NNTP-Posting-Host: 24.6.221.63 X-Complaints-To: abuse@home.net X-Trace: news1.sttls1.wa.home.com 986444404 24.6.221.63 (Wed, 04 Apr 2001 21:20:04 PDT) NNTP-Posting-Date: Wed, 04 Apr 2001 21:20:04 PDT Organization: Excite@Home - The Leader in Broadband http://home.com/faster Xref: supernews.google.com comp.lang.ada:6490 Date: 2001-04-05T04:20:04+00:00 List-Id: To be able to assist you, we really need to know what you would like to pass into the procedure, what you expect the procedure to do, and what you expect as output from the procedure. Perhaps you wish to determine whether the record is valid? If that's the case, you'll need to make the changes described below: "Mich" wrote in message news:hCGy6.263$A24.139307@carnaval.risq.qc.ca... > ok here my package and i need to create a procedure named Date_Valide > but i don't know how. my package goes like that: > > PACKAGE lesdates IS > TYPE Date IS RECORD > Jour : Natural; > Mois : Natural; > Ann�e : Natural; > END RECORD; > FUNCTION Bissextile(Ann�e : IN Natural) RETURN Boolean ; > FUNCTION Jour_Max(Mois, Annee: IN Natural) RETURN Natural ; > FUNCTION Jour_De(La_Date : IN Date)RETURN Natural ; > FUNCTION Prem_Jour(An : IN Natural) RETURN Natural ; PROCEDURE Date_Valide( La_Date : IN Date; Is_Valid : OUT Boolean ); > END lesdates; > > ans my package body here: > > PACKAGE BODY lesdates IS PROCEDURE Date_Valide( La_Date : IN Date; Is_Valid : OUT Boolean ) IS BEGIN -- Add code here that uses L_Date as input and assigns the result to Is_Valid END Date_Valide; > FUNCTION Bissextile(Ann�e : IN Natural) RETURN Boolean IS > BEGIN -- Bissextile > IF (Ann�e REM 100) = 0 THEN > -- un si�cle est bissextile s'il est divisible par 4 > RETURN (Ann�e REM 400) = 0; > ELSE > -- une ann�e ordinaire est bissextile si elle est divisible par 4 > RETURN (Ann�e REM 4) = 0; > END IF; > END Bissextile; > > FUNCTION Jour_Max(Mois, Annee: IN Natural) RETURN Natural IS > -- retourne le nombre de jours maximum dans un mois > -- Gabrini p. 131 > BEGIN -- Jour_Max > CASE Mois IS > WHEN 1 | 3 | 5 | 7 | 8 | 10 | 12 => RETURN 31; > WHEN 4 | 6 | 9 | 11 => RETURN 30; > WHEN 2 => IF Bissextile (Annee) THEN > RETURN 29; > ELSE > RETURN 28; -- merci Auguste Cesar > END IF; > WHEN OTHERS => RETURN 0; > END CASE; > END Jour_Max; > > FUNCTION Prem_Jour(An : IN Natural) RETURN Natural IS > -- Retourne le premier jour de l'ann�e (dim = 0, ... , sam = 6) > -- Valide en France � partir de 1583, en Angleterre � partir de 1752, > -- en Russie � partir de 1918, en Gr�ce � partir de 1923 > -- Ant�c�dent : An est une ann�e valide > -- Cons�quent : Prem_Jour est le premier jour de l'ann�e > > Somme : Natural; > BEGIN -- Prem_Jour > Somme := An + ((An - 1) / 4) - ((An - 1) / 100) + ((An - 1) / 400); > RETURN Somme REM 7; > END Prem_Jour; > > FUNCTION Jour_De(La_Date : IN Date)RETURN Natural IS > -- Retourne le jour de semaine de la date (Jour, Mois, An) > -- Ant�c�dent : la date est une date valide du calendrier gr�gorien > -- Cons�quent : Jour_De est le jour de la semaine de la date > -- dim = 0, ... , sam = 6 > Jour_Preced : ARRAY (1..12) OF Natural := > (0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334); > Somme : Natural; > > BEGIN -- Jour_De > > Somme := Prem_Jour(La_Date.Ann�e) + Jour_Preced(La_Date.Mois) > + (La_date.Jour - 1); > -- correction pour les ann�es bissextiles > IF Bissextile(La_Date.Ann�e) AND (La_Date.Mois > 2) THEN > Somme := Somme +1; > END IF; > RETURN Somme REM 7; > END Jour_De; > --END Date_Valide; > END lesdates; > > "Ted Dennison" a �crit dans le message news: > JsGy6.1512$jz.128569@www.newsranger.com... > > In article <0rGy6.262$A24.137061@carnaval.risq.qc.ca>, Mich says... > > > > > >i want to know how to create a procedure named Date_Valide with the three > > >functions in my package. > > > > Could you at try reposting it as plain text, rather than an attachement? > My > > newsreader doesn't decode binary attachements. > > > > --- > > T.E.D. homepage - http://www.telepath.com/dennison/Ted/TED.html > > home email - mailto:dennison@telepath.com > >