Access日期与时间函数汇总

今天在开发系统的时候,需要实现这样一个功能

根据选中的日期,查询相关的内容,但不是按照整个日期去过滤,而是根据,年,月,日拆分的形式去过滤,比如2013年的,2月份的

在sqlserver中,我们可以可以直接根据datePart去完成即可

select * from pays where 1=1 and datepart(year, pdate)=2013 and datepart(month, pdate)=2 and datepart(day, pdate)=26 order by pdate

但是在access中却通不过,因为方法有些不一样,需要这样写

select * from pays where 1=1 and datepart("yyyy", pdate)=2013 and datepart("m", pdate)=2 and datepart('d', pdate)=21 order by pdate

关于sqlserver的函数在前面说到了,现在把access的日期函数总结一下

如何将文本型:2003.08.04 转换为日期型:2003-08-04
cdate(replace("2003.08.04",".","-"))

显示当前日期在该年中所处的星期号
=Format(Now(), "ww")

ww 为 1 到 53。

显示日期字段值的四位年份值。
=DatePart("yyyy", [订购日期])

显示日期字段值前 10 天的日期值。
=DateAdd("y", -10, [应付日期])

显示日期字段值前一个月的日期值。
=DateAdd("m",-1,Date())

显示日期1和日期2之间相差的天数。
=DateDiff("d", [订购日期], [发货日期])

从今天算起到三个月后的日期之间的记录。
Betweeb date() and adddate(3,date())

根据出生日期计算年龄(周岁)
=IIf(Month(Date())-Month([出生年月日])>-1,Year(Date())-Year([出生年月日]),Year(Date())-Year([出生年月日])-1)

自定义日期/时间格式 (Format 函数)
(:)  时间分隔符。在一些区域,可能用其他符号来当时间分隔符。格式化时间值时,时间分隔符可以分隔时、分、秒。时间分隔符的真正字符在格式输出时取决于系统的设置。

(/) 日期分隔符。在一些区域,可能用其他符号来当日期分隔符。格式化日期数值时,日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式输出时取决于系统设置。

C  以 ddddd 来显示日期并且以 ttttt 来显示时间。如果想显示的数值无小数部分,则只显示日期部分,如果想显示的数值无整数部分,则只显示时间部分。

D

以没有前导零的数字来显示日 (1 – 31)。

Dd

以有前导零的数字来显示日 (01 – 31)。

ddd

以简写来表示日 (Sun –Sat)。

dddd

以全称来表示日 (Sunday –Saturday)。

ddddd

以完整日期表示法显示(包括年、月、日),日期的显示要依系统的短日期格式设置而定。缺省的短日期格式为 m/d/yy。

dddddd

以完整日期表示法显示日期系列数(包括年、月、日),日期的显示要依系统识别的长日期格式而定。缺省的长日期格式为 mmmm dd, yyyy。

aaaa

与dddd 一样,它只是该字符串的本地化版本。

W

将一周中的日期以数值表示(1 表星期日~ 7表星期六)。

ww

将一年中的星期以数值表示 (1 – 54)。

M

以没有前导零的数字来显示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之后,那么显示的将是分而不是月。

mm

以有前导零的数字来显示月 (01 – 12)。如果m是直接跟在h或hh之后,那么显示的将是分而不是月。

mmm

以简写来表示月 (Jan –Dec)。

mmmm

以全称来表示月 (January –December)。

oooo

与mmmm一样,它只是该字符串的本地化版本。

Q

将一年中的季以数值表示 (1 – 4)。

Y

将一年中的日以数值表示 (1 – 366)。

Yy

以两位数来表示年 (00 – 99)。

yyyy

以四位数来表示年 (00 – 99)。

H

以没有前导零的数字来显示小时 (0 – 23)。

Hh

以有前导零的数字来显示小时 (00– 23)。

N

以没有前导零的数字来显示分 (0 – 59)。

Nn

以有前导零的数字来显示分 (00 – 59)。

S

以没有前导零的数字来显示秒 (0 – 59)。

Ss

以有前导零的数字来显示秒 (00 – 59)。

t t t t t

以完整时间表示法显示(包括时、分、秒),用系统识别的时间格式定义的时间分隔符进行格式化。如果选择有前导零并且时间是在 10:00 A.M. 或 P.M.之前,那么将显示有前导零的时间。缺省的时间格式为 h:mm:ss。

AM/PM

在中午前以 12 小时配合大写 AM 符号来使用;在中午和 11:59 P.M.间以 12 小时配合大写 PM 来使用。

Am/pm

在中午前以 12 小时配合小写 am 符号来使用;在中午和 11:59 P.M.间以 12 小时配合小写 pm 来使用。

A/P

在中午前以 12 小时配合大写A符号来使用;在中午和 11:59 P.M.间以12 小时配合大写P来使用。

a/p

在中午前以 12 小时配合小写a符号来使用;在中午和 11:59 P.M.间以 12 小时配合小写p来使用。

AMPM

在中午前以 12 小时配合系统设置的 AM字符串文字来使用;在中午和 11:59 P.M. 间以 12 小时配合系统设置的 PM 字符串文字来使用。AMPM 可以是大写或小写,但必须和您的系统设置相配。其缺省格式为 AM/PM。

日期函数示例
当天日期:=Date()

当日:=Day(date)

当月:=Month(date())

当年:=Year(date())

当季:=DatePart("q",Date())

把日期大写
Function Date2Chinese(iDate)

Dim num(10)

Dim iYear

Dim iMonth

Dim iDay

num(0) = "〇"

num(1) = "一"

num(2) = "二"

num(3) = "三"

num(4) = "四"

num(5) = "五"

num(6) = "六"

num(7) = "七"

num(8) = "八"

num(9) = "九"

iYear = Year(iDate)

iMonth = Month(iDate)

iDay = Day(iDate)

Date2Chinese = num(iYear \ 1000) + _

num((iYear \ 100) Mod 10) + num((iYear \ 10) Mod 10) + num(iYear Mod 10) + "年"

If iMonth >= 10 Then

If iMonth = 10 Then

Date2Chinese = Date2Chinese +"十" + "月"

Else

Date2Chinese = Date2Chinese +"十" + num(iMonth Mod 10) + "月"

End If

Else

Date2Chinese = Date2Chinese +num(iMonth Mod 10) + "月"

End If

If iDay >= 10 Then

If iDay = 10 Then

Date2Chinese = Date2Chinese +"十" + "日"

ElseIf iDay = 20 Or iDay = 30 Then

Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" + "日"

ElseIf iDay > 20 Then

Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" + num(iDay Mod 10) + "日"

Else

Date2Chinese = Date2Chinese + "十" + num(iDay Mod 10) + "日"

End If

Else

Date2Chinese = Date2Chinese + num(iDay Mod 10) + "日"

End If

End Function

算出每个月的天数
一法:

Dim a, b, c

a = Year(Now())

b = Month(Now())

c = Format((a & "/" & b + 1 & "/1"), "######") - Format((a & "/" & b & "/1"), "######")

二法:

DateDiff("d", Format(Date, "yyyy-mm-01"), Format(DateAdd("m", -1, Date), "yyyy-mm-01"))

DateDiff可以算出两个日期之间相差几天!

三法:

Day(DateAdd("d", -1, Format(Date, "yyyy-mm-01")))

day函数可以知道某个日期是这个月的第几天,我们把这个月的最后一天拿出来DAY一下!应该还有更好的方法!比如说可以定义一个数组,把每个月的日子放进去,或者说写一个函数算每一个月的天数只要考虑一下闺年的问题就可以了!

如何得到某年每个月的第一天是星期几
Private Sub Command1_Click()

Dim i As Integer, A As Integer, B As Integer, C As String

A = InputBox("请输入年份", "某年每个月的第一天是星期几")

Form1.Cls

For i = 1 To 12

C = A & "-" & i & "-1"

B = Weekday(C)

Select Case B

Case vbSunday

Print A & "年" & i & "月1日是 星期日"

Case vbMonday

Print A & "年" & i & "月1日是 星期一"

Case vbTuesday

Print A & "年" & i & "月1日是 星期二"

Case vbWednesday

Print A & "年" & i & "月1日是 星期三"

Case vbThursday

Print A & "年" & i & "月1日是 星期四"

Case vbFriday

Print A & "年" & i & "月1日是 星期五"

Case vbSaturday

Print A & "年" & i & "月1日是 星期六"

End Select

Next i

End Sub

计算天数及月初月末日期
Function 本月天数(日期 As Date) As Byte

本月天数 = DateSerial(Year(日期), Month(日期) + 1, Day(日期)) - 日期

End Function

Function 月末(日期 As Date) As Date

月末 = DateSerial(Year(日期), Month(日期) + 1, 1) - 1

End Function

Function 月初(日期 As Date) As Date

月初 = 日期 - Day(日期) + 1

End Function

本月最后一日是周几
SELECT

Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1)) AS 本月最后一日是周几,

下月最后一日是周几
SELECT

Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1)) AS 下月最后一日是周几,

本月最后一个周5到月底的天数
SELECT

(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 本月最后一个周5到月底的天数;

下月最后一个周5到月底的天数
SELECT

(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 下月最后一个周5到月底的天数;

本月最后一个周5的日期
SELECT

DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 本月最后一个周5的日期;

下月最后一个周5的日期
SELECT

DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 下月最后一个周5的日期;

多思考,多创新,才是正道!

时间: 2013-02-23

PHP has encountered an Access Violation at XXXXXX 的解决方法

排错方法: 最好先查看系统日志文件,我们从日志中就可以发现很多问题. 我们就是因为数据库表出错,修复一下就可以了,重启下iis或重启下服务器试试. 有客户反映在美国VPS中出现该错误:PHP has encountered an Access Violation at * 根据错误提示,可以用以下办法解决: 1.重启IIS,重启VPS主机即可. 2.关闭eaccelerator扩展 找到php.ini 如果是我帮您配置的,一般在c:/windows/php.ini 去掉 zend_extensi

搭建小型access数据库实录

今天在确认实习生不能帮忙搭建数据库后,自己根据业务需求尝试搭了一个小型access数据库. 主要目的:储存历史月度数据,避免每次从公司数据库下载数据的麻烦,节省数据拉取时间. 搭建了以acct id为主键的两种数据. 1)客户信息,包括 由业务人员手工更新汇总的数据,如客户所在区域,商业信息等. 由机器抓取的客户信息,如客户账号状态,专属业务人员信息等等. 上述数据按照每月定期更新,以及每周更新,存储在不同的表里. 2)客户交易信息,计划包括: 汇总月度信息,如月成交额,交易量等: 分多个维度的

如何让access自动编号从1开始排序实现方法

方法一: 删个那个自动编号的字段,再建一个同样的自动编号字段即可. 方法二: 自动编号是一直增加的(每次都加1),你再增加一条记录它的编号会在前面的基础上加1(删除的也算),如果你编号为1的记录被删除了,你想再要从1开始,可以打开Access数据库,选择工具,再选择数据库实用工具,单击压缩和修复数据库,这样就OK了. 方法三:(没试过) 1.在access里新建一个查询. 2.把视图改为sql视图. 3.在里面输入 ALTER TABLE 表名 ALTER COLUMN [自动编号字段名] CO

Mssql,Access的sql经典SQL语句大全

下列语句部分是Mssql语句,不可以在access中使用. SQL分类: DDL-数据定义语言(CREATE,ALTER,DROP,DECLARE) DML-数据操纵语言(SELECT,DELETE,UPDATE,INSERT) DCL-数据控制语言(GRANT,REVOKE,COMMIT,ROLLBACK) 首先,简要介绍基础语句: 1.说明:创建 数据库 CREATE DATABASE database-name 2.说明:删除数据库 drop database dbname 3.说明:备份

win2008下IIS7、IIS7.5 配置ASP+ACCESS使用环境

一.IIS7的安装 Windows 中IIS7.IIS7.5是默认不安装的,所以在安装完Windows Vista/windows 7/windows 2008之后如果需要安装IIS7/iis7.5的话,就要自己动手了. 安装的步骤为:开始>控制面板>程序>打开或关闭Windows功能>Internet信息服务.IIS7安装时需要注意的是,如果需要ASP.ASP.NET等的支持,是需要把功能模块给装上的,默认是不安装的. IIS7安装完成之后可以在开始菜单的所有程序中看到"

ASP.NET 连接ACCESS数据库的简单方法

index.aspx 复制代码 代码如下: <%@ Page Language="C#" %><%@ import Namespace="System.Data" %><%@ import Namespace="System.Data.OleDb" %><script runat="server">    // Insert page code here    //    voi

Access数据库不能写不能更新的解决方法

Access数据库不能写,造成这种问题的原因是Web共享文件夹在NTFS分区里,而IUSR_***(Internet来宾帐户)没有足够权限.解决方法: 1.在文件夹选项里,将"使用简单文件共享"前的对勾去掉. 2.在Web共享文件夹属性里面的安全选项卡中点添加. 3.在选择用户或组的对话框中点高级. 4.点立即查找,随后在下面选择IUSR_***,确定. 5.返回文件夹属性,将IUSR_***权限设置为允许修改,写入 IIS不能读写数据库(ACCESS)问题原因主要是由于无法更新数据库

SQL查询语句通配符与ACCESS模糊查询like的解决方法

ACCESS的通配符和SQL SERVER的通配符比较===================================================ACCESS库的通配符为:*   与任何个数的字符匹配?   与任何单个字母的字符匹配 SQL Server中的通配符为:% 与任何个数的字符匹配_ 与单个字符匹配正文我今天在写个页面的时候,也很郁闷,表中明明有记录,但在ASP里就是搜索不到,理论的sql语句如下:Select * FROM t_food Where t_food.name

将ACCESS数据库迁移到SQLSERVER数据库两种方法(图文详解)

ACCESS2000文件 用ACCESS2007打开,并迁移到SQLSERVER2005里 打开ACCESS2007的数据库工具 方法一:使用ACCESS2007自带的数据库迁移工具 1.打开ACCESS2007的数据库迁移向导 2.点击SQLSERVER按钮,弹出升迁向导对话框 3.选择新建数据库 4.输入计算机名,我的本地计算机名字叫joe,因为SQLSERVER安装在本地,所以选择使用可信连接就可以了 数据库名称默认就可以了 5.选择所有表,移动到右边框 6.把表索引也一起升迁到SQLSE

.htaccess重定向和url重写详细介绍

什么是htaccess 概述来说,htaccess文件是Apache服务器中的一个配置文件,它负责相关目录下的网页配置.通过htaccess文件,可以帮我们实现:网页301重定向.自定义404错误页面.改变文件扩展名.允许/阻止特定的用户或者目录的访问.禁止目录列表.配置默认文档等功能. 一个简单的重定向 复制代码 代码如下: Redirect 301 ^old.html$ http://localhost/new.html 这是设置一个http状态码为301(永久移动)并把所有访问old.ht

ASP连接Access数据库的几种方法

1. 相对与比较老的环境,建议使用第二个 set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION") DBPath = Server.MapPath("customer.mdb") dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SQL="select * from auth

c#连接access数据库操作类分享

1.配置web.config文件:配置数据库连接参数(根据实际情况设置数据库路径和密码) 复制代码 代码如下: <configuration><appSettings/><connectionStrings><add name="ConnectionString" connectionString="PRovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\keleyi\App_Data\db.m

C#实现的ACCESS数据库操作类完整实例

本文实例讲述了C#实现的ACCESS数据库操作类.分享给大家供大家参考,具体如下: 这个是针对ACCESS数据库操作的类,同样也是从SQLHELPER提取而来,分页程序的调用可以参考MSSQL那个类的调用,差不多的,只是提取所有记录的数量的时候有多一个参数,这个需要注意一下! using System; using System.Text; using System.Collections; using System.Collections.Specialized; using System.D

php实现mysql数据库操作类分享

复制代码 代码如下: <?php/*数据库操作类*/class Mysql{ private $LocalHost = 'localhost'; private $LoaclUser = 'root'; private $LocalPass = '123456'; private $LocalBase = 'jiangxibaiyi'; private $LocalCode = 'UTF8'; private $PreFix; private $Conn; private $Start    

PHP实现的MongoDB数据库操作类分享

class HMongodb { private $mongo; //Mongodb连接 private $curr_db_name; private $curr_table_name; private $error; public function getInstance($mongo_server, $flag=array()) { static $mongodb_arr; if (empty($flag['tag'])) { $flag['tag'] = 'default'; } if (

Python SQLite3数据库操作类分享

接触Python时间也不是很长的,最近有个项目需要分析数据,于是选用Python为编程语言,除了语言特性外主要还是看重Python对于SQLite3数据库良好的支持能力了,因为需要灵活处理大量的中间数据. 刚开始一些模块我还乐此不疲的写SQL语句,后来渐渐厌倦了,回想到以前捣鼓C#的时候利用反射初步构建了个SQL查询构造器,直到发现linq,于是放弃了这个计划,当然微软后来又推出了Entity Framework,这些都是后话了,而且现在我对微软的东西兴趣不是很大的,好了,扯多了,下面继续正文.

Java基于jdbc连接mysql数据库操作示例

本文实例讲述了Java基于jdbc连接mysql数据库操作.分享给大家供大家参考,具体如下: import java.sql.Connection; import java.sql.DriverManager; import java.sql.ResultSet; import java.sql.SQLException; import java.sql.Statement; public class MySQLDemo { private Connection conn = null; pri

Python实现的连接mssql数据库操作示例

本文实例讲述了Python实现的连接mssql数据库操作.分享给大家供大家参考,具体如下: 1. 目标数据sql2008 R2 ComPrject=>TestModel 2. 安装python 连接mssql 模块 运行 pip install pymssql-2.2.0.dev0-cp36-cp36m-win_amd64.whl 运行完毕 查看是否成功 pip -m  list 3. 编写python 代码 import time import pymssql #import decimal

PHP使用pdo连接access数据库并循环显示数据操作示例

本文实例讲述了PHP使用pdo连接access数据库并循环显示数据操作.分享给大家供大家参考,具体如下: PDO连接与查询: try { $conn = new PDO("odbc:driver={microsoft access driver (*.mdb)}; dbq=".realpath("MyDatabase.mdb")) or die("链接错误!"); //echo "链接成功!"; } catch(PDOExce

ASP.NET数据库操作类实例

本文实例讲述了ASP.NET数据库操作类.分享给大家供大家参考,具体如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using Syst

php简单数据库操作类的封装

本文实例为大家分享了php封装一个简单的数据库操作类,供大家参考,具体内容如下 一.代码 <?php class ConnDB{ private $local; private $username; private $pwd; private $db; private $connID; private $code; public function __construct($local,$username,$pwd,$connID,$code,$db){ $this->local=$local;