Crilism (crilism) wrote, @ 2005-07-23 13:34:00

Current mood:

apathetic

Hello World
Form_Load()
Dim bDayDate as Date

bDayDate = CDate("23/07/1980")

If day(bDayDate)=day(Now) and Month(bDayDate) = Month(New) and Year(bDayDate) = Year(New) Then
Msgbox("Today is your birthday.")
End If
End Sub

Today is 23rd July 2005. I am now 25 years old. My silver jubilee year. I hope this will be a new beginning.

As for doing something new on my birthday, I am restarting this blog.

Post a comment in response:

From:		Anonymous
		Username:
		Username:  Password:  Login?
Subject:	No HTML allowed in subject
	No Image
	Don't auto-format:
Message:	Enter the security code below. Notice! This user has turned on the option that logs your IP address when posting. Allowed HTML: <a> <abbr> <acronym> <address> <area> <b> <bdo> <big> <blockquote> <br> <caption> <center> <cite> <code> <col> <colgroup> <dd> <dd> <del> <dfn> <div> <dl> <dt> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr> <i> <img> <ins> <kbd> <li> <li> <map> <marquee> <ol> <p> <pre> <q> <s> <samp> <small> <span> <strike> <strong> <sub> <sup> <table> <tbody> <td> <tfoot> <th> <thead> <tr> <tt> <u> <ul> <var> <xmp>