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

   
   
     

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

Страница: 1 |

 

  Вопрос: Date Добавлено: 11.04.10 11:49  

Автор вопроса:  Petr
Что нужно сделать чтобы в моей программе показывался время и секунда, а ешё дата (день\месяц\год).

Ответить

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

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



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #1 Добавлено: 11.04.10 14:42
Date$ & Time$

Ответить

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



Вопросов: 26
Ответов: 110
  Web-сайт: usprogs.atheo-club.ru
 Профиль | | #2 		Добавлено: 11.04.10 15:19
Дату и время в формате Вашей операционной системы возвращает пременная Now. Просто присвойте её значение, например, Label:
  1. Label.Caption = Now

Ответить

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



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #3 		Добавлено: 11.04.10 15:31
время)
  1. Public Function UNIXTimeUTC() As Long
  2.     Dim q As SYSTEMTIME
  3.     GetSystemTime q
  4.     UNIXTimeUTC = DateDiff("s", "1970-01-01", q.wDay & "/" & q.wMonth & "/" & q.wYear & " " & q.wHour & ":" & q.wMinute & ":" & q.wSecond)
  5. End Function

Ответить

Номер ответа: 4
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #4 Добавлено: 11.04.10 16:42
время)
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
дата)))
Private Sub Form_Load()
Text2.Text = Date
End Sub

Ответить

Номер ответа: 5
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #5 Добавлено: 11.04.10 16:43
[sourceDim xday 'Объявляем переменную xday как Variant(хотя можно написать Dim xday as long)
Private Sub Form_Load()
xday = WeekDay(Date, vbMonday) 'xday будет равна дню недели
If xday = 7 Then 'Если xday будет равна 1 то:
Label1.Caption = "Воскресенье" 'Label1.Caption будет равна Воскресенье
End If
'Дальше я не буду описывать, т.к. там все тоже самое
If xday = 1 Then
Label1.Caption = "Понедельник"
End If
If xday = 2 Then
Label1.Caption = "Вторник"
End If
If xday = 3 Then
Label1.Caption = "Среда"
End If
If xday = 4 Then
Label1.Caption = "Четверг"
End If
If xday = 5 Then
Label1.Caption = "Пятница"
End If
If xday = 6 Then
Label1.Caption = "Суббота"
End If
End Sub]
[/source]
можно итак

Ответить

Номер ответа: 6
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #6 Добавлено: 11.04.10 16:47
для месеца
  1. Private Sub Form_Load()
  2. xzz = Date
  3. Label1.Caption = Mid(xzz, 1, 2)
  4. Label3.Caption = Mid(xzz, 7, 4)
  5.  
  6.  
  7. zzz = Mid(xzz, 4, 2)
  8. If zzz = "01" Then
  9. Label2.Caption = "Январь"
  10. End If
  11. If zzz = "02" Then
  12. Label2.Caption = "Февраль"
  13. End If
  14. If zzz = "03" Then
  15. Label2.Caption = "Март"
  16. End If
  17. If zzz = "04" Then
  18. Label2.Caption = "Апрель"
  19. End If
  20. If zzz = "05" Then
  21. Label2.Caption = "май"
  22. End If
  23. If zzz = "06" Then
  24. Label2.Caption = "Июнь"
  25. End If
  26. If zzz = "07" Then
  27. Label2.Caption = "Июль"
  28. End If
  29. If zzz = "08" Then
  30. Label2.Caption = "Август"
  31. End If
  32. If zzz = "09" Then
  33. Label2.Caption = "Сентябрь"
  34. End If
  35. If zzz = "10" Then
  36. Label2.Caption = "Октябрь"
  37. End If
  38. If zzz = "11" Then
  39. Label2.Caption = "Ноябрь"
  40. End If
  41. If zzz = "12" Then
  42. Label2.Caption = "Декабрь"
  43. End If

Ответить

Номер ответа: 7
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #7 Добавлено: 11.04.10 19:58
nikolas-rus, к чему такие сложности?
  1. xzz = Date
  2. Label1.Caption = Day(zzz)
  3. Label2.Caption = MonthName(Month(zzz))
  4. Label3.Caption = Year(zzz)

Ответить

Номер ответа: 8
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #8 Добавлено: 11.04.10 20:12
И ещё:
  1. Label1.Caption = WeekdayName(Weekday(Date), , vbSunday)

Ответить

Номер ответа: 9
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #9 Добавлено: 11.04.10 20:25
До кучи -
  1. Label1.Caption = Format(Now, "dd mmmm yyyy  hh:mm:ss")

Ответить

Номер ответа: 10
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #10 Добавлено: 11.04.10 20:56
ну это кому как ,куча способов сделать календарь ,или то что он делает....

Ответить

Номер ответа: 11
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #11 Добавлено: 12.04.10 13:59
прощще подключить CalendarControl, или както так он называется=)

Ответить

Номер ответа: 12
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #12 Добавлено: 12.04.10 15:28
ну хочется человеку попарится=)

Ответить

Номер ответа: 13
Автор ответа:
 V1RTUOZ



Вопросов: 1
Ответов: 7
  Профиль | | #13 Добавлено: 12.04.10 16:12
nikolas-rus пишет:
ну хочется человеку попарится

Да, человеку не хочется париться и учить русский язык. Конечно, будем сразу учить VB, нах нам русский-то?

Ответить

Номер ответа: 14
Автор ответа:
 Petr



Вопросов: 45
Ответов: 58
  Профиль | | #14 Добавлено: 12.04.10 20:13
Спасибо всем!

Ответить

Страница: 1 |

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



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