<%
'// 月柱
if Month(RTstr) = Month(Contrast) And FormatDateTime(RTstr,3)<FormatDateTime(Contrast,3) Then
Eight = Eight & EightM(DateAdd("m",-1,TempTime))
Else
Eight = Eight & EightM(RTstr)
End if
%>
这是一个排八字的程序，以前十几年使用都一直正常，到了2023年，这段代码就显示不了八字四柱的年柱和月柱，选择2024年及以后，又一切正常。请高手帮忙修改这两句代码，使之完善。谢谢！ |
IP卡
狗仔卡
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
楼主
