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

open System;

[<EntryPoint>]
let main argv =

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

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

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

// 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

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

       DATA DIVISION.
       WORKING-STORAGE SECTION.
      

Nia-TN1012

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

// 現在の日付と曜日を取得します。
現在年 = ( システム !　年? ). 現在月 = ( システム !　月? ). 現在日 = ( システム !　日? ).
現在曜日 = ( システム !　曜日? ).

// 曜日を文字から数値（ 日曜 : 0、月曜 : 1、・・・、土曜 : 6 ）に変換します。
「現在曜日 == "日"」 ! なら「現在曜日 = "0"」
そうでなければ「「現在曜日 == "月"」 ! なら「現在曜日 = "1"」

Nia-TN1012

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

#include "stdafx.h"
#include <stdio.h>

using namespace System;

int main( array<System::String ^> ^args ) {

Nia-TN1012

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

Option Explicit
Sub Calendar()

    ' 現在の日付を取得します。
    Dim now As Date
    now = Date
    ' 当月1日を表すインスタンスを生成します。