Thema Datum  Von Nutzer Rating
Antwort
Rot Kann Windows API-Funktion GetDateFormatEx() nicht aufrufen – was mache ich falsch?
25.07.2023 12:10:12 AD
NotSolved
26.07.2023 10:02:39 Gast92458
**
NotSolved
27.07.2023 02:18:30 AD
NotSolved

Ansicht des Beitrags:
Von:
AD
Datum:
25.07.2023 12:10:12
Views:
725
Rating: Antwort:
  Ja
Thema:
Kann Windows API-Funktion GetDateFormatEx() nicht aufrufen – was mache ich falsch?

Hallo,

ich habe die Windows API-Funktion GetNumberFormatEx() deklariert, kann sie aber nicht erfolgreich aufrufen.

Dort liefert charCount immer "1". Das ist zwar keine Fehlermeldung, aber immer ein leerer String. Und wenn ich an flags einen Wert übergebe, der ungleich 0 ist, dann erhalte ich immer die Fehlermeldung "ungültiges Flag":

 

Private Declare PtrSafe Function GetDateFormatEx& Lib "Kernel32" ( _
  ByVal lpLocaleName As String, _
  ByVal dwFlags As Long, _
  ByRef lpDate As SystemTime, _
  ByVal lpFormat As String, _
  ByVal lpDateStr As String, _
  ByVal cchDate As Long, _
  ByVal lpCalendar As String _
)
 
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 Function DateToSystemTime(ByVal srcDate As Date) As SystemTime
  With DateToSystemTime
    .wDay = Day(srcDate)
    .wMonth = Month(srcDate)
    .wYear = Year(srcDate)
    .wHour = Hour(srcDate)
    .wMinute = Minute(srcDate)
    .wSecond = Second(srcDate)
    .wDayOfWeek = Weekday(srcDate, vbSunday)
  End With
End Function
 
Public Function FormatDateLocale$(srcDate As Date, lcid$, Optional flags& = 0, Optional customFormat$ = vbNullString)
  Dim buffer$
  Dim charCount&
  Dim sTime As SystemTime
 
  lcid = StrConv(lcid, vbUnicode)
  customFormat = StrConv(customFormat, vbUnicode)
  sTime = DateToSystemTime(srcDate)
 
  charCount = GetDateFormatEx(lcid, flags, sTime, customFormat, vbNullString, 0, vbNullString)
  If charCount = 0 Then Err.Raise 1024, "FormatDateLocale", "Cannot format date value. Error code: " & Err.LastDllError
   
  charCount = charCount * 2
  buffer = String(charCount, vbNullChar)
  charCount = GetDateFormatEx(lcid, flags, sTime, customFormat, buffer, charCount, vbNullString)
   
  If charCount > 0 Then FormatDateLocale = Left$(StrConv(buffer, vbFromUnicode), charCount - 1)
End Function

 

Was habe ich falsch gemacht?

Vielen Dank für eure Hilfe!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Kann Windows API-Funktion GetDateFormatEx() nicht aufrufen – was mache ich falsch?
25.07.2023 12:10:12 AD
NotSolved
26.07.2023 10:02:39 Gast92458
**
NotSolved
27.07.2023 02:18:30 AD
NotSolved