Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VB in der Schweiz
Autor: Heizer
Datum: 08.06.07 22:45
Hi MarkDO, jaja, Deutschland spielt mal wieder eine Sonderrolle... Habe folgenden Code (ich glaube im Programmierhandbuch für PocketPC von Ingo Böhme) "abgestaubt" und lediglich die API-Deklaration geändert. Sie besteht aus einer API-Deklaration und zwei Functions. ' API GetLocaleInfo: Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _ (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, _ ByVal cchData As Long) As Long Private Function GetDecimaleSeparator() GetDecimaleSeparator = GetInfo(&HE) End Function Private Function GetInfo(InfoID) Dim Ret As Long Dim Buffer As String Dim Locale As Long Const LOCALE_SYSTEM_DEFAULT As Long = &H800 Ret = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, InfoID, vbNullString, 0) If Ret > 0 Then Buffer = String(Ret, 0) Ret = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, InfoID, Buffer, Len(Buffer)) If Ret Then Buffer = Trim(Buffer) If InStr(Buffer, Chr(0)) Then Buffer = Left(Buffer, InStr(Buffer, Chr(0))) GetInfo = Buffer End If End If End If End Function Private Sub Form_Load() Dim Result As String MsgBox CStr(GetDecimaleSeparator) End Sub Wenn Du den Code in einem Modul ablegst, muss alles Public sein. Du kannst das Dezimaltrennzeichen einer öffentlichen Variablen übergeben und mit dem Replace-Befehl ALLES in einen Punkt umwandeln, wenn GetDecimalSeparator ein "." (Punkt) ist. Ist es ein "," (Komma), dann handelt es sich beim OS um ein deutsches System und nichts muss umgewandelt werden. Hoffe, es hilft. Gruss Heizer

VB in der Schweiz	790	MarkDO	07.06.07 17:55
Re: VB in der Schweiz	480	Zardoz	07.06.07 19:07
Re: VB in der Schweiz	474	MarkDO	08.06.07 14:51
Re: VB in der Schweiz	523	Heizer	08.06.07 22:45
Re: VB in der Schweiz	442	MarkDO	13.06.07 00:01
Re: VB in der Schweiz	441	Heizer	13.06.07 18:20
Re: VB in der Schweiz	527	MarkDO	02.07.07 20:34
Re: VB in der Schweiz	433	Lord_Duke	13.06.07 07:32
Re: VB in der Schweiz	442	MarkDO	02.07.07 20:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen