Hallo
Ich würde gerne das aktuelle Datum mit Uhrzeit + ms anzeigen lassen-
Sollte dann z.b. so aussehen 20.12.2022 22:21:11:245
Die Uhrzeit + ms habe ich im Netz gefunden, leider bekomme ich in die Variable nicht das aktuelle Datum mit rein...
Vielleicht kann mir jemand helfen oder weiss eine einfache Lösung...
Der Quellcode ist noch in VB6
Ich würde gerne das aktuelle Datum mit Uhrzeit + ms anzeigen lassen-
Sollte dann z.b. so aussehen 20.12.2022 22:21:11:245
Die Uhrzeit + ms habe ich im Netz gefunden, leider bekomme ich in die Variable nicht das aktuelle Datum mit rein...
Vielleicht kann mir jemand helfen oder weiss eine einfache Lösung...
Der Quellcode ist noch in VB6
Visual Basic-Quellcode
- Option Explicit
- Private Declare Sub GetSystemTime Lib "kernel32" ( _
- lpSystemTime As SYSTEMTIME)
- 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 Sub Form_Load()
- Rem Timer starten
- Timer1.Interval = 10
- Timer1.Enabled = True
- End Sub
- Public Function FormatSystemTime() As String
- Dim st As SYSTEMTIME
- ' Systemzeit ermitteln
- GetSystemTime st
- ' TimeStamp hh:nn:ss:mmm
- With st
- 'Das geht...
- FormatSystemTime = Format(.wHour, "00") + ":" + Format(.wMinute, "00") + ":" + _
- Format(.wSecond, "00") + ":" + Format(.wMilliseconds, "000")
- 'da mache ich was falsch...
- 'FormatSystemTime = Format(wDay, "00") + Format(.wHour, "00") + ":" + Format(.wMinute, "00") + ":" + _
- 'Format(.wSecond, "00") + ":" + Format(.wMilliseconds, "000")
- End With
- End Function
- Private Sub Timer1_Timer()
- ' Systemzeit anzeigen
- Label1.Caption = FormatSystemTime()
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcuse“ ()