ShareThis

Highlights of the trip were:

• Hiking Flattop Peak Trail.
• Taking a cruise within the Kenia Fjords National Park:
  • Seeing killer whales, a humpback whale, sea otters, puffins, porpoise, sea lions.
  • Aialik glacier and other glaciers.
• Hiking to Exit Glacier.
• Biking the Tony Knowles Coastal Trail by bicycle and taking a self-guided walking tour of Anchorage.
• Seeing the beautiful town of Seward and Homer.
• Taking a tour from the Alaskan Center for Coastal Studies:
  • Went tide-pooling and saw a bunch of cool creatures like: star fish, clams, octapus, sea cucumbers, sea urchins, etc.
• Driving from Anchorage to Seward along the Cook Inlet (one of the most beautiful drives in all the world).

ShareThis

Of course, there have been hard times in our relationship, however, the fact that we have made it through them has in fact made me more optimistic and less scared of married life.

I will post pictures on Flickr and here of the actual wedding soon after the event. We plan on having some more semi-professional photos taken sometime after the wedding as well (which I will share). We are going to Alaska for our honeymoon, and are looking forward to seeing a part of the U.S. we have never seen before.

UPDATE: Click here to see some pictures from the ceremony:

That’s all for now….stay tuned.

I love you very much Siqing!

ShareThis

Have you ever seen a happier miner?

ShareThis

Other issues arise when it comes to leap years. The following code takes care of all the problems mentioned above:

VB .NET

Public Enum LicensePaymentType As Integer
  Monthly = 1
  Annual = 2
End Enum   

Private Function determineNextInvoice(ByVal LicType As LicensePaymentType, _
          ByVal InvoiceDay As Integer, ByVal LastInvoice As DateTime) As DateTime
  If LicType = LicensePaymentType.Monthly Then
     If LastInvoice.Day < InvoiceDay Then
        Dim Temp As Integer = InvoiceDay - LastInvoice.Day
        Dim NewInvDate As DateTime = LastInvoice.AddMonths(1)
        Return NewInvDate.AddDays(Temp)
     Else
        Return LastInvoice.AddMonths(1)
     End If
  ElseIf LicType = LicensePaymentType.Annual Then
     Dim NumDaysNextYearsMonth As Integer = _
           DateTime.DaysInMonth(LastInvoice.AddYears(1).Year, LastInvoice.AddYears(1).Month)
     If LastInvoice.Day < InvoiceDay AndAlso NumDaysNextYearsMonth >= InvoiceDay Then
        Dim Temp As Integer = InvoiceDay - LastInvoice.Day
        Dim NewInvDate As DateTime = LastInvoice.AddYears(1)
        Return NewInvDate.AddDays(Temp)
     Else
     Return LastInvoice.AddYears(1)
     End If
  End If
End Function

ShareThis

ShareThis

VB .NET

Dim newstr As String
newstr = oldstr.Replace(Chr(147), "& quot;") ' take out extra space b/w & and quot;
newstr = newstr.Replace(Chr(148), "& quot;") ' take out extra space b/w & and quot;

C#

string newstr;
newstr = oldstr.Replace((char)147, "& quot;") // take out extra space b/w & and quot;
newstr = newstr.Replace((char)148, "& quot;") // take out extra space b/w & and quot;

ShareThis

ShareThis

Anyone had this same thing happen? All my searching Google turns up nothing…

ShareThis

ShareThis