Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: поле для ввода времени Добавлено: 20.03.09 17:11  

Автор вопроса:  veibert | Web-сайт: keysled.narod.ru | ICQ: 470733077 

Ответить

  Ответы Всего ответов: 19  

Номер ответа: 16
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
 Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #16
Добавлено: 20.03.09 20:36
И вообще IDE в целом)

Ответить

Номер ответа: 17
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #17
Добавлено: 20.03.09 22:22
veibert
Есть такое понятие "мастер", это когда тебя протаскивают, через правильный ответ, и недают права на ошибку.
Вот один из вариантов посмотри мою прогу , работает из папки времени много не потеряешь.
http://rus-skipper.narod.ru/Programs/VNRusSkipper1.zip
Попробуй назначить задание.

Ответить

Номер ответа: 18
Автор ответа:
 SergeyZuzic



ICQ: 474690219 

Вопросов: 5
Ответов: 155
 Web-сайт: vsedlysita.narod.ru
 Профиль | | #18
Добавлено: 29.03.09 15:13
  1. Private Sub Timer1_Timer()
  2. Label1 = Time
  3. End Sub

Ответить

Номер ответа: 19
Автор ответа:
 SergeyZuzic



ICQ: 474690219 

Вопросов: 5
Ответов: 155
 Web-сайт: vsedlysita.narod.ru
 Профиль | | #19
Добавлено: 29.03.09 15:14
или так

  1. Public Function FTime(Time As Long)
  2. Dim m, s, h As Integer
  3. Time = Time * 1000
  4. h = Int((Time / 1000) / 3600)
  5. m = Int((Time / 1000 Mod 3600) / 60)
  6. s = (Time / 1000 Mod 3600) Mod 60
  7.  
  8. If h > 0 Then FTime = Str(h) & ":"
  9. FTime = FTime + Format(m, "0#") & ":" & Format(s, "0#")
  10. End Function

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам