如何把Access里的时间格式2010-9-5读取出来为2010-09-05的格式！

用format函数

format([字段],"yyyy-mm-dd")

要么在sql语句里面修改，要么在调用字段时实现。

sql语句：

select format([字段],"yyyy-mm-dd") as 时间,[其他字段名] from [表]

或者调用的时候：

<%=FORMATDATETIME(rs("字段"),"yyyy-mm-dd")%>

=======================

看来formatdatetime()不支持自定义格式，你可以看看 formatdatetime(rs("字段"),2）的格式是否能接受，如果不能，只能自己用year()/month()/day()来套用了。

另外，附送一个平常网上收集的相关子函数，你可以根据子函数修改或者直接调用这个子函数：

Function FormatDate(DateString,SpaceMark,Format)

TempYear =Right(Year(DateString),2) ' ' '年 ' ' '

TempMonth =Right( "0 "&Month(DateString),2) ' ' '月 ' ' '

TempDay =Right( "0 "&Day(DateString),2) ' ' '日 ' ' '

TempHour =Right( "0 "&Hour(DateString),2) ' ' '时 ' ' '

TempMinute =Right( "0 "&Minute(DateString),2) ' ' '分 ' ' '

IF Format= "hour " Then

FormatDate =TempHour& ": "&TempMinute

ElseIF Format= "mm dd " Then

FormatDate =TempMonth& SpaceMark &TempDay

ElseIF Format= "mm dd hour " Then

FormatDate =TempMonth& SpaceMark &TempDay& " "&TempHour& ": "&TempMinute

ElseIF Format= "yy mm dd " Then

FormatDate =TempYear& SpaceMark &TempMonth& SpaceMark &TempDay

ElseIF Format= "yy mm dd hour " Then

FormatDate =TempYear& SpaceMark &TempMonth& SpaceMark &TempDay& " "&TempHour& ": "&TempMinute

ElseIF Format= "yyyy mm dd " Then

FormatDate =Year(DateString)& SpaceMark &TempMonth& SpaceMark &TempDay

End IF

End Function

用 FormatDate(rs("字段"),"-","yyyy mm dd ") 应该能返回你需要的效果。

Private Sub Command1_Click()

Print Format(Now(), "HH-NN-ss")

Print Format(Now(), "mmmm-dddd-yyyy")

Print Format(Now(), "h-N-S am/pm")

Print Format(Now(), "Hh:Nn:Ss a/p")

Print Format(Now(), "yyyy年m月d日")

Print Format(Now(), "yyyy-m-d Hh:Nn:Ss")

End Sub

若满意请及时采纳，谢谢

网上找的，你看看你能不能用

/ 获取当前时间戳，精确到毫秒 /

function microtime_float()

{

list($usec, $sec) = explode(" ", microtime());

return ((float)$usec + (float)$sec);

}

/ 格式化时间戳，精确到毫秒，x代表毫秒 /

function microtime_format($tag, $time)

{

list($usec, $sec) = explode("", $time);

$date = date($tag,$usec);

return str_replace('x', $sec, $date);

}

使用方法：

1 获取当前时间戳(精确到毫秒)：microtime_float()

2 时间戳转换时间：microtime_format('Y年m月d日 H时i分s秒 x毫秒', 127062657866000000)

Date 传回目前的日期

Unit SysUtils

函数原型 function Date: TDateTime;

范例 procedure TForm1Button1Click(Sender: TObject);

begin

Label1Caption := 'Today is ' + DateToStr(Date);

end;

------------------------------------------

DateTimeToStr 日期时间转换成内定型字串(1996/12/20 09:12:20 PM)

------------------------------------------

Unit SysUtils

函数原型 function DateTimeToStr(DateTime: TDateTime): string;

范例 procedure TForm1Button1Click(Sender: TObject);

begin

Label1Caption := DateTimeToStr(Now);

end;

--------------------------------------------------------

DateTimeToString 日期时间转换成自定型字串

-------------------------------------------------------

Unit SysUtils

函数原型 procedure DateTimeToString(var Result: string; const Format:

string; DateTime: TDateTime);

范例 procedure TForm1FormCreate(Sender: TObject);

var

s:string;

begin

DateTimeToString(s,'dddd,mmmm d,yyyy "at" hh:mm

AM/PM',Now);

Label1Caption :=s;

end;

结果 星期五,十二月 20,1996 at 09:20 PM

-----------------------------------------------------------------------------

Format格式叁考下面FormatDateTime

--------------------------------------------------------

DateToStr 日期转换成内定型字串(1996/12/20)

--------------------------------------------------------

Unit SysUtils

函数原型 function DateToStr(Date: TDateTime): string;

范例

procedure TForm1Button1Click(Sender: TObject);

begin

Label1Caption := 'Today is ' + DateToStr(Date);

end;

# Date, DateToStr Example

--------------------------------------------------------

DayOfWeek 求叁数日期是星期几

--------------------------------------------------------

Unit SysUtils

函数原型 function DayOfWeek(Date: TDateTime): Integer;

说明 传回值是一整数,1~7

星期日为1

范例

procedure TForm1Button1Click(Sender: TObject);

var

ADate: TDateTime;

days: array[17] of string;

begin

days[1] := 'Sunday';

days[2] := 'Monday';

days[3] := 'Tuesday';

days[4] := 'Wednesday';

days[5] := 'Thursday';

days[6] := 'Friday';

days[7] := 'Saturday';

ADate := StrToDate(Edit1Text);

ShowMessage(Edit1Text + ' is a ' + days[DayOfWeek(ADate)];

end;

# StrToDate, DayOfWeek Example

--------------------------------------------------------

DecodeDate 将TDateTime型态的日期变数，转为Word型态

--------------------------------------------------------

范例

procedure TForm1Button1Click(Sender: TObject);

var

Present: TDateTime;

Year, Month, Day, Hour, Min, Sec, MSec: Word;

begin

Present:= Now;

DecodeDate(Present, Year, Month, Day);

Label1Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '

+ IntToStr(Month) + ' of Year ' + IntToStr(Year);

DecodeTime(Present, Hour, Min, Sec, MSec);

Label2Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '

+ IntToStr(Hour);

end;

# DecodeDate, DecodeTime Example

--------------------------------------------------------

DecodeTime 将TDateTime型态的时间变数，转为Word型态

--------------------------------------------------------

Unit SysUtils

函数原型 procedure DecodeDate(Date: TDateTime; var Year, Month,Day: Word);

函数原型 procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec,MSec: Word);

范例 procedure TForm1Button1Click(Sender: TObject);

var

Present: TDateTime;

Year, Month, Day, Hour, Min, Sec, MSec: Word;

begin

Present:= Now;

DecodeDate(Present, Year, Month, Day);

Label1Caption := 'Today is Day ' + IntToStr(Day) + ' of

Month ' + IntToStr(Month) + ' of Year ' + IntToStr(Year);

DecodeTime(Present, Hour, Min, Sec, MSec);

Label2Caption := 'The time is Minute ' +IntToStr(Min) + ' of

Hour ' + IntToStr(Hour);

end;

--------------------------------------------------------

EncodeDate 将Word型态的日期变数，转为TDateTime型态

--------------------------------------------------------

范例

procedure TForm1Button1Click(Sender: TObject);

var

MyDate: TDateTime;

begin

MyDate := EncodeDate(StrToInt(Edit1Text), StrToInt(Edit2Text), StrToInt(Edit3Text));

Label1Caption := DateToStr(MyDate);

end;

-------------------------------------------------------

EncodeTime 将Word型态的时间变数，转为TDateTime型态

--------------------------------------------------------

Unit SysUtils

函数原型 function EncodeDate(Year, Month, Day: Word): TDateTime;

函数原型 function EncodeTime(Hour, Min, Sec, MSec: Word):

TDateTime;

范例 procedure TForm1Button1Click(Sender: TObject);

var

MyDate: TDateTime;

MyTime: TDateTime;

begin

MyDate := EncodeDate(83, 12, 31);

Label1Caption := DateToStr(MyDate);

MyTime := EncodeTime(0, 45, 45, 7);

Label2Caption := TimeToStr(MyTime);

end;

范例

procedure TForm1Button1Click(Sender: TObject);

var

MyTime: TDateTime;

begin

MyTime := EncodeTime(0, 45, 45, 7);

Label1Caption := TimeToStr(MyTime);

end;

--------------------------------------------------------

FormatDateTime 将日期时间依Format的格式转换给一字串

--------------------------------------------------------

Unit SysUtils

函数原型 function FormatDateTime(const Format: string; DateTime:

TDateTime): string;

类似DateTimeToString

Format格式

c 内定值ShortDateFormat的格式(1996/12/20 09:20:15 PM)

d 日期,前面不补0(1-31)

dd 日期,前面补0(01-31)

ddd 星期(星期日)

Dddd 中文201版,同上

ddddd 日期(1996/12/20)

dddddd 日期(1996年12月20日)

m 月份,前面不补0(1-12)

mm 月份,前面补0(01-12)

mmm 中文显示(十二月)

mmmm 中文201版,同上

Yy 年度(00-99)

yyyy 年度(0000-9999)

h 小时(0-23)

hh 小时(00-23)

n 分钟(0-59)

nn 分钟(00-59)

s 秒钟(0-59)

ss 秒钟(00-59)

t 时间(09:20 PM)

tt 时间(09:20:15 PM)

am/pm 单独显示am or pm(若大写,则显示大写)

a/p 单独显示a or p

范例

The following example assigns 'The meeting is on Wednesday, February 15, 1995 at 10:30 AM' to the string variable S

S := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM',

StrToDateTime('2/15/95 10:30am'));//

--------------------------------------------------------

Now 传回目前的日期时间

--------------------------------------------------------

Unit SysUtils

函数原型 function Now: TDateTime;

范例

procedure TForm1Button1Click(Sender: TObject);

begin

Label1Caption := DateTimeToStr(Now);

end;

# Now, DateTimeToStr Example

--------------------------------------------------------

StrToDate 将字串转为TDateTime型态的日期

--------------------------------------------------------

Unit SysUtils

函数原型 function StrToDate(const S: string): TDateTime;

范例 procedure TForm1Button1Click(Sender: TObject);

var

ADate: TDateTime;

begin

ADate := StrToDate(Edit1Text);

Label1Caption := DateToStr(ADate);

end;

范例

procedure TForm1Button1Click(Sender: TObject);

var

ADate: TDateTime;

days: array[17] of string;

begin

days[1] := 'Sunday';

days[2] := 'Monday';

days[3] := 'Tuesday';

days[4] := 'Wednesday';

days[5] := 'Thursday';

days[6] := 'Friday';

days[7] := 'Saturday';

ADate := StrToDate(Edit1Text);

ShowMessage(Edit1Text + ' is a ' + days[DayOfWeek(ADate)];

end;

# StrToDate, DayOfWeek Example

--------------------------------------------------------

StrToDateTime 将字串转为TDateTime型态的日期时间

--------------------------------------------------------

Unit SysUtils

函数原型 function StrToDateTime(const S: string): TDateTime;

范例

procedure TForm1Button1Click(Sender: TObject);

var

ADateAndTime: TDateTime;

begin

ADateAndTime := StrToDateTime(Edit1Text);

Table1FieldByName('TimeStamp')AsDateTime := ADateAndTime;

end;

--------------------------------------------------------

StrToTime 将字串转为TDateTime型态的时间

--------------------------------------------------------

Unit SysUtils

函数原型 function StrToTime(const S: string): TDateTime;

范例

procedure TForm1Button1Click(Sender: TObject);

var

ATime: TDateTime;

begin

ATime := StrToTime(Edit1Text);

if ATime < 050 then

ShowMessage('Good Morning')

else

ShowMessage('Good Afternoon');

end;

--------------------------------------------------------

Time 传回目前的时间

--------------------------------------------------------

Unit SysUtils

函数原型 function Time: TDateTime;

范例

procedure TForm1Timer1Timer(Sender: TObject);

var

DateTime : TDateTime;

str : string;

begin

DateTime := Time; // store the current date and time

str := TimeToStr(DateTime); // convert the time into a string

Caption := str; // display the time on the form's caption

{ Note This could have been done with the following line of code:

Caption := TimeToStr(Time); }

end;

# Time, TimeToStr Example

--------------------------------------------------------

TimeToStr 时间转换成内定型字串(09:20:15 PM)

--------------------------------------------------------

Unit SysUtils

函数原型 function TimeToStr(Time: TDateTime): string;

GetMem procedure 配置记忆体程序

New 配置指位器P的记忆体空间，

大小为P所指型态的大小

--------------------------------------------------------

Dispose 释放New所配置的记忆体

--------------------------------------------------------

Unit System

函数原型 procedure New(var P: Pointer);

函数原型 procedure Dispose(var P: Pointer);

范例 type

PListEntry = ^TListEntry;

TListEntry = record

Next: PListEntry;

Text: string;

Count: Integer;

end;

var

List, P: PListEntry;

begin

New(P);

P^Next := List;

P^Text := 'Hello world';

P^Count := 1;

List := P;

Dispose(P);

…

end;

范例

type

Str18 = string[18];

var

P: ^Str18;

begin

New(P);

P^ := 'Now you see it';

Dispose(P); { Now you don't }

end;

--------------------------------------------------------

GetMem 配置指位器P的记忆体空间，大小可自行设定

--------------------------------------------------------

范例

var

F: file;

Size: Integer;

Buffer: PChar;

begin

AssignFile(F, 'testtxt');

Reset(F, 1);

try

Size := FileSize(F);

GetMem(Buffer, Size);

try

BlockRead(F, Buffer^, Size);

ProcessFile(Buffer, Size);

finally

FreeMem(Buffer);

end;

finally

CloseFile(F);

end;

end;

系统相关的常用时间函数几乎都在这了你问的问题每个准只能这么答了

取得当前时间用 now() 就行。

在数据库中格式化时间 用DATE_FORMA T(date, format)

根据格式串format 格式化日期或日期和时间值date，返回结果串。

可用DATE_FORMAT( ) 来格式化DATE 或DATETIME 值，以便得到所希望的格式。根据format字符串格式化date值:

%S, %s 两位数字形式的秒（ 00,01, , 59）

%i 两位数字形式的分（ 00,01, , 59）

%H 两位数字形式的小时，24 小时（00,01, , 23）

%h, %I 两位数字形式的小时，12 小时（01,02, , 12）

%k 数字形式的小时，24 小时（0,1, , 23）

%l 数字形式的小时，12 小时（1, 2, , 12）

%T 24 小时的时间形式（h h : m m : s s）

%r 12 小时的时间形式（hh:mm:ss AM 或hh:mm:ss PM）

%p AM 或P M

%W 一周中每一天的名称（ S u n d a y, Monday, , Saturday）

%a 一周中每一天名称的缩写（ Sun, Mon, , Sat）

%d 两位数字表示月中的天数（ 00, 01, , 31）

%e 数字形式表示月中的天数（ 1, 2， , 31）

%D 英文后缀表示月中的天数（ 1st, 2nd, 3rd, ）

%w 以数字形式表示周中的天数（ 0 = S u n d a y, 1=Monday, , 6=Saturday）

%j 以三位数字表示年中的天数（ 001, 002, , 366）

% U 周（0, 1, 52），其中Sunday 为周中的第一天

%u 周（0, 1, 52），其中Monday 为周中的第一天

%M 月名（J a n u a r y, February, , December）

%b 缩写的月名（ J a n u a r y, February, , December）

%m 两位数字表示的月份（ 01, 02, , 12）

%c 数字表示的月份（ 1, 2, , 12）

%Y 四位数字表示的年份

%y 两位数字表示的年份

%% 直接值“%”

select date_format(日期字段,’%Y-%m-%d’) as ‘日期’ from test

python中的时间模块主要有time, datetime。

I, time模块

time模块中包含了四种时间格式：

float格式，即给定时间相对于epoch增加的秒数

tuple格式，一个九元组 (tm_year, tm_mon, tm_mday, tm_hour, tm_min, tm_sec, tm_wday, tm_yday, tm_isdst)

string格式，'Mon Feb 6 15:00:06 2012'

format格式，以指定的格式生成的时间

针对这几种时间格式，time模块提供了函数在格式之间相互转换。

asctime(tuple) ->string

ctime(float) ->string

gmtime(float) ->tuple

localtime(float) ->tuple

mktime(tuple) ->float

strftime(format, tuple) ->format string

strptime(formatstring, format) ->tuple

time() -> float

上述函数中，除了time()函数直接返回当前时间相对于epoch的秒数外，其他函数都要求有时间的输入，如果没有输入，则默认使用当前时间。

另外，strftime和strptime中的format使用下面的格式：

%a 英文星期简写

%A 英文星期的完全

%b 英文月份的简写

%B 英文月份的完全

%c 显示本地日期时间

%d 日期，取1-31

%H 小时， 0-23

%I 小时， 0-12

%m 月， 01 -12

%M 分钟，1-59

%j 年中当天的天数

%w 显示今天是星期几

%W 第几周

%x 当天日期

%X 本地的当天时间

%y 年份 00-99间

%Y 年份的完整拼写

%S 秒（00-59）

除了上述的时间转换函数之外，模块还提供了下面的函数：

clock() 返回进程的创建时间，以秒计数的float

sleep(float) sleep一段时间，以秒计数

tzset() 更改时区

II， datetime

datetime模块定义了下面这几个类：

datetimedate：表示日期的类。常用的属性有year, month, day；datetimetime：表示时间的类。常用的属性有hour, minute, second, microsecond；datetimedatetime：表示日期时间。datetimetimedelta：表示时间间隔，即两个时间点之间的长度。datetimetzinfo：与时区有关的相关信息。（这里不详细充分讨论该类，感兴趣的童鞋可以参考python手册）

注 ：上面这些类型的对象都是不可变（immutable）的。

下面详细介绍这些类的使用方式。

date类

date类表示一个日期。日期由年、月、日组成（地球人都知道~~）。date类的构造函数如下：

class datetimedate(year, month, day)：参数的意义就不多作解释了，只是有几点要注意一下：

year的范围是[MINYEAR, MAXYEAR]，即[1, 9999]；month的范围是[1, 12]。（月份是从1开始的，不是从0开始的~_~）；day的最大值根据给定的year, month参数来决定。例如闰年2月份有29天；

date类定义了一些常用的类方法与类属性，方便我们 *** 作：

datemax、datemin：date对象所能表示的最大、最小日期；dateresolution：date对象表示日期的最小单位。这里是天。datetoday()：返回一个表示当前本地日期的date对象；datefromtimestamp(timestamp)：根据给定的时间戮，返回一个date对象；datetimefromordinal(ordinal)：将Gregorian日历时间转换为date对象；（Gregorian Calendar ：一种日历表示方法，类似于我国的农历，西方国家使用比较多，此处不详细展开讨论。）

加入计时器 timer1  和一个textbox

窗体里加入以下代码：

Private Sub Form_Load()

Text1Text = Now

Timer1Enabled = True

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1Text = Now

End Sub

如果你只想显示日期，则把Text1Text = Now 改为：Text1Text = date

如果你只想显示时间，则把Text1Text = Now 改为：

Text1Text = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)

扩展资料：

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序  。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

参考资料：

以上就是关于如何把Access里的时间格式2010-9-5读取出来为2010-09-05的格式！全部的内容，包括:如何把Access里的时间格式2010-9-5读取出来为2010-09-05的格式！、哪位大神能用VB的format函数打印出如下效果的当前时间、请问下面的函数如何转换成yyyy年-mm月-dd日 hh时:nn分:ss秒.zzz毫秒等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！