Changeset 73 for Include/Classes/System/DateTime.ab

Timestamp:

Jan 23, 2007, 10:03:13 PM (18 years ago)

Author:

OverTaker

Message:

GetDateTimeFormats実装

File:

• Include/Classes/System/DateTime.ab (modified) (1 diff)

Include/Classes/System/DateTime.ab

@@ -338 +338 @@
     End Function
 
-    'まだ適当です
     Function GetDateTimeFormats() As String
-        Return Str$(Year) + "/" + Str$(Month) + "/" + Str$(Day) + " " + Str$(Hour) + ":" + Str$(Minute) + ":" + Str$(Second)
+        Return GetDateTimeFormats(NULL)
+    End Function
+
+    Function GetDateTimeFormats(format As *Byte) As String
+        Dim time As SYSTEMTIME
+        With time
+            .wYear = Year
+            .wMonth = Month
+            .wDay = Day
+            .wHour = Hour
+            .wMinute = Minute
+            .wSecond = Second
+            .wMilliseconds = Millisecond
+            .wDayOfWeek = DayOfWeek()
+        End With
+
+        Dim size As Long
+        size = GetDateFormat(LOCALE_USER_DEFAULT, 0, time, format, NULL, 0)
+        GetDateTimeFormats.ReSize(size - 1)
+        GetDateFormat(LOCALE_USER_DEFAULT, 0, time, format, GetDateTimeFormats, size)
+
+        Dim temp As String      
+        If format = NULL Then
+            size = GetTimeFormat(LOCALE_USER_DEFAULT, 0, time, format, NULL, 0)
+            temp.ReSize(size - 1)
+            GetTimeFormat(LOCALE_USER_DEFAULT, 0, time, format, temp, size)
+            GetDateTimeFormats = GetDateTimeFormats + " " + temp
+        Else
+            size = GetTimeFormat(LOCALE_USER_DEFAULT, 0, time, GetDateTimeFormats, NULL, 0)
+            temp.ReSize(size - 1)
+            GetTimeFormat(LOCALE_USER_DEFAULT, 0, time, GetDateTimeFormats, temp, size)
+            GetDateTimeFormats = temp
+        End If
     End Function