Веб программирование

Время Gambas

 
 

Начнём пожалуй

Время в Gambas. 

Я предлагаю написать такую программку. Открываем Gambas, на форму кидаем две метки и таймер. Наша программа будет определять время, и отсчитывать количество дней от дня рождения. В свойствах таймера отмечаем:

Delay = 1000. Т. е. инетрвал между событиями таймера, будет одна секунда (или тысяча миллисекунд).

Клик два раза на таймер, и пишем код:

Public Sub Timer1_Timer()

Dim Dat1, Dat2 As Date 'объявляем переменые типа Date (т. е. дата)

Label1.Text = Time ' свойство текста на метке будет равно времени установленному на вашем компьютере

Dat1 = "19/4/1967" 'назначем значение переменной Dat1 как День/Месяц/Год вашего рождения

Dat2 = Now 'назначем значение переменной Dat2 как сегоднящний день (т. е. Now) 

Label2.Text = DateDiff (Dat1, Dat2, gb.Day) ' свойство текста на метке будет равно дню вашего рождения (подробнее ниже)

End

Если устали от обьяснений, передохните Чтоб не передохнуть :-).  

Пояснения

Опперация DateDiff подключает коммпоненты Gambas связанные с датой , в данном случае gb.Day. Этот коммпонент основываясь на переменных Dat1 и Dat2 а также данных находящихся в label1, определяет день вашего рождения. 

У кого программка заработает тот молодец!

 


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.