|
Есть ли такая стандартная функция с датой?
#32364065
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Тула - Москва, транзит
Сообщения: 618
|
|
До API добраться совсем не сложно
Объявления:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
Option Compare Database
Option Explicit
Public Const LANG_DEFAULT = &H400
Public Const LANG_ENGLISH_US = &H409
Public Const LANG_RUSSIAN = &H419
Public Const LANG_UKRAINIAN = &H422
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
Declare Function GetDateFormat Lib "kernel32" Alias "GetDateFormatA" _
(ByVal Locale As Long, ByVal dwFlags As Long, lpDate As SYSTEMTIME, _
ByVal lpFormat As String, ByVal lpDateStr As String, ByVal cchDate As Long) As Long
Public Function GetStringFromDate(lLangID As Long, dtDate As Date, strFormat As String) As String
Dim stSysDate As SYSTEMTIME
Dim strResult As String * 256
Dim lBufSize As Long, lRetVal As Long
stSysDate.wDay = Day(dtDate)
stSysDate.wMonth = Month(dtDate)
stSysDate.wYear = Year(dtDate)
lBufSize = 256
lRetVal = GetDateFormat(lLangID, 0 , stSysDate, strFormat, strResult, lBufSize)
If lRetVal <> 0 Then GetStringFromDate = strResult
End Function
Это использование:
MsgBox GetStringFromDate(LANG_UKRAINIAN, date, "dd MMMM yyyy" )
Это описание символов строки формата:
Use the following elements to construct a format picture string. If you use
spaces to separate the elements in the format string, these spaces will
appear in the same location in the output string. The letters must be in
uppercase or lowercase as shown in the table (for example, "MM" not "mm").
Characters in the format string that are enclosed in single quotation marks
will appear in the same location and unchanged in the output string.
d Day of month as digits with no leading zero for single-digit days.
dd Day of month as digits with leading zero for single-digit days.
ddd Day of week as a three-letter abbreviation.
dddd Day of week as its full name.
M Month as digits with no leading zero for single-digit months.
MM Month as digits with leading zero for single-digit months.
MMM Month as a three-letter abbreviation.
MMMM Month as its full name.
y Year as last two digits, but with no leading zero for years less than 10.
yy Year as last two digits, but with leading zero for years less than 10.
yyyy Year represented by full four digits.
For example, to get the date string
"Wed, Aug 31 94"
use the following picture string:
"ddd',' MMM dd yy" |
|
|
