ＰＬＣ覚書

//必ず１側に先の年月日が入るようにすること
//1・2月は前年の13・14月と考える
IF month1 <= 2 THEN
	IF year1 < year2 THEN
		Y_1 := year1 + 99 ;
	    ELSE Y_1 := year1 - 1 ;
	END_IF;
	M_1 := month1 + 12 ;
	ELSE
	IF year1 < year2 THEN
		Y_1 := year1 + 100 ;
	    ELSE Y_1 := year1 ;
	END_IF;
	M_1 := month1;
END_IF;
IF month2 <= 2 THEN
	Y_2 := year2 - 1 ;
	m_2 := month2 + 12 ;
	ELSE y_2:= year2;
	m_2 := month2 ;
END_IF;
//ここまで前処理

dy_1 := 365 * y_1 ; //経過年数
IF y_1 <= 0 THEN //うるう年
	dl1 := 0 ;
	ELSE dl1 := y_1 / 4 ;
END_IF;
dm1 := (m_1 * 306 - 324) / 10 ; //1月1日からm月1日までの日数
d_1 := dy_1 + dl1 + dm1 + date1 - 1 ; //'00年1月1日からの日数

dy_2 := 365 * y_2 ; //経過年数
IF y_2 <= 0 THEN //うるう年
	dl2:= 0 ;
	ELSE dl2 := y_2 / 4 ;
END_IF;
dm2 := (m_2 * 306 - 324) / 10 ; //1月1日からm月1日までの日数
d_2 := dy_2 + dl2 + dm2 + date2 - 1 ; //'00年1月1日からの日数

d_ret := d_1 - d_2 ; //日数差