首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • strToDate函数，如何转换这两种格式的都没有问题：2008-5-8　　2008/5/8 [已结贴,结贴人:net_morning]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • net_morning
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    • 揭贴率：
    发表于：2008-05-11 02:27:01 楼主
    前者转换没有问题，后者出现异常，请问大家有什么好办法解决吗？
    30  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • dudu12345679
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-05-11 05:18:401楼 得分:3
    edit1.text:=DateTimeToStr(now);
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • dudu12345679
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-05-11 05:19:392楼 得分:3
    对了，
    uses SysUtils;
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • akirya
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 6
    发表于：2008-05-11 08:55:093楼 得分:3
    C/C++ code
    
#include <stdio.h>

int main()
{
    int a,b,c;
    sscanf("2008-5-8","%d%*[-/]%d%*[-/]%d",&a,&b,&c);
    printf("%d  %d  %d\n",a,b,c);
    sscanf("2008/5/8","%d%*[-/]%d%*[-/]%d",&a,&b,&c);
    printf("%d  %d  %d\n",a,b,c);

    return 0;
}
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • akirya
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 6
    发表于：2008-05-11 08:55:514楼 得分:3
    搞错了,还以为是在BCB版
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jwpl190
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-05-11 09:12:225楼 得分:15
    procedure TForm1.Button1Click(Sender: TObject);
    var d:TDateTime;
        tmp:char;
    begin
    tmp :=DateSeparator;
    DateSeparator :='/';
    d :=  StrToDate('2007/12/31');
    ShowMessage(DateToStr(d));
    DateSeparator := tmp;
    end;
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • dext
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-05-11 23:13:506楼 得分:3
    先把 2008/5/8  中的  / replace 成 -

    Replaces all occurrences of a substring with another string.

    Unit

    StrUtils

    Category

    string handling routines

    Delphi syntax:

    function AnsiReplaceStr(const AText, AFromText, AToText: string): string;

    C++ syntax:

    extern PACKAGE AnsiString __fastcall AnsiReplaceStr(const AnsiString AText, const AnsiString
    AFromText, const AnsiString AToText);

    Description

    Call AnsiReplaceStr to scan the string specified by AText and replace all occurrences of the string specified by AFromText with the string specified by AToText. Occurrences of AFromText are identified by a case-sensitive comparison. The identification of substrings is not recursive: if the substitution of AToText results in a new match for AFromText, that match is not replaced.
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • gzmhero
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2

      2
    发表于：2008-05-12 10:00:547楼 得分:0
    引用 5 楼 jwpl190 的回复:
    procedure TForm1.Button1Click(Sender: TObject);
    var d:TDateTime;
        tmp:char;
    begin
    tmp :=DateSeparator;
    DateSeparator :='/';
    d :=  StrToDate('2007/12/31');
    ShowMessage(DateToStr(d));
    DateSeparator := tmp;
    end;


    设置日期分割符，DateSeparator:='/';
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved