Our Pregnancy :)
<%
Session.LCID = 3081
dtStart = "30-09-2006"
dtNow = DateAdd("n", 1110, Now())
lngDaysGone = DateDiff("d", dtStart, dtNow)
Response.Write "Days Gone - " & lngDaysGone & "
"
Response.Write "Days to Go - " & DateDiff("d", dtNow, "07/07/07") & "
"
Response.Write "Percentage of Pregnancy Gone - " & Round(lngDaysGone / 280 * 100) & "%
"
lngWeeksGone = Int(lngDaysGone/7)
lngDaysLeftOver = lngDaysGone - (lngWeeksGone*7)
Response.Write "Weeks and Days Gone - " & lngWeeksGone & "w" & lngDaysLeftOver & "d
"
Response.Write "First Trimester Start - " & DateAdd("ww", 0, dtStart)& "
"
Response.Write "Second Trimester Start - " & DateAdd("ww", 14, dtStart) & "
"
Response.Write "Third Trimester Start - " & DateAdd("ww", 27, dtStart) & "
"
Response.Write "Week 0 - " & FormatDateTime(dtStart, 2) & "
"
For i = 1 to 40
Response.Write "Week " & i & " - " & DateAdd("d", 7 * i, dtStart) & "
"
Next
%>