#pragma rtGlobals=1		// Use modern global access method.

//////////////	Calendar   ////////////////////
///////////	使い方
// 	Ctrl+Alt+Shift+4	起動
////////////////////////////////////////

Menu "Macros"
	"Calendar/SO4",CalendarPrompt()
End

Function CalendarPrompt()
	Variable year,month
	String folder,datestr
	datestr=date()
	year=str2num(datestr[0,3])
	month=str2num(datestr[6])
	Prompt year,"Year"
	Prompt month,"Month"
	DoPrompt "Calendar",year,month
	if(V_flag || month<1 || 12<month)
		return 0
	endif
	folder=GetDataFolder(1)
	NewDataFolder/O/S root:Calendar
	Make/O/N=(6,7) CalWave
	CalWave[][]=NaN
	SetDataFolder $folder	
	DisplayCalendar(year,month)
End

Function DisplayCalendar(year,month)
	Variable year
	Variable month
	Wave CalWave=root:Calendar:CalWave
	Variable flag,day,i,j
	String cmd
	month-=1
	Make/O/N=12 DayWave
	Make/O/N=12 FlagWave
	DayWave[]={31,28,31,30,31,30,31,31,30,31,30,31}
	FlagWave[]={0,3,3,6,1,4,6,2,5,0,3,5}
	flag=mod(year+trunc(year/4)-trunc(year/100)+trunc(year/400)+FlagWave[month],7)
	day=DayWave[month]
	if((mod(year,4)==0 && mod(year,100)) || mod(year,400)==0)
		if(month==2)
			day=29
		elseif(month<2)
			flag-=1
		endif
	endif
	CalWave[][]=7*p+q-flag+1
	for(i=0;i<6;i+=1)
		for(j=0;j<7;j+=1)
			if(CalWave[i][j]<=0 || day<CalWave[i][j])
				CalWave[i][j]=NaN
			endif
		endfor
	endfor
	
	DoWindow/K Calendar
	Edit/W=(100,100,330,240) CalWave
	DoWindow/C Calendar
	ModifyTable width=30,width[0]=0
	ModifyTable title[1]="Sun",title[2]="Mon",title[3]="Tue",title[4]="Wed",title[5]="Thu",title[6]="Fri",title[7]="Sat"
	KillWaves/Z DayWave,FlagWave
End