Hallo
Kann mir jemand weiter helfen?
Ich möchte im VB6 Programm die Ermittlung der Internet Zeit, sowie das Datum integrieren. Wie muss ich das anstellen. Der Beste Link habe ich mal da gefunden, das ist in etwa das, was ich brauche, das Problem: der Code ist in einer anderen Sprache und ich weiss nicht wie ich diesen ins VB umsetzen kann.
http://rolfrost.de/cgi-bin/time.cgi
Besten Dank für jeden Tipp
Grüsse Sebastian
'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.
'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source !
'Autor: Alexander Haugk
'E-Mail: [email protected]
'WWW: http://www.freecoder.de
Option Explicit
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private sNTP As String
Private TimeDelay As Single
Private Data As String
Private NTPTime As Double
Private LngTimeFrom1990 As Long
Private ST As SYSTEMTIME
Private Monat As String
Private UTCDATE As Date
Private Sub Form_Load()
Combo1.AddItem „ptbtime1.ptb.de“
Combo1.ListIndex = 0
End Sub
Private Sub Command1_Click()
Label2.Caption = „verbinde…“
Label1.Caption = „hole Zeit…“
Command1.Enabled = False
Command2.Enabled = False
Combo1.Enabled = False
WinSock1.Close
sNTP = Empty
WinSock1.RemoteHost = Combo1.Text 'NTP-Serveradresse
WinSock1.RemotePort = 37 'NTP-Server Port
WinSock1.Connect
Me.Refresh
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub WinSock1_Connect()
Label2.Caption = „verbunden…“
TimeDelay = Timer
End Sub
Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
Label2.Caption = „Hole Zeit…“
WinSock1.GetData Data, vbString
sNTP = sNTP & Data
End Sub
Private Sub WinSock1_Close()
On Error Resume Next
Do Until WinSock1.State = sckClosed
WinSock1.Close
DoEvents
Loop
TimeDelay = ((Timer - TimeDelay) / 2)
Call SyncClock(sNTP)
End Sub
'Daten vom Server in verständliche Zeit übersetzen:
Private Sub SyncClock(tStr As String)
Label2.Caption = „Zeit konvertieren…“
tStr = Trim(tStr)
If Len(tStr) 4 Then
MsgBox „Unverständliche Antwort vom Server!“, _
vbCritical, „GetTime!“
End
Exit Sub
End If
NTPTime = Asc(Left$(tStr, 1)) * 256 ^ 3 + _
Asc(Mid$(tStr, 2, 1)) * 256 ^ 2 + _
Asc(Mid$(tStr, 3, 1)) * 256 ^ 1 + _
Asc(Right$(tStr, 1))
LngTimeFrom1990 = NTPTime - 2840140800#
UTCDATE = DateAdd(„s“, CDbl(LngTimeFrom1990 + _
CLng(TimeDelay)), #1/1/1990#)
Select Case Month(UTCDATE)
Case 1: Monat = „Januar“
Case 2: Monat = „Februar“
Case 3: Monat = „März“
Case 4: Monat = „April“
Case 5: Monat = „Mai“
Case 6: Monat = „Juni“
Case 7: Monat = „Juli“
Case 8: Monat = „August“
Case 9: Monat = „September“
Case 10: Monat = „Oktober“
Case 11: Monat = „November“
Case 12: Monat = „Dezember“
End Select
Label1.Caption = "Datum: " & Day(UTCDATE) & " " & Monat & _
" " & Year(UTCDATE) & Chr(13) & "Zeit: " & _
Format(Hour(UTCDATE), „00“) + 2 & „:“ & _
Format(Minute(UTCDATE), „00“) & „:“ & _
Format(Second(UTCDATE), „00“)
Command1.Enabled = True
Command2.Enabled = True
Combo1.Enabled = True
Label2.Caption = „Fertig…“
End Sub