日期怎么显示？

2001-10-26 11:59:34 145 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

十一种室内定位传感器方案汇总介绍与对比（机器人、物联网领域）室内定位传感器方案汇总目录室内定位传感器方案汇总 1、定位方案概述 1.1、内定位系统有最基本的5种算法： 1.2、常用的室内定位技术主要包括以下几种： 1.3、定位理论 1.4、不同的定位方案对比 2、各种定位方案详细介绍 2.1、单线激光定位 2.2、多线激光定位： 2.3、视觉定位： 2.4、基于射频识别(RFID)技术室内定位 2.4.1、RFID标签（不涉及... 阅读详情

在Windows下我用ADO对象连到SQL Server，返回字段为日期，怎么转为字符显示？
如果要实现数据类型的相互转换，在Perl下怎么实现？
源程序如下：
#!D:/programs/perl/bin/perl
use CGI;
use Win32::OLE;
$oCgi=new CGI;
print $oCgi->header(-charset=>'GBK');
print "<h1>ActivePerl ADO test:</h1>";
print "<hr>";
print "Now connecting to demo database Northwind on local SQL Server:";
print "<hr>";
my $Conn =Win32::OLE->new('ADODB.Connection');
$Conn->Open("Driver=SQL Server;Server=(local);Database=Northwind;UID=sa;PWD=");
my $Rst=Win32::OLE->new('ADODB.RecordSet');
$Rst=$Conn->Execute("Select * from Employees");
if($Rst->Eof)
{
print "Sorry,no data!";
}
else
{
print "<table border=1 bordercolor=black cellspacing=0 cellblank=0>";
print "<tr bgcolor=#ff9900><td>Employee ID<td>Firstname<td>LastName<td>Title<td>BirthDate";
$Count=0;
do
{
print("<tr bgcolor=#00fff00>");
print("<td>");
print $Rst->Fields("EmployeeID")->Value;
print("<td>");
print $Rst->Fields("FirstName")->Value;
print("<td>");
print $Rst->Fields("LastName")->Value;
print("<td>");
print $Rst->Fields("Title")->Value;
print("<td>");
print $Rst->Fields("BirthDate")->Value;
$Rst->movenext;
$Count++;
}
while(not $Rst->Eof);
print "</table>";
}
$Rst->Close;
$Conn->Close;

日期字段(BirthDate)显示值：Win32::OLE::Variant=SCALAR(0x1792d9c)

...全文