Uses the API to get the regional short date format from the PC

Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Public Function getRegionalDateFormat() As String
  Dim strSecName As String
  Dim strKeyName As String
  Dim varSuccess As Variant
  Dim strRetDate As String
  Dim strRetSep As String
  Dim strChar As String * 1
  strSecName = "Intl"
  strKeyName = "sShortDate"
  strRetDate = String$(11, 0)
  varSuccess = GetProfileString(strSecName, strKeyName, "", strRetDate, Len(strRetDate))
  strSecName = "Intl"
  strKeyName = "sDate"
  strRetSep = String$(2, 0)
  varSuccess = GetProfileString(strSecName, strKeyName, "", strRetSep, Len(strRetSep))
  strRetSep = Left$(strRetSep, 1)
  strChar = UCase$(Left$(strRetDate, 1))
  strRetDate = Left(strRetDate, Len(strRetDate) - 1)
  getRegionalDateFormat = strRetDate
End Function
About the Author
Member Avatar mnemtsas Posting Whiz in Training

Mechanical Engineer & Shareware Author


can any one tell me how to set windows desktop wallpaper using windows api in vb.

i tried with the code systemparametresinfo , but its not working..

also how to use win api and declarations in vb..



Dim DecimalCharacter As String
    DecimalCharacter = Mid(Format(0, "0.0"), 2, Len(Format(0, "0.0")) - 2)