Visual Basic

<br />
DateDiff("s", CDate("1970-01-01 00:00:00"), Now)<br />

Private Function GetEpochDate(ByVal seconds As Long) As DateTime<br />
  Dim BeginningOfTime As New DateTime(1970, 1, 1)<br />
  Return BeginningOfTime.AddSeconds(seconds)<br />
End Function

<br />
Public Function GetEpochToDate(ByVal seconds As Long) As Date<br />
  GetEpochDate = DateAdd("s", seconds, CDate("1970-01-01 00:00:00"))<br />
End Function<br />
Public Function GetDateToEpoch(ByVal theDate As Date) As Long<br />
  GetDateToEpoch = DateDiff("s", CDate("1970-01-01 00:00:00"), theDate)<br />
End Function<br />

<font color="blue">Public</font> <font color="blue">Enum</font> Colours
        BrightRed = 0
        BrightYellow = 1
        Horrible = 2
    <font color="blue">End</font> <font color="blue">Enum</font>

    <font color="blue">Private</font> <font color="blue">Sub</font> Button1_Click(<font color="blue">ByVal</font> sender <font color="blue">As</font> System.Object, <font color="blue">ByVal</font> e <font color="blue">As</font> System.EventArgs) <font color="blue">Handles</font> Button1.Click
        <font color="blue">Dim</font> c <font color="blue">As</font> Colours
        MessageBox.Show(GetColours(c.BrightRed))
    <font color="blue">End</font> <font color="blue">Sub</font>

    <font color="blue">Public</font> <font color="blue">Function</font> GetColours(<font color="blue">ByVal</font> i <font color="blue">As Integer</font>) <font color="blue">As String</font>
        <font color="blue">Dim</font> clr <font color="blue">As</font> Colours
        <font color="blue">Select Case</font> i <font color="darkgreen">'/// numerical value of the colour.</font>
            <font color="blue">Case</font> clr.BrightRed
                <font color="blue">Return</font> "you chose BrightRed" <font color="darkgreen">'/// show the colour you chose.</font>
            <font color="blue">Case</font> clr.BrightYellow
                <font color="blue">Return</font> "you chose BrightYellow"
            <font color="blue">Case</font> clr.Horrible
                <font color="blue">Return</font> "you chose Horrible"
        <font color="blue">End Select</font>

    <font color="blue">End</font> <font color="blue">Function</font>

<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
    {    
    <font color="blue">switch</font>(twins)
    {
    <font color="blue">Case</font> ("twins on the way"):
        MessageBox.Show("for mr and mrs dynamic","twins on the way");
    <font color="blue">break</font>;
    }
    }

Imports System.ComponentModel<br />
Imports System.Reflection<br />
<br />
Private Function GetContentTypeValue(ByVal value As Colours) As String<br />
     Dim fi As FieldInfo = value.GetType.GetField(value.ToString)<br />
     Dim attributes As DescriptionAttribute() = CType(fi.GetCustomAttributes(GetType(DescriptionAttribute), False), DescriptionAttribute())<br />
     If attributes.Length > 0 Then<br />
          Return attributes(0).Value<br />
     Else<br />
          Return String.Empty<br />
     End If<br />
End Function