para

# -*- encoding: utf-8; indent-tabs-mode: nil -*-
use v6.d;

use Date::Calendar::Strftime;
use Date::Calendar::CopticEthiopic;
use Date::Calendar::Coptic::Names;

unit class Date::Calendar::Coptic:ver<0.1.1>:auth<zef:jforget>:api<1>
      does Date::Calendar::CopticEthiopic
      does Date::Calendar::Strftime;

method BUILD(Int:D :$year, Int:D :$month, Int:D :$day, Int :$daypart = daylight()) {
  $._chek-build-args($year, $month, $day);
  $._build-from-args($year, $month, $day, $daypart);
}

method mjd-bias {
  -575337;
}

method month-name {
  Date::Calendar::Coptic::Names::month-name($.month);
}

method month-abbr {
  Date::Calendar::Coptic::Names::month-abbr($.month);
}

method day-name {
  Date::Calendar::Coptic::Names::day-name($.day-of-week);
}

method day-abbr {
  Date::Calendar::Coptic::Names::day-abbr($.day-of-week);
}



head

Date::Calendar::Coptic - conversions from / to the Coptic calendar


code

=begin code :lang<raku>

use Date::Calendar::Coptic;

my Date                     $Perlcon-Riga-grg;
my Date::Calendar::Coptic   $Perlcon-Riga-cop;

$Perlcon-Riga-grg .= new(2019, 8, 7);
$Perlcon-Riga-cop .= new-from-date($Perlcon-Riga-grg);

say $Perlcon-Riga-cop.strftime("%A %e %B %Y");
#--> Peftoou 1 Mesori 1735

=end code


=begin code :lang<raku>

use Date::Calendar::Coptic;

my Date::Calendar::Coptic   $TPC-Pittsburgh-cop;
my Date                     $TPC-Pittsburgh-grg;

$TPC-Pittsburgh-cop .= new(year => 1735, month => 10, day => 9);
$TPC-Pittsburgh-grg  = $TPC-Pittsburgh-cop.to-date;
say $TPC-Pittsburgh-cop.strftime("%e %B %Y = "), $TPC-Pittsburgh-grg.gist
#--> 9 Paoni 1735 = 2019-06-16

=end code


Converting a date while caring about sunset:


=begin code :lang<raku>

use Date::Calendar::Strftime;
use Date::Calendar::Coptic;

my Date::Calendar::Coptic $dt-coptic;
my Date                   $dt-greg;

$dt-coptic .= new(year => 1741, month => 3, day => 5, daypart => after-sunset());
$dt-greg    = $dt-coptic.to-date;
say $dt-greg.gist;   # --> 2024-11-13

# on the other hand
$dt-coptic .= new(year => 1741, month => 3, day => 5, daypart => before-sunrise());
$dt-greg    = $dt-coptic.to-date;
say $dt-greg.gist;   # --> 2024-11-14

$dt-coptic .= new(year => 1741, month => 3, day => 5, daypart => daylight());
$dt-greg    = $dt-coptic.to-date;
say $dt-greg.gist;   # --> 2024-11-14

=end code


Date::Calendar::Coptic is  a class  implementing the  Coptic calendar.
This  calendar derives  from  the ancient  Egyptian  calendar. A  year
consists of 12 months  with 30 days each, plus 5  or 6 additional days
(epagomene) at  the end of  the year.  Leap years occurs  every fourth
year, with no  adjustment for century years. The  calendar also define
weeks  which last  for  7  days, beginning  on  sunday  and ending  on
saturday.


See the full documentation in the C<Date::Calendar::CopticEthiopic> role.


Jean Forget <J2N-FORGET at orange dot fr>


This library is  free software; you can redistribute  it and/or modify
it under the Artistic License 2.0.


root

CopticEthiopic

Names

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<AI|file:../mcp/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>
    =item2 L<Hand these documents to an AI assistant|file:../mcp/index.podlite>

=end nested
=begin nested :!nested
=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>

=end nested
=end React


Built with L<Podlite|https://podlite.org> — the markup and publishing tools behind this site.


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Coptic

NAME

SYNOPSIS

DESCRIPTION

AUTHOR

COPYRIGHT AND LICENSE

Date::Calendar::CopticEthiopic v0.1.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation