--- a/AbstractTime.st	Thu Nov 27 10:00:51 2014 +0000
+++ b/AbstractTime.st	Thu Nov 27 11:04:50 2014 +0100
@@ -950,6 +950,33 @@
     ^ self subclassResponsibility
 !
 
+asMilliseconds
+    "return the number of milliseconds elapsed since midnight"
+
+    ^ self getMilliseconds
+
+    "
+     Time now asMilliseconds
+     Timestamp now asMilliseconds
+     (TimeDuration days:1) asMilliseconds
+     (TimeDuration hours:1) asMilliseconds
+    "
+
+    "Created: / 05-09-2011 / 10:40:15 / cg"
+!
+
+asSeconds
+    "return the number of seconds elapsed since midnight"
+
+    ^ self getSeconds
+
+    "
+     Timestamp now asSeconds
+     Time now asSeconds
+     (TimeDuration days:1) asSeconds
+    "
+!
+
 asTimestamp
     "represent myself as a Timestamp"
 
@@ -979,6 +1006,7 @@
     "/ ^ aTimestamp getSeconds - self getSeconds
 ! !
 
+
 !AbstractTime methodsFor:'printing & storing'!
 
 addBasicPrintBindingsTo:aDictionary language:languageOrNil
@@ -1406,10 +1434,10 @@
 !AbstractTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.88 2014-11-10 16:33:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.89 2014-11-27 10:04:50 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.88 2014-11-10 16:33:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.89 2014-11-27 10:04:50 stefan Exp $'
 ! !