<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" '转换时间 时间格式化 Function formatDate(Byval t,Byval ftype) dim y, m, d, h, mi, s formatDate="" If IsDate(t)=False Then Exit Function y=cstr(year(t)) m=cstr(month(t)) If len(m)=1 Then m="0" & m d=cstr(day(t)) If len(d)=1 Then d="0" & d h = cstr(hour(t)) If len(h)=1 Then h="0" & h mi = cstr(minute(t)) If len(mi)=1 Then mi="0" & mi s = cstr(second(t)) If len(s)=1 Then s="0" & s select case cint(ftype) case 1 ' yyyy-mm-dd formatDate=y & "-" & m & "-" & d case 2 ' yy-mm-dd formatDate=right(y,2) & "-" & m & "-" & d case 3 ' mm-dd formatDate=m & "-" & d case 4 ' yyyy-mm-dd hh:mm:ss formatDate=y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s case 5 ' hh:mm:ss formatDate=h & ":" & mi & ":" & s case 6 ' yyyy年mm月dd日 'formatDate=y & "年" & m & "月" & d & "日" case 7 ' yyyymmdd formatDate=y & m & d case 8 'yyyymmddhhmmss formatDate=y & m & d & h & mi & s end select End Function %> <% y=Trim(Request.QueryString("y")) m=Trim(Request.QueryString("m")) d=Trim(Request.QueryString("d")) z=Trim(Request.QueryString("z")) dayValue = y & "-" & m & "-1" BeginDate = y&"-"&m&"-"&d '加15天 tai2=DateAdd("d",26,BeginDate) tai2 = formatDate(tai2,1) ddt = year(tai2) & "-" & month(tai2) & "-1" tempdate = y&","&m&",0" tempadate = year(tai2)&","&month(tai2)&",0" '第二阶段 '下次月经 nextmc = DateAdd("d",z,BeginDate) '留泰初期 btai1_2 = DateAdd("d",12,nextmc) btai1_2_2 = day(btai1_2) btai2_2_date = DateAdd("d",7,btai1_2) btai2_2_date = formatDate(btai2_2_date,1) '留泰初期-月份 nexty = year(btai1_2) nextm = month(btai1_2) '留泰初期-月初 bdayValue = year(btai1_2) & "-" & month(btai1_2) & "-1" '留泰末期 'btai2_2 = DateAdd("d",z,btai1_2) 'btai2_2 = formatDate(btai2_2,1) '留泰末期-月初 bddt = year(btai2_2_date) & "-" & month(btai2_2_date) & "-1" 'Response.Write(nextmc) %> 预测工具
<% BeginDate = formatDate(BeginDate,1) line2 = DateAdd("d",1,BeginDate) line2 = formatDate(line2,1) line3_2 = DateAdd("d",1,line2) line3_2 =formatDate(line3_2,1) line4_2 = DateAdd("d",12,BeginDate) line4_2 =formatDate(line4_2,1) line5_2 = DateAdd("d",5,line4_2) line5_2 =formatDate(line5_2,1) line6_2 = DateAdd("d",9,line5_2) line6_2 =formatDate(line6_2,1) line7_2 = DateAdd("d",14,line6_2) line7_2 =formatDate(line7_2,1) nextmc = formatDate(nextmc,1) row2 = DateAdd("d",12,nextmc) row2 =formatDate(row2,1) row3_1 = DateAdd("d",3,row2) row3_1 =formatDate(row3_1,1) row3_2 = DateAdd("d",6,row2) row3_2 =formatDate(row3_2,1) row4_2 = DateAdd("d",3,row3_2) row4_2 =formatDate(row4_2,1) row5_1 = DateAdd("d",3,row4_2) row5_1 =formatDate(row5_1,1) row5_2 = DateAdd("d",5,row4_2) row5_2 =formatDate(row5_2,1) row7_1 =formatDate(btai1_2,1) row7_2 =btai2_2_date '预产期 duedate = DateAdd("d",280,nextmc) duedate = formatDate(duedate,1) %>