Visual Basic

<br />
<br />
'Class Definition<br />
<br />
<Serializable() , Xml.Serialization.XmlInclude(GetType(Photos))> _<br />
Public Class SitePhotos<br />
    Private _Outdoordesc As String<br />
    Public Property Outdoordesc() As String<br />
        Get<br />
            Return _Outdoordesc<br />
        End Get<br />
        Set(ByVal value As String)<br />
            _Outdoordesc = value<br />
        End Set<br />
    End Property<br />
<br />
    Private _ShelterEntrance As String<br />
    Public Property ShelterEntrance() As String<br />
        Get<br />
            Return _ShelterEntrance<br />
        End Get<br />
        Set(ByVal value As String)<br />
            _ShelterEntrance = value<br />
        End Set<br />
    End Property<br />
    <br />
'Arraylist to store photo descriptions<br />
<br />
    Public PhotoList As New System.Collections.ArrayList<br />
<br />
    Public Sub AddPhoto(ByVal photoObj As Photos)<br />
        PhotoList.Add(photoObj)<br />
    End Sub<br />
<br />
    Public Sub RemovePhoto(ByVal range As String)<br />
        Dim _pht As Photos<br />
        'Dim i As Integer<br />
<br />
<br />
        For Each _pht In _PhotoList<br />
<br />
            If _pht.posRange = range Then<br />
                PhotoList.RemoveAt(PhotoList.IndexOf(_pht))<br />
            End If<br />
<br />
        Next<br />
<br />
    End Sub<br />
<br />
   <br />
End Class<br />
<br />
'Structure of each photo description<br />
Public Structure Photos<br />
    Public Pos As Integer<br />
    Public Desc As String<br />
    Public posRange As String<br />
End Structure<br />
<br />
<br />
<br />
'Code for serialization<br />
<br />
        Dim extraTypes(0) As Type<br />
<br />
        extraTypes(0) = GetType(SitePhotos)<br />
<br />
        Dim xSerializer As XmlSerializer = New<br />
XmlSerializer(GetType(GeneralSiteInfo.SitePhotos), extraTypes)<br />
       <br />
        Dim xWriter As StringWriter = New StringWriter()<br />
      <br />
        ' Since the serialization can exception, we'll encase it in a try/catch<br />
        ' mechanism, so we can report the error properly<br />
<br />
        Try<br />
            xSerializer.Serialize(xWriter, objPhotos)<br />
<br />
  'xmlSitePhotos is a hidden control to which i can store value. <br />
<br />
            _xmlSitePhotos.Value = xWriter.ToString()<br />
<br />
        Catch ex As Exception<br />
<br />
            MsgBox(ex.ToString())<br />
            'MsgBox("Could not serialize Site Photos", MsgBoxStyle.Critical, "Error<br />
Saving Site Photos")<br />
<br />
        End Try<br />
<br />
        xWriter.Close()<br />
<br />
<br />

Dim subStr As Integer<br />
   If Me.ComboBox2.Text.Contains("jan") Then<br />
       subStr = Me.ComboBox2.Text.Substring(Me.ComboBox2.Text.IndexOf("n") + 1, 3)<br />
       Me.TextBox1.Text = DateTime.DaysInMonth("20" & subStr, 1)<br />
   ElseIf Me.ComboBox2.Text.Contains("feb") Then<br />
       subStr = Me.ComboBox2.Text.Substring(Me.ComboBox2.Text.IndexOf("b") + 1, 3) '1. note the change in the letter within the index of<br />
       Me.TextBox1.Text = DateTime.DaysInMonth("20" & subStr, 2) '2. note the change in the second part of this daysinmonth.<br />
   End If

'Date to test
Dim stringDate As String = "sep 07"
'Date object
Dim parsedDate As Date

'If our string is valid date show days in month
If Date.TryParse(stringDate, parsedDate) Then
    MsgBox(Date.DaysInMonth(parsedDate.Year, parsedDate.Month))
End If

Private Function Days(ByVal text As String) As Integer
    Dim split As String() = text.Split

    'An error could occur so catch it and return -1
    Try
        Dim month As Integer = [Enum].Parse(GetType(Month), split(0).ToUpper)
        Dim year As Integer = CInt("20" & split(1))
        Return Date.DaysInMonth(year, month)
    Catch ex As Exception
        Return -1
    End Try
End Function

Private Enum Month
    JAN = 1
    FEB
    MAR
    APR
    MAY
    JUN
    JUL
    AUG
    SEPT
    OCT
    NOV
    DEC
End Enum