DIA DO MES VIA WEBSERVICE

RIQUINHORICO07 20/05/2010 15:41:44
#342310
estou montando um projeto onde valida o dia e o mês atual, disseram-me para fazer a verificação via webservice mas naum sei como funciona, se alguem souber, preciso apenas pegar a data atual e se possivel o hora tbm.... mas que pegue a data e a hora exata(pode ser de qualquer site), somente isso... se alguem souber.... agradeço ....
TECLA 21/05/2010 17:35:08
#342444 Resposta escolhida
Veja se resolve.

Dim s As String, h As Integer, hora As String, data As String
[ô]Usar o site [Ô]meuip.com.br[Ô]
s = Inet1.OpenURL([Ô]http://www.meuip.com.br[Ô])
[ô]Pegar a hora da página
h = InStr(1, s, [Ô]Data[Ô]) + 15
hora = Trim(Replace(Mid(s, h, 40), [Ô]<strong>[Ô], [Ô][Ô]))
MsgBox hora
[ô]Pegar a data da página
data = Mid(s, h + 60, 10)
MsgBox data


Não esqueça de adicionar o componente INET no FORM antes de testar.
RIQUINHORICO07 22/05/2010 21:02:00
#342537
NOSSA CARA !!!!!!!!!

ERA ISSU MESMO !!!!!!!!!!!!!!!!!

VC é FERA MESMO TECLA !!!!!

UM DIA QUERO SABER TANTU QUANTO VC VéIUU !!!!!

BRIGADÃO MESMO !!!!!!

+ UMA VEZ COOPERANDO COM OS DESESPERADOS !!!!!!!!!!
Tópico encerrado , respostas não são mais permitidas
Voltar