Czy wystarczy # VBA7 PtrSafe czy coś jeszcze zmieniać?

Thread View: pl.comp.bazy-danych.msaccess

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Maciej Franciszkowski Wed, 19 Aug 2020 06:09

#137813

Author: Maciej Franciszkowski
Date: Wed, 19 Aug 2020 06:09

30 lines
1940 bytes

Witam,
Czy w poniższej deklaracji jeszcze coś zmieniać?

#If VBA7 Then

Private Const LOCALE_USER_DEFAULT As Long = &H400
Private Const LOCALE_SDECIMAL  As Long = &HE
Private Declare PtrSafe Function GetLocaleInfo Lib "kernel32" _
   Alias "GetLocaleInfoA" _
  (ByVal Locale As Long, _
   ByVal LCType As Long, _
   ByVal lpLCData As String, _
   ByVal cchData As Long) As Long

#Else

Private Const LOCALE_USER_DEFAULT As Long = &H400
Private Const LOCALE_SDECIMAL  As Long = &HE
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

#End If


Pozdrawiam

Re: Czy wystarczy # VBA7 PtrSafe czy coś jeszcze zmieniać?

#137808

Author: Zbigniew Bratko
Date: Wed, 19 Aug 2020 08:21

33 lines
2110 bytes

W dniu 19.08.2020 o 08:09, Maciej Franciszkowski pisze:
> #If VBA7 Then
> 
> Private Const LOCALE_USER_DEFAULT As Long = &H400
> Private Const LOCALE_SDECIMAL  As Long = &HE
> Private Declare PtrSafe Function GetLocaleInfo Lib "kernel32" _
>     Alias "GetLocaleInfoA" _
>    (ByVal Locale As Long, _
>     ByVal LCType As Long, _
>     ByVal lpLCData As String, _
>     ByVal cchData As Long) As Long
> 
> #Else
> 
> Private Const LOCALE_USER_DEFAULT As Long = &H400
> Private Const LOCALE_SDECIMAL  As Long = &HE
> 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
> 
> #End If


Moim zdaniem nic nie trzeba zmieniać.

I w VBA i VBA7 zwraca u mnie ","

-- 
Pozdrawiam
Zbigniew Bratko

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads