Index: /Include/Classes/System/DateTime.ab
===================================================================
--- /Include/Classes/System/DateTime.ab	(revision 39)
+++ /Include/Classes/System/DateTime.ab	(revision 40)
@@ -75,4 +75,9 @@
 	Sub DateTime(ByRef time As SYSTEMTIME, kind As DateTimeKind)
 		DateTime(time.wYear, time.wMonth, time.wDay, time.wHour, time.wMinute, time.wSecond, time.wMilliseconds, kind)
+	End Sub
+
+	'Copy Constructor
+	Sub DateTime( ByRef datetime As DateTime )
+		This.m_Date = datetime.m_Date
 	End Sub