This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
* 名前 : Myoga Screw-bright (旧名:Myoga S. Tomonaka) | |
* Twitter : https://twitter.com/Myoga1012 | |
* Calender for COBOL (OpenCOBOL) | |
IDENTIFICATION DIVISION. | |
PROGRAM-ID. Calender. | |
DATA DIVISION. | |
WORKING-STORAGE SECTION. | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// 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'); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
! 名前 : Myoga Screw-bright (旧名:Myoga S. Tomonaka) | |
! Twitter : https://twitter.com/Myoga1012 | |
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 ) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 名前 : Myoga Screw-bright (旧名:Myoga S. Tomonaka) | |
# Twitter : https://twitter.com/Myoga1012 | |
母艦の0、0を$FFF5DEE2で塗る。 # 薄い撫子色 | |
当月1日は「{今年}/{今月}/01」。 | |
当月日数は当月1日と「{今年}/{来月}/01」の日数差。 | |
オフセットで1から当月1日の曜日番号取得まで繰り返す | |
「 」と継続表示。 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ロジック用コードです。主役はXAMLのコードだよ。 | |
using System.Windows; | |
namespace WPF { | |
public partial class MainWindow : Window { | |
public MainWindow() { InitializeComponent(); } | |
} | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// 名前 : Myoga Screw-bright (旧名:Myoga S. Tomonaka) | |
// Twitter : https://twitter.com/Myoga1012 | |
open System; | |
[<EntryPoint>] | |
let main argv = | |
// 現在の日付を取得し、当月1日の曜日と末日を求めます。 | |
let now = DateTime.Today |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' 名前 : Myoga Screw-bright (旧名:Myoga S. Tomonaka) | |
' Twitter : https://twitter.com/Myoga1012 | |
Sub Calendar() | |
Dim now As Date | |
now = Date | |
Dim iday As Date | |
iday = DateSerial(Year(now), Month(now), 1) | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// 名前 : Myoga Screw-bright (旧名:Myoga S. Tomonaka) | |
// Twitter : https://twitter.com/Myoga1012 | |
using System; | |
namespace Myoga1012_Cal { | |
class Program { | |
static void Main( string[] args ) { | |
// 現在の日付を取得から当月1日を表すインスタンスを生成します。 |
NewerOlder