请教高手:VFP表单单击按钮输入当前系统时间，表单录入结束时单击按钮输入单击时系统时间 - 编程论坛

#2

吹水佬2020-06-01 20:23

DATETIME()

#3

kimhoo2020-06-26 23:47

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

只有本站会员才能查看附件，请登录

#4

abc2383612021-03-16 10:48

#5

sdta2021-03-16 11:04

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

#6

sdta2021-03-16 11:11

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