para

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

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

unit class Date::Calendar::Ethiopic: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 {
  -676146;
}

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

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

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

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



head

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


code

=begin code :lang<raku>

use Date::Calendar::Ethiopic;

my Date                     $Perlcon-Riga-grg;
my Date::Calendar::Ethiopic $Perlcon-Riga-eth;

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

say $Perlcon-Riga-eth.strftime("%A %e %B %Y");
#--> Rob 1 Nähase 2011

=end code


Converting an Ethiopic date to Gregorian


=begin code :lang<raku>

use Date::Calendar::Ethiopic;

my Date::Calendar::Ethiopic $TPC-Pittsburgh-eth;
my Date                     $TPC-Pittsburgh-grg;

$TPC-Pittsburgh-eth .= new(year => 2011, month => 10, day => 14);
$TPC-Pittsburgh-grg  = $TPC-Pittsburgh-eth.to-date;
say $TPC-Pittsburgh-eth.strftime("%e %B %Y = "), $TPC-Pittsburgh-grg.gist
#--> 14 Säne 2011 = 2019-06-21

=end code


Converting a date while caring about sunset:


=begin code :lang<raku>

use Date::Calendar::Strftime;
use Date::Calendar::Ethiopic;

my Date::Calendar::Ethiopic $dt-ethiopic;
my Date                     $dt-greg;

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

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

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

=end code


Date::Calendar::Ethiopic   is  a   class  implementing   the  Ethiopic
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
defines 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

gener-test-0

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


Ethiopic

NAME

SYNOPSIS

DESCRIPTION

AUTHOR

COPYRIGHT AND LICENSE

Date::Calendar::CopticEthiopic v0.1.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation