Um eine genauere Zeitangabe als bei der MapBasic-Funktion Time zu erhalten, können Sie eine Betriebssystem-Funktion des Windows-API nutzen, wie es der folgende Code zeigt:

Type SYSTEMTIME
        wYear As SmallInt
        wMonth As SmallInt
        wDayOfWeek As SmallInt
        wDay As SmallInt
        wHour As SmallInt
        wMinute As SmallInt
        wSecond As SmallInt
        wMilliseconds As SmallInt
End Type

Declare Sub GetSystemTime Lib "kernel32"
Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME)
Declare Sub Main

Sub Main
        Dim myTime as SYSTEMTIME
        Call GetSystemTime(myTime)
        Print chr$(12)
        Print "Time"
        Print myTime.wYear
        Print myTime.wMonth
        Print myTime.wDay
        Print myTime.wHour
        Print myTime.wMinute
        Print myTime.wSecond
        Print myTime.wMilliseconds
End Sub

Neuigkeiten und Anregungen senden Sie bitte an gis-news.de!