File: ...\Samples\Solution\Controls\Timer\Clock.scx

Этот пример содержит настраиваемый контрол отображения времени в Samples.vcx на форме. Класс включает текстовое поле для отображения даты и времени и таймер для обновления значений.

Свойство TimeFormat класса clock может быть установлено в 0 для 24-часового формата времени или 1 для 12-часового формата. Код в событии Timer таймера обновляет показания времени.

Скопировать код 
#DEFINE LONGDATE_LOC CDOW(DATE())+" "+CMONTH(DATE())+" "+ ;
         ALLTRIM(STR(DAY(DATE())))+", "+ALLTRIM(STR(YEAR(DATE())))
IF This.Parent.TimeFormat = 0
   This.Parent.txtTime.Value = IIF(VAL(SUBSTR(TIME(),1,2))>12, ;
      ALLTRIM(STR((VAL(SUBSTR(TIME(),1,2))-12)))+SUBSTR(TIME(),3,6),TIME())
ELSE
   This.Parent.txtTime.Value = TIME()
ENDIF
THIS.Parent.txtDate.Value = LONGDATE_LOC

Этот класс содержит отдельное текстовое поле для значений даты и времени. Если Вы хотите скрыться один или другой, Вы можете легко установить его Видимое свойство в ложь (.F).. Более простой способ отображать время и дату состоит в том, чтобы использовать одно текстовое поле и устанавливать его значение элементом управления Timer в DATETIME( ). Это позволит Вам с пользой применить свойства Hours, Seconds и DateFormat текстового поля.

См. Также