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

   
   
     

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

Страница: 1 |

 

  Вопрос: Как получить "настоящую" дату? Добавлено: 12.12.10 17:24  

Автор вопроса:  Alex Bakanov | Web-сайт: hstudio.ucoz.com | ICQ: 7215215 
Всем привет! вот возник вопрос, как зделать , чтоб программа исполняло какое либо действие через 19 дней? либо по числу 31-12-2010 , но надо чтоб у пользователя была реальная дата, а если нет, то тогда что? Вобщем надо получить реальную дату ,а не взятуюб в винде, как такое можно реализовать?

Ответить

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

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



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #1 Добавлено: 12.12.10 17:49
парси какой нибудь сайт который 100% не поменяет сильно интерфейс за эти 19 дней

Ответить

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



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #2 Добавлено: 12.12.10 17:50
или даже заюзай спец. сайты

Ответить

Номер ответа: 3
Автор ответа:
 Alex Bakanov



ICQ: 7215215 

Вопросов: 7
Ответов: 21
  Web-сайт: hstudio.ucoz.com
 Профиль | | #3 		Добавлено: 12.12.10 18:13
Так вот я что и говорю, вот только как с них дату взять :( х3....
может кто подскажет? я еще нубик.
З.Ы Вб .net 2008 Express

Ответить

Номер ответа: 4
Автор ответа:
 Alex Bakanov



ICQ: 7215215 

Вопросов: 7
Ответов: 21
  Web-сайт: hstudio.ucoz.com
 Профиль | | #4 		Добавлено: 12.12.10 19:28
ну что?

Ответить

Номер ответа: 5
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #5 		Добавлено: 12.12.10 21:06
NTP

Ответить

Номер ответа: 6
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
  Профиль | | #6 Добавлено: 12.12.10 21:07
нубик) могу vb скрипт показать как получить курс валют...и по аналогии сделаешь.
принцип прост: скачиваешь html-код - ищешь в нем нужные строки

Ответить

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



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #7 		Добавлено: 12.12.10 21:21
http://www.kloth.net/software/timesrv1.php
вот пример на vbscript
  1. 'Get current time from internet time server
  2. 'by jimmyzs
  3. Dim flagEx
  4. Dim SvrName(14),xPost,HttpAdd,NowTime,StartTime
  5. StartTime=Now
  6. 'internet time server list
  7. SvrName(1) = "time-nw.nist.gov"
  8. 'Microsoft, Redmond, Washington 131.107.1.10
  9. SvrName(2) = "time-a.nist.gov"
  10. 'NIST, Gaithersburg, Maryland  129.6.15.28
  11. SvrName(3) = "time-b.nist.gov"
  12. 'NIST, Gaithersburg, Maryland  129.6.15.29
  13. SvrName(4) = "time-a.timefreq.bldrdoc.gov"
  14. 'NIST, Boulder, Colorado  132.163.4.101
  15. SvrName(5) = "time-b.timefreq.bldrdoc.gov"
  16. 'NIST, Boulder, Colorado  132.163.4.102
  17. SvrName(6) = "time-c.timefreq.bldrdoc.gov"
  18. 'NIST, Boulder, Colorado  132.163.4.103
  19. SvrName(7) = "utcnist.colorado.edu"
  20. 'University of Colorado, Boulder  128.138.140.44
  21. SvrName(8) = "time.nist.gov"
  22. 'NCAR, Boulder, Colorado  192.43.244.18
  23. SvrName(9) = "nist1.datum.com"
  24. 'Datum, San Jose, California  66.243.43.21
  25. 'SvrName(10) = "nist1.dc.glassey.com"
  26. ''Abovenet, Virginia  216.200.93.8
  27. 'SvrName(11) = "nist1.ny.glassey.com"
  28. ''Abovenet, New York City  208.184.49.9
  29. 'SvrName(12) = "nist1.sj.glassey.com"
  30. ''Abovenet, San Jose, California  207.126.103.204
  31. 'SvrName(13) = "nist1.aol-ca.truetime.com"
  32. ''TrueTime, AOL facility, Sunnyvale, CA  207.200.81.113
  33. 'SvrName(14) = "nist1.aol-va.truetime.com"
  34. ''TrueTime, AOL facility, Virginia  205.188.185.33
  35. 'use xmlhttp object
  36. Set xPost = createObject("MSXML2.XMLHTTP")
  37. Set Obj = createObject("Wscript.shell")
  38. NowTime = ""
  39. For i = 1 to 9
  40. MsgBox i
  41. HttpAdd="Http://" & SvrName(i) & ":13"
  42. xPost.Open "Put", HttpAdd, False
  43. 'synchronize
  44. xPost.Send()
  45. 'send requst to http server and receive response
  46. If xPost.readyState=4 Then
  47. NowTime = NowTime & xPost.responsetext & " - " & HttpAdd & vbNewLine
  48. End If
  49. Next
  50. MsgBox NowTime
http://www.lazygame.com/forum/viewthread.php?tid=10

Ответить

Номер ответа: 8
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #8 		Добавлено: 16.12.10 18:11
Кстати как вариант.Например у тебя есть свой сайт.Написать простенький кодик пхп который будет каждый день перезаписывать дату туда.Ты этот файл качаешь программой,достаешь оттуда дату например "16.08.2010" задаешь ее как строку (обзовем ее myDate) а потом сравниваешь
  1.  
  2. If myDate <> CDate("16.08.2010") Then MsgBox "Дата не совпала"
  3. If myDate = CDate("16.08.2010") Then MsgBox "Дата совпала <br>

Ответить

Номер ответа: 9
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #9 		Добавлено: 16.12.10 18:14
Кстати если использовать код
  1.  
  2. If Date = CDate("31.12.2010") Then
  3. 'Твой код


то будет проверятся дата компа и выполнятся твой код

Ответить

Номер ответа: 10
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #10 		Добавлено: 16.12.10 18:15
Кстати,зачем такая символичная дата?
31-12-2010
?Хочешь устроить кому-то сюрприз?или напакостить? XD

Ответить

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



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
  Профиль | | #11 Добавлено: 16.12.10 19:32
Если нет необходимости - лучше избегать CDate. Лучше использовать DateSerial, избавишь себя от проблем локалей.

Ответить

Номер ответа: 12
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #12 		Добавлено: 21.12.10 20:39
LamerOnLine пишет:
Если нет необходимости - лучше избегать CDate

Почему же ?

Ответить

Страница: 1 |

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



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