[Form_Init]
this = centering
this = clearall

#this = subroutine(Sub_Debug_ON)
this = subroutine(Sub_Debug_OFF)

#txt_yearfr = sysdate(year)
#txt_monthfr = sysdate(month)
#txt_dayfr = sysdate(day)
@form = sysdateparts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)

[txt_yearfr_LostFocus]
this = formatstring(0000)
txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)
[txt_monthfr_LostFocus]
this = formatstring(00)
txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)
[txt_dayfr_LostFocus]
this = formatstring(00)
txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)

#デバッグ時の隠しコントロール
[Sub_Debug_ON]
txt_dts_yearfr                      = Visible(true)

#デバッグ時の隠しコントロール
[Sub_Debug_OFF]
txt_dts_yearfr                      = Visible(false)