Question

这是我的原始查询，当我将数据记录保存到excel文件时，日期格式从dd / mm / yyyy到d / m / yyyy，我该怎么做才能更改为excel日期格式？希望有人可以帮助我..谢谢你...我希望日期可以是dd / mm / yyyy。

strSQL2= "select DISTINCT to_char(PROD,'dd/mm/yyyy') as PROD_FORMATTED, to_char(PRAD,'dd/mm/yyyy') as PRAD_FORMATTED,PROD,PRAD, BRCH,DEPT,SANO,SUBM, to_char(SUBD,'dd/mm/yyyy') as SUBD, STAT, PSFG, TSAM, TLEV, CLEV, GROP, CTLV, CCLV, CRNM, EXFL FROM SANCTH " & _
         "where" & _
         sqlWhere2 & " ((cono,sano) in " & strFilterRole & " or crid='" & SQLEncode(StrCrid) & "')" & _
         "order by SUBD"

部分Excel输出代码;

<td align="left" style="vertical-align:middle"><%=((objRS_Search("PROD_FORMATTED")))%></td>
<td align="left" style="vertical-align:middle"><%=((objRS_Search("PRAD_FORMATTED")))%></td>
<td align="left" style="vertical-align:middle"><%=((objRS_Search("BRCH")))%></td>
<td align="left" style="vertical-align:middle"><%=((objRS_Search("DEPT")))%></td>
<td align="left" style="vertical-align:middle"><%=((objRS_Search("SANO")))%></td>

我的excel得到了“02/04/2014”。当我使用下面的代码时，它会删除每个双引号，日期变为2/4 / 2014.how可以是02/04/2014吗？需要任何人的帮助，非常感谢你！

  <td align="left" style="vertical-align:middle"><%=replace((("""" & objRS_Search("PROD_FORMATTED"))) & """",chr(34),"") %></td>

Answer 1

<td align="left" style="vertical-align:middle; mso-number-format:\@;"><%=(( objRS_Search("PROD_FORMATTED"))) %></td>

在添加此mso-number-format:\@;

时完成

asp to excel表单中的日期格式

1 个答案: