설명

캘린더 기능 예

소형 모델 유형 :슬롯 사이트 추천

카테고리 : 슬롯 사이트 추천 모델 라이브러리

메인 파일 : calendar.gms

$title 달력 함수 예(CALENDAR,SEQ=183)

$onText
달력 기능 예

슬롯 사이트 추천 Development Corporation, 공식화 및 언어 예제.

날짜 및 시간 기능은 다음과 같습니다.

      Serial = Jstart(슬롯 사이트 추천 Job 시작)
      Serial = JNow(현재 날짜/시간 스탬프)

      연도 = GYear(연속)
      월 = GMonth(연속)
      일 = GDay(연속)
      시간 = GHour(연속)
      분 = GMinute(직렬)
      두 번째 = GSecond(직렬)
      DoW = GDoW(연속)(1=월요일, 2=화요일,..)
      Leap = GLeap(연속)(0=윤년 없음, 1=윤년)

      DSerial = JDate(연,월,일)(전체 일)
      TSerial = JTime(시,분,초);    (일중 일부)

      J(ulian) 함수에 대한 입력은 그레고리력 날짜이며
      G(레고리안) 함수는 1900년 1월 1일 이후의 일수입니다.

   Jstart/Jnow는 시간을 측정하는 일련 번호를 반환합니다.
   1900년 1월 1일 00:00:00 이후 경과된 날짜입니다.

   아래 관계를 참고하세요.

   jstart == jdate(gyear(jstart),gmonth(jstart),gday(jstart))
           + Jtime(ghour(jstart),g Minute(jstart),gsecond(jstart))

키워드: 슬롯 사이트 추천 언어 기능, 캘린더 기능
$offText

$eolCom //

스칼라
   start '슬롯 사이트 추천 작업 시작 날짜 + 시간'
   이제 '현재 날짜 + 시간';

스칼라
   년, 월, 일, 시, 분, 초, 다우,
   도약, 날짜, 시간, diff, sdate, stime, diff;

시작 = jstart;
지금 = jnow;

year = gyear(시작); 월 = g월(시작); day = gday(시작);
시간 = ghour(시작); 분 = g분(시작); 초 = g초(시작);
다우 = gdow(시작);
도약 = gleap(시작);
디스플레이 시작, 지금, 연도, 월, 일, 시, 분, 초, 다우, 도약;

날짜 = jdate(년,월,일);
시간 = jtime(시,분,초);
diff = 시작 - (날짜 + 시간);
sdate = 층(시작);
stime = mod(시작,1);
날짜, 시간, 차이, sdate, stime을 표시합니다.

* 처음 5개의 변경 사항을 보고 jnow의 해결 방법을 얻습니다.
스칼라 테스트, i, 이전, 새, 초;
새로운 = jnow;

for(i = 1 ~ 5,
   오래된 = 새로운;
   while(old = new, new = jnow;);   // Jnow가 변경될 때까지 시간을 소모합니다.
   테스트 = 새로운 - 오래된;
   디스플레이 테스트;
   초 = g초(새) - g초(이전);
   초 표시;
);

* 이제 우리는 2000년을 언제 축하해야 하는지 알고 싶습니다.
스칼라 s2000, 일2000, 시간2000, 최소2000, 초2000;

s2000 = jdate(2000,1,1) - jnow;
days2000 = 층(s2000);
hour2000 = Floor(mod(s2000,1)*24);
min2000 = Floor(mod(s2000*24,1)*60);
sec2000 = mod(s2000*24*60,1)*60;
'모든 잘린 숫자' 표시, days2000, hour2000, min2000, sec2000;

일2000 = s2000;
시간2000 = mod(일2000,1)*24;
min2000 = mod(시간2000,1)*60;
sec2000 = mod(최소2000,1)*60;
'모든 분수'를 표시합니다. days2000, hour2000, min2000, sec2000;

* 몇 년 동안 달력을 인쇄
세트
   w / 월, 화, 수, 목, 금, 토, 일 /
   m / 1월, 2월, 3월, 4월, 5월, 6월, 7월, 8월, 9월, 10월, 11월, 12월 /
   y / 1997, 1998, 1999, 2000 /;

매개변수
   희미한(y,m) '월의 일수'
   ym(y) '연도'
   sm(m) '다음 달';

sm(m--1) = ord(m);
ym(y) = ord(y) + 1996;
희미(y,m) = jdate(ym(y) + (카드(m) = ord(m)),sm(m),1) - jdate(ym(y),ord(m),1)
sm, 희미하게 표시;

파일 달력;
달력 넣어 @12 'C a l e n d a r' /
              @12 '---------------' /;
루프(y,
   put // @13 '연도 = ' y.tl
   루프(m,
      넣어 // @15,m.tl /;
      loop(w, put w.tl:>5;);
      오래된 = 1;
      for(i = 1 ~ 희미한(y,m),
         날짜 = jdate(ym(y),ord(m),i);
         put$old / ;
         넣어 @((gdow(date) - 1)*5 + 1) i:5:0;
         old = Calendar.cc >= 카드(w)*5;
      );
   );
);

* 오늘부터 400일 동안의 달력을 인쇄하세요
파일 달력;
넣어 / / / / @12 'C a l e n d a r' /
            @12 '---------------' /;
월 = 0;
for(i = jstart에서 jstart + 400,
   if(월 <> g월(i),
      월 = g월(i);
      put // @15 ,월:2:0 '/' gyear(i):4:0 /;
      loop(w, put w.tl:>5;);
      넣어 /;
   );
   put$(calendar.cc >= 카드(w)*5) /;
   넣어 @((gdow(i) - 1)*5 + 1) gday(i):5:0;
);