dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2A, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2B, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2C, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2D, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2E, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2F, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H30, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2A, buffer, 99)
DAY_LAST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2B, buffer, 99)
DAY_LAST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2C, buffer, 99)
DAY_LAST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2D, buffer, 99)
DAY_LAST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2E, buffer, 99)
DAY_LAST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2F, buffer, 99)
DAY_LAST.AddItem LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H30, buffer, 99)
DAY_LAST.AddItem LPSTRToVBString(buffer)
If DAY_FIRST > DAY_LAST Then
DAY_FIRST.Text = ""
DAY_LAST.Text = ""
End If
|