UTC auslesen

[HemSA]

Hallole,
als erstes wünsche ich euch allen frohe Ostern.

Ich arbeite in einer Firma das rund um die Welt Niederlassungen hat.
Ich habe folgendes vor. Ich will das in meiner privaten Zeit geschriebenes Program vor unerlaubtem Gebrauch schützen.
Bisher mache ich das über die Zeitfunktion so das das Program nur bis zu einem bestimten Datum funktioniert.

Das ist lästig. Ich muß ab und zu immer das Datum ändern, da es ja in meinem jetzigen Standort immer funktionieren muß (habe nichts bekommen.... trotzdem).

Da habe ich die Idee gehabt das das Programm nur in der meinen Zeitzone laufen soll. So könnte keiner mein Program vom Server kopieren um es dann in einem Standort um die halbe Welt zu installieren.

Hat jemand eine Idee wie man da den Wert: UTC+1 / UTC+2 etc also den Wert 1 / 2 auslesen kann?
Es sollte allerdings auch noch mit der Version 4.02 funktionieren.

Danke schon im Voraus und viel Spaß beim Eiersuchen.
Michael

[Andreas21]

Hier müsstest du fündig werden.

http://forum.purebasic.com/german/viewt ... =3&t=24390

[NicTheQuick]

Wenn überhaupt, dann dieser Link: http://www.purebasic.fr/german/viewtopic.php?f=3&t=24390 Der alte sollte so langsam mal echt verboten werden...

[Andreas21]

Der Link war unter den ersten 3 glaub bei Google xD^^

kurz:

Code: Alles auswählen

EnableExplicit

Define.TIME_ZONE_INFORMATION UtcOs
Define.f Zeitzone

GetTimeZoneInformation_(@UtcOs)
Zeitzone = - UtcOs\Bias / 60

If Zeitzone = 0
  Debug "UTC Zeit"
ElseIf Zeitzone > 0
  Debug "UTC + " + Zeitzone
Else 
   ;Nur damit es besser angezeigt werden kann im Beispiel.
   ;Aus der Negativen Zahl eine Positive machen damit das Vorzeichen weg ist.
  Zeitzone = - Zeitzone
  Debug "UTC - " +  Zeitzone
EndIf

Der Code giebt dir das + oder - zurück was zurzeit im System eingestellt ist zur UTC Zeit.
Bei mir z.b. bekomme ich 1 zurück für UTC + 1 oder -3 für UTC - 3 oder auch + 3.5 für UTC + 3.30
Aber ich denke das müsste dir eigentlich genügen.

Nützliche Infos über GetTimeZoneInformation http://msdn.microsoft.com/de-de/library/bb979254.aspx

[HemSA]

Hallo Andreas21

Danke, genau das was ich gesucht habe.

Michael