Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Время в число Добавлено: 24.03.04 16:15  

Автор вопроса:  Zheka

Необходимо перевести время hh:mm:ss в число. Когда-то, где-то читал не могу ништо нарыть. Поможите, люди добрые!

Ответить

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

Номер ответа: 1
Автор ответа:
 Pashenko



ICQ: 176176951 

Вопросов: 14
Ответов: 655
  Профиль | | #1 Добавлено: 24.03.04 16:38

Dim N As Double
N = Now

 

Ответить

Номер ответа: 2
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
  Профиль | | #2 Добавлено: 24.03.04 16:47

Дата это дата, а число -и в африке число, если я правильно понимаю.

Функции преобразования типа данных

CBool

CByte

CCur

CDate

CDbl

CDec

CInt

CLgn

CSgn

CStr

CVar

CVDate

Функции дат и времени

Date

DateAdd

DateDiff

DatePart

DateSerial

DateValue

Day

Hour

IsDate

Minute

Month

MonthName

Now

Second

Time

Timer

TimeSerial

TimeValue

Weekday

WeekdayName

Year

Ответить

Номер ответа: 3
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
  Web-сайт: hw.t-k.ru
 Профиль | | #3 		Добавлено: 24.03.04 19:09

Сразу же, дату можно конвертировать в тип String, а далее:

Public Function TransToTime(ByVal lValue As Long) As String ' Переводит кол-во секунд в формат: чч:мм:сс (Eugene)
    TransToTime = Format$(lValue \ 3600 & ":" & (lValue \ 60) Mod 60 & ":" & lValue Mod 60, "hh:mm:ss")
End Function
 
Public Function TransToSeconds(sValue As String) As Long   'Переводит время: чч:мм:сс в секунды
    TransToSeconds = Hour(sValue) * 3600
    TransToSeconds = TransToSeconds + Minute(sValue) * 60
    TransToSeconds = TransToSeconds + Second(sValue)
End Function

Ответить

Страница: 1 |

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



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