added MonthNumber.ToZeroableMonth()

Author: jochenwezel

CompuMaster.Calendar/CompuMaster.Calendar.vbproj

@@ -7,8 +7,8 @@
 		<Product>CompuMaster.Calendar</Product>
 		<Copyright>2005-2022 CompuMaster GmbH</Copyright>
 		<GeneratePackageOnBuild>true</GeneratePackageOnBuild>
-		<AssemblyVersion>2022.3.28.100</AssemblyVersion>
-		<Version>2022.3.28.100</Version>
+		<AssemblyVersion>2022.7.8.100</AssemblyVersion>
+		<Version>2022.7.8.100</Version>
 		<VBRuntime>Embed</VBRuntime>
 		<IsPackable>true</IsPackable>
 	</PropertyGroup>

CompuMaster.Calendar/Month.vb

@@ -914,6 +914,14 @@ Namespace CompuMaster.Calendar
             Return Me.Year * 100 + Me.Month
         End Function
 
+        ''' <summary>
+        ''' Convert to ZeroableMonth
+        ''' </summary>
+        ''' <returns></returns>
+        Public Function ToZeroableMonth() As ZeroableMonth
+            Return CType(Me, ZeroableMonth)
+        End Function
+
         Private Function Clone_ICloneable() As Object Implements ICloneable.Clone
             Return New Month(Me.Year, Me.Month)
         End Function

CompuMaster.Test.Calendar/MonthConversionTest.vb

@@ -29,6 +29,7 @@ Namespace CompuMaster.Test.Calendar
 
         <Test> Public Sub MonthToZeroableMonth()
             Assert.AreEqual(New CompuMaster.Calendar.ZeroableMonth(2000, 1), CType(New CompuMaster.Calendar.Month(2000, 1), CompuMaster.Calendar.ZeroableMonth))
+            Assert.AreEqual(New CompuMaster.Calendar.ZeroableMonth(2000, 1), (New CompuMaster.Calendar.Month(2000, 1)).ToZeroableMonth())
         End Sub
 
         <Test> Public Sub MonthToString()