请教高手:VFP表单单击文本框输入当前系统时间，表单录入结束时单击另一文本框输入单击时输入单击时系统时间
想实现笔录开始时间和结束时间录入
时间：   年   月    日    时     分至   年   月    日    时     分

[此贴子已经被作者于2020-6-1 18:12编辑过]

DATETIME()

DO CASE
    CASE thisform.optiongroup1.option1.value=1
   thisform.text2.value=DATE()
   thisform.text3.value=DATE()

   CASE thisform.optiongroup1.option2.value=1
   thisform.text2.value=DATE()-Dow(DATE(),2)+1
   thisform.text3.value=DATE()

   CASE thisform.optiongroup1.option3.value=1
   thisform.text2.value=DATE(YEAR(DATE()),MONTH(DATE()),1)
   thisform.text3.value=DATE(YEAR(DATE()),MONTH(DATE()),DAY(DATE()))

   CASE thisform.optiongroup1.option4.value=1
   thisform.text2.value=DATE(YEAR(DATE()),1,1)
   thisform.text3.value=DATE(YEAR(DATE()),MONTH(DATE()),DAY(DATE()))

   CASE thisform.optiongroup1.option5.value=1
   thisform.text2.value=DATE(YEAR(DATE())-1,1,1)
   thisform.text3.value=DATE(YEAR(DATE())-1,12,31)
   
   CASE thisform.optiongroup1.option6.value=1
   thisform.text2.value=DATE(YEAR(DATE()),MONTH(DATE())-1,1)
   thisform.text3.value=DATE(YEAR(DATE()),MONTH(DATE()),1)-1
   
    CASE thisform.optiongroup1.option7.value=1
   thisform.text2.value=DATE(YEAR(DATE()),MONTH(DATE())-2,1)
   thisform.text3.value=DATE(YEAR(DATE()),MONTH(DATE()),DAY(DATE()))

ENDCASE
thisform.Refresh

?TRANSFORM(VAL(DTOS(DATE())), "@R 9999年99月99日")

时：HOUR()
分：MINUTE()
秒：SEC()