Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Переменные, массивы, числа  
     
  Формирование из числа его "строковое" представление  
  Многим из вас приходилось формировать из числа, содержащего количество секунд, строку, показывающую количество часов, минут и секунд. Для этого можно воспользоваться готовым примером.
Private Sub Command1_Click()
'Передаем функции 260 минут, получаем: 4 часа 20 минут
MsgBox FormatTime(260)
End Sub

'Формирует строку с указанием количества минут(часов, секунд)
Public Function FormatTime(lTime As Long) As String
Dim lSec As Long
Dim lMin As Long
Dim lHour As Long
Dim lTemp As Long
Dim i As Long
If lTime < 60 Then
FormatTime = lTime & " сек"
ElseIf lTime / 60 < 60 Then
lTemp = lTime
Do While lTemp > 60
i = i + 1
lTemp = lTemp - 60
Loop
lMin = i
lSec = lTime - (lMin * 60)
FormatTime = lMin & " мин " & lSec & " сек"
Else
lTemp = lTime
Do While lTemp > 60 * 60
i = i + 1
lTemp = lTemp - 60 * 60
Loop
lHour = i
i = 0
lTemp = lTime - (lHour * 60 * 60)
Do While lTemp > 60
i = i + 1
lTemp = lTemp - 60
Loop
lMin = i
lSec = lTime - (lHour * 60 * 60) - (lMin * 60)
FormatTime = lHour & " час " & lMin & " мин " & lSec & " сек"
End If
End Function
 
     
  VBNet online (всего: 51216)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам