Nia-TN1012

      * 名前 : Nia Tomonaka
      * Twitter : https://twitter.com/nia_tn1012

      * Calender for COBOL (OpenCOBOL)
       IDENTIFICATION DIVISION.
       PROGRAM-ID. Calender.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
      

Nia-TN1012

// Visual StudioでそのTypeScriptファイルをビルドした時に生成されるJavaScriptコードです。

window.onload = function () {
    // 現在日を取得し、当月1日の曜日と末日を求めます。
    var now = new Date();
    var prePad = new Date(now.getFullYear(), now.getMonth(), 1).getDay();
    var lastDay = new Date(now.getFullYear(), now.getMonth() + 1, 0).getDate();

    // カレンダーを出力します。
    var el = document.getElementById('content');

Nia-TN1012

! 名前 : Nia Tomonaka
! Twitter : https://twitter.com/nia_tn1012

program main

  character*10 dummy(3)
  integer*4 now(8)
  integer*4 firstDate
  integer*4 i, day
  call date_and_time( dummy(1), dummy(2), dummy(3), now )

Nia-TN1012

# 名前 : Nia Tomonaka
# Twitter : https://twitter.com/nia_tn1012

母艦の0、0を$FFF5DEE2で塗る。	# 薄い撫子色

当月1日は「{今年}/{今月}/01」。
当月日数は当月1日と「{今年}/{来月}/01」の日数差。

オフセットで1から当月1日の曜日番号取得まで繰り返す
	「   」と継続表示。

Nia-TN1012

// ロジック用コードです。主役はXAMLのコードです。

using System.Windows;

namespace WPF {
	public partial class MainWindow : Window {
		public MainWindow() { InitializeComponent(); }
	}
}

Nia-TN1012

// 名前 : Nia Tomonaka
// Twitter : https://twitter.com/nia_tn1012

open System;

[<EntryPoint>]
let main argv =

    // 現在の日付を取得し、当月1日の曜日と末日を求めます。
    let now = DateTime.Today

Nia-TN1012

' 名前 : Nia Tomonaka
' Twitter : https://twitter.com/nia_tn1012

Sub Calendar()

    Dim now As Date
    now = Date
    Dim iday As Date
    iday = DateSerial(Year(now), Month(now), 1)
    

Nia-TN1012

// 名前 : Nia Tomonaka
// Twitter : https://twitter.com/nia_tn1012

using System;

namespace NiaTN1012_Cal {
	class Program {
		static void Main( string[] args ) {

			// 現在の日付を取得から当月1日を表すインスタンスを生成します。

Nia-TN1012

#!/usr/bin/env python3.7

# iTerm2のステータスバーにSubversionのリポジトリ情報を表示するコンポーネント
# The component that displays a subversion repository infomation in the iTerm2 status bar

from iterm2 import Connection, Reference, StatusBarComponent, StatusBarRPC, RPC, util, run_forever, async_get_app
from iterm2.statusbar import Knob
from subprocess import CalledProcessError, check_output
from xml.etree import ElementTree

Nia-TN1012

#!/usr/bin/env python3.7

# iTerm2のステータスバーにストレージの使用量を表示するコンポーネント
# The component that displays storage usage in the iTerm2 status bar

from iterm2 import Connection, StatusBarComponent, StatusBarRPC, run_forever
from iterm2.statusbar import Knob
import os
from decimal import Decimal, ROUND_HALF_UP