چطور برنامه‌ای برای زمان‌بندی و ساعت‌بندی آبیاری باغم بنویسم؟

Question

فرض کنین من، امید و علی ۳ تا باغ کنار همدیگه داریم. ما هر ۴ روز یک‌بار اجازه داریم از ساعت ۰۸:۰۰ به مدت ۲۴ ساعت هر ۳ باغ رو آبیاری کنیم؛ یعنی هر نفر ۸ ساعت وقت داره. با این شرط که اگه من امروز ساعت ۰۸:۰۰ نوبتم بود، ۴ روز دیگه نوبتم بیافته ساعت ۱۶:۰۰ و ۴ روز بعد از اون، ساعت ۰۰:۰۰. برای امید و علی هم این شرط برقرار باشه.

حالا می‌خوام از تاریخ مثلاً ۱ فروردین ۹۷ برای مدت ۱ سال یه جدول به صورت خودکار تولید کنم که این زمان‌بندی و ساعت‌بندی رو به صورت خودکار انجام بده. در واقع یه دستور به صورت

\mytable{97}{1}{1}{98}{1}{1}

می‌خوام که چیزی مثل خروجی زیر رو تولید کنه. چطور می‌تونم این کار رو انجام بدم؟ اگه این کار بدون استفاده از بسته خاصی انجام بشه، خیلی عالی می‌شه.

\documentclass{article}
\usepackage{multirow}
\usepackage{longtable}
\usepackage[]{xepersian}
\settextfont{Yas}

\newcounter{row}
\setcounter{row}{1}
\def\myrow{\arabic{row}\stepcounter{row}}     
\begin{document}
\begin{center}
برنامه زمان و ساعت آبیاری باغ 

\begin{longtable}{|c|c|r|}
\hline  &  تاریخ  & نام و ساعت  \\ \hline
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۰۱}
                   &                           وحید  - ۰۸:۰۰ \\
                   &                        & امید  - ۱۶:۰۰   \\
                   &                        & علی  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۰۵}
                   &                           علی  - ۰۸:۰۰ \\
                   &                        & وحید  - ۱۶:۰۰   \\
                   &                        & امید  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۰۹}
                   &                           امید  - ۰۸:۰۰ \\
                   &                        & علی  - ۱۶:۰۰   \\
                   &                        & وحید  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۱۳}
                   &                           وحید  - ۰۸:۰۰ \\
                   &                        & امید  - ۱۶:۰۰   \\
                   &                        & علی  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۱۷}
                   &                           علی  - ۰۸:۰۰ \\
                   &                        & وحید  - ۱۶:۰۰   \\
                   &                        & امید  - ۰۰:۰۰ 
\\ \hline 
\multirow{3}{*}{\myrow} & \multirow{3}{*}{۹۷/۰۱/۲۱}
                   &                           امید  - ۰۸:۰۰ \\
                   &                        & علی  - ۱۶:۰۰   \\
                   &                        & وحید  - ۰۰:۰۰ 
\\ \hline 
\end{longtable}
\end{center}
\end{document}

Answer 1

وحیدجان همانطوری که می‌دانید زی‌پرشین فقط و فقط یکبار \today را محاسبه نموده و بارها بکار می‌برد. برای حل مساله شما از بسته advdate استفاده کرده‌ام و برای اینکه تاریخ را بتوانم در هر روز محاسبه کنم مجبور شدم کد محاسبه امروز را از بسته xepersian-persiancal استخراج نموده و در کد قرار دهم.
تنها نکته‌ای که در راه حل ذیل وجود دارد این است که روز اول سال را خودتان باید به صورت دستی وارد نمایید آنهم به صورت میلادی. قطعا با ملاحظه کد نکات آن را در می‌یابید.

\documentclass{article}

\usepackage{multirow}
\usepackage{longtable}
\usepackage{forloop}
\usepackage{advdate}

\usepackage[]{xepersian}
\settextfont{Yas}


\newcounter{row}
\setcounter{row}{1}
\def\myrow{\arabic{row}\stepcounter{row}}     
\newcounter{ct} 

\newcount\nrow
\newcommand\getname[2]{\nrow=#1%
\loop\ifnum\nrow>3 \advance \nrow by -3\repeat
\ifcase\nrow%
\ifcase#2\or  علی  - ۰۸:۰۰\or وحید  -۱۶:۰۰\or امید  - ۰۰:۰۰\fi%1
\or\ifcase#2\or  امید  - ۰۸:۰۰\or علی  -۱۶:۰۰\or وحید  - ۰۰:۰۰\fi%2
\or\ifcase#2\or  وحید  - ۰۸:۰۰\or امید  -۱۶:۰۰\or علی  - ۰۰:۰۰\fi%0
\or\ifcase#2\or  علی  - ۰۸:۰۰\or وحید  -۱۶:۰۰\or امید  - ۰۰:۰۰\fi%1
\fi%
}

\makeatletter
\gdef\computedate{%
}
\makeatother


\def\advdate{\AdvanceDate[4]\computedate}
\newcount\days
\days=-4

\begin{document}
\getname{0}{1}
\getname{0}{2}
\getname{0}{3}

\ThisDay{21}
\ThisMonth{3}
\ThisYear{2017}

\begin{center}
برنامه زمان و ساعت آبیاری باغ 

\begin{longtable}{|c|c|r|}
\hline  &  تاریخ  & نام و ساعت  \\ \hline
\forloop{ct}{1}{\value{ct} < 92}{
\multirow{3}{*}{\myrow} & \multirow{3}{*}{\global\advance\days by 4\relax\AdvanceDate[\days]\computedate\today}
                   &                            \getname{\value{row}}{1} \\
                   &                        & \getname{\value{row}}{2}  \\
                   &                        & \getname{\value{row}}{3}
\\ \hline }
\multirow{3}{*}{\myrow} & \multirow{3}{*}{\global\advance\days by 4\relax\AdvanceDate[\days]\computedate\today}
                   &                            \getname{\value{row}}{1} \\
                   &                        & \getname{\value{row}}{2}  \\
                   &                        & \getname{\value{row}}{3}
\\ \hline
\end{longtable}
\end{center}
\end{document}

پی‌نوشت:
۱- از آنجایی که کد طولانی شد تعریف \computedate را از بسته تاریخ زی‌پرشین برگرفته شده است را در بخش نظرات قرار دادم.
۲- شخصا برای کاربردهای خودم یک بسته تاریخ نوشته‌ام که بتواند براحتی با تاریخ فارسی و تبدیلات بین آن کار کند ولی حیف که هنوز فرصت نوشتن راهنمای و منتشر کردن آن را نیافته‌ام.

Comments

\makeatletter
    \gdef\computedate{%
    \XePersian@y=\year \XePersian@m=\month \XePersian@d=\day
    \XePersian@temp=\XePersian@y
    \divide\XePersian@temp by 100\relax
    \multiply\XePersian@temp by 100\relax
    \XePersian@yModHundred=\XePersian@y
    \advance\XePersian@yModHundred by -\XePersian@temp\relax
    \ifodd\XePersian@yModHundred
       \XePersian@leapfalse
    \else
       \XePersian@temp=\XePersian@yModHundred
       \divide\XePersian@temp by 2\relax
       \ifodd\XePersian@temp\XePersian@leapfalse
       \else
          \ifnum\XePersian@yModHundred=0%
             \XePersian@temp=\XePersian@y
             \divide\XePersian@temp by 400\relax
             \multiply\XePersian@temp by 400\relax
             \ifnum\XePersian@y=\XePersian@temp\XePersian@leaptrue\else\XePersian@leapfalse\fi
          \else\XePersian@leaptrue
          \fi
       \fi
    \fi
    \XePersian@latini=31\relax
    \ifXePersian@leap
      \XePersian@latinii = 29\relax
    \else
      \XePersian@latinii = 28\relax
    \fi
    \XePersian@latiniii = 31\relax
    \XePersian@latiniv  = 30\relax
    \XePersian@latinv = 31\relax
    \XePersian@latinvi = 30\relax
    \XePersian@latinvii = 31\relax
    \XePersian@latinviii = 31\relax
    \XePersian@latinix = 30\relax
    \XePersian@latinx = 31\relax
    \XePersian@latinxi = 30\relax
    \XePersian@latinxii = 31\relax
    \XePersian@thirtytwo=32\relax
    \XePersian@temp=\XePersian@y
    \advance\XePersian@temp by -17\relax
    \XePersian@temptwo=\XePersian@temp
    \divide\XePersian@temptwo by 33\relax
    \multiply\XePersian@temptwo by 33\relax
    \advance\XePersian@temp by -\XePersian@temptwo
    \ifnum\XePersian@temp=\XePersian@thirtytwo\XePersian@kabisehfalse
    \else
       \XePersian@temptwo=\XePersian@temp
       \divide\XePersian@temptwo by 4\relax
       \multiply\XePersian@temptwo by 4\relax
       \advance\XePersian@temp by -\XePersian@temptwo
       \ifnum\XePersian@temp=\z@\XePersian@kabisehtrue\else\XePersian@kabisehfalse\fi
    \fi
    \XePersian@tempthree=\XePersian@y                 % Number of Leap years
    \advance\XePersian@tempthree by -1
    \XePersian@temp=\XePersian@tempthree              % T := (MY-1) div 4
    \divide\XePersian@temp by 4\relax
    \XePersian@temptwo=\XePersian@tempthree           % T := T - ((MY-1) div 100)
    \divide\XePersian@temptwo by 100\relax
    \advance\XePersian@temp by -\XePersian@temptwo
    \XePersian@temptwo=\XePersian@tempthree           % T := T + ((MY-1) div 400)
    \divide\XePersian@temptwo by 400\relax
    \advance\XePersian@temp by \XePersian@temptwo
    \advance\XePersian@tempthree by -611       % Number of Kabise years
    \XePersian@temptwo=\XePersian@tempthree           % T := T - ((SY+10) div 33) * 8
    \divide\XePersian@temptwo by 33\relax
    \multiply\XePersian@temptwo by 8\relax
    \advance\XePersian@temp by -\XePersian@temptwo
    \XePersian@temptwo=\XePersian@tempthree           %
    \divide\XePersian@temptwo by 33\relax
    \multiply\XePersian@temptwo by 33\relax
    \advance\XePersian@tempthree by -\XePersian@temptwo
    \ifnum\XePersian@tempthree=32\advance\XePersian@temp by 1\fi % if (SY+10) mod 33=32 then Inc(T);
    \divide\XePersian@tempthree by 4\relax     % T := T - ((SY+10) mod 33) div 4
    \advance\XePersian@temp by -\XePersian@tempthree
    \advance\XePersian@temp by -137            % T := T - 137  Adjust the value
    \XePersian@persiani=31
    \advance\XePersian@persiani by -\XePersian@temp                 % now 31 - T is the persiani
    \XePersian@persianii = 30\relax
    \ifXePersian@kabiseh
      \XePersian@persianiii = 30\relax
    \else
      \XePersian@persianiii = 29\relax
    \fi
    \XePersian@persianiv  = 31\relax
    \XePersian@persianv   = 31\relax
    \XePersian@persianvi  = 31\relax
    \XePersian@persianvii = 31\relax
    \XePersian@persianviii= 31\relax
    \XePersian@persianix  = 31\relax
    \XePersian@persianx   = 30\relax
    \XePersian@persianxi  = 30\relax
    \XePersian@persianxii = 30\relax
    \XePersian@persianxiii= 30\relax
    \XePersian@dn= 0\relax
    \XePersian@sn= 0\relax
    \XePersian@mminusone=\XePersian@m
    \advance\XePersian@mminusone by -1\relax
    \XePersian@i=0\relax
    \ifnum\XePersian@i < \XePersian@mminusone
    \loop
    \advance \XePersian@i by 1\relax
    \advance\XePersian@dn by \csname XePersian@latin\romannumeral\the\XePersian@i\endcsname
    \ifnum\XePersian@i<\XePersian@mminusone \repeat
    \fi
    \advance \XePersian@dn by \XePersian@d
    \XePersian@i=1\relax
    \XePersian@sn = \XePersian@persiani
    \ifnum \XePersian@sn<\XePersian@dn
    \loop
    \advance \XePersian@i by 1\relax
    \advance\XePersian@sn by \csname XePersian@persian\romannumeral\the\XePersian@i\endcsname
    \ifnum \XePersian@sn<\XePersian@dn \repeat
    \fi
    \ifnum \XePersian@i < 4
       \XePersian@m = 9 \advance\XePersian@m by \XePersian@i
       \advance \XePersian@y by -622\relax
    \else
       \XePersian@m = \XePersian@i \advance \XePersian@m by -3\relax
       \advance \XePersian@y by -621\relax
    \fi
    \advance\XePersian@sn by -\csname XePersian@persian\romannumeral\the\XePersian@i%
    \endcsname
    \ifnum\XePersian@i = 1
      \XePersian@d = \XePersian@dn \advance \XePersian@d by 30 \advance\XePersian@d by -\XePersian@persiani
    \else
      \XePersian@d = \XePersian@dn \advance \XePersian@d by -\XePersian@sn
    \fi
    }
    \makeatother

---

ممنون بابت نوشتن پاسخ؛ اما فقط ساعت‌بندی تاریخ‌های ۱، ۵ و ۹ فروردین درسته. به عنوان مثال تاریخ‌های ۱۳، ۱۷ و ۲۱ فروردین رو در نظر بگیرین که توشون علی ۲ بار ساعت آبیاریش می‌افته ساعت ۰۸:۰۰. در صورتی که فقط یک بار باید ساعت ۰۸:۰۰ داشته باشه. برای وحید و امید هم همین‌طوره.

---

اصلاح گردید.