Changeset 526 for trunk/ab5.0/ablib/src/Classes/System/TimeSpan.ab

Timestamp:

Jun 26, 2008, 8:25:29 PM (16 years ago)

Author:

OverTaker

Message:

List,TimeSpan.ToString()実装。
Console.WriteのObject型のオーバーロードを追加。

File:

• trunk/ab5.0/ablib/src/Classes/System/TimeSpan.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/TimeSpan.ab

@@ -164 +164 @@
         End If
     End Function
+
+    Override Function ToString() As String
+        If Ticks < 0 Then
+            Dim span = Negate() As TimeSpan
+            Return ActiveBasic.Strings.SPrintf("-%d:%.2d:%.2d:%.2d.%.4d",
+                New Int32(span.Days) ,New Int32(span.Hours), New Int32(span.Minutes), New Int32(span.Seconds), New Int32(span.Milliseconds))
+        Else
+            Return ActiveBasic.Strings.SPrintf("%d:%.2d:%.2d:%.2d.%.4d",
+                New Int32(Days) ,New Int32(Hours), New Int32(Minutes), New Int32(Seconds), New Int32(Milliseconds))
+        End If
+    End Function
     
     Static Function FromTicks(ticks As Int64) As TimeSpan