Access俱乐部
·&&&&·&&&&·&&&&·&&&&
您的位置：　 > >
将系统日期自动改为YYYY.MM.DD的代码
来源:&&点击数:3614&&评论数:0　&|&&|&
时　间: 09:30:31
作　者:&&&ID：31&&城市：广州
摘　要:将系统日期自动改为YYYY.MM.DD的代码
Option Compare Database
Option Explicit
Public Declare Function GetUserDefaultLCID Lib &kernel32& () As Long
Public Declare Function GetLocaleInfo Lib &kernel32& Alias &GetLocaleInfoA& (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Public Declare Function SetLocaleInfo Lib &kernel32& Alias &SetLocaleInfoA& (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
'设置短日期格式
Public Const LOCALE_SSHORTDATE = &H1F
Public Const LOCALE_SDATE = &H1D
'下面的过程可以帮你达到目的
Sub setshortdate()
&&& Dim llocal As Long
&&& Dim sa&&&& As String
&&& Dim lOk&&& As Long
&&& Dim setlocalinfo As Variant
&&& On Error GoTo ErrShow
&&& sa = Space(20)
&&& llocal = GetUserDefaultLCID()
&&& lOk = GetLocaleInfo(llocal, LOCALE_SSHORTDATE, ByVal sa, 20)
&&& If Trim(sa) && &yyyy-MM-dd& Then
&&&&&&& MsgBox &您的系统日期不是(YYYY-MM-DD)格式,点击确定,自动更改格式&
&&&&&&& 'If MsgBox(&您的系统日期不是(YYYY-MM-DD)格式，强烈建议您将它修改成该格式,& & Chr(10) _
&&&&&&&& & &否则软件可能会出现运行障碍！& _
&&&&&&&& & Chr(10) & Chr(10) & &点击'是'将自动为您修改。&, vbQuestion + vbYesNo, &忠告&) = vbYes Then
&&&&&&& sa = &yyyy-MM-dd&
&&&&&&& llocal = GetUserDefaultLCID()
&&&&&&& SetLocaleInfo llocal, LOCALE_SSHORTDATE, ByVal sa
&&&&&&& 'End If
&&& End If
&&& sa = Space(2)
&&& lOk = GetLocaleInfo(llocal, LOCALE_SDATE, ByVal sa, 2)
&&& If Trim(sa) && &-& Then
&&&&&&& sa = &-&
&&&&&&& lOk = SetLocaleInfo(llocal, LOCALE_SDATE, ByVal sa)
&&& End If
&&& setlocalinfo = True
&&& Exit Sub
&&& MsgBox &系统日期不能自动设置为（）的格式& & vbCrLf & &请用手工先把系统日期改为如（）的格式，再运行本系统！&
　　　　　　
&&&&【&&】&&&&【&&】&&&&【&&】&&&&【&&】&&&&【&&】
Access网店
价格：￥400 元
价格：￥50 元
价格：￥100 元
(10-28 21:09)
(10-28 11:37)
(10-28 10:53)
(10-27 18:31)
(10-27 12:14)
(10-27 11:22)
(10-26 22:36)
(10-26 21:46)
(10-26 18:17)
(10-26 11:36)
Access软件网 版权所有 CopyRight
提供支持 本站特聘法律顾问: 李慧 律师必帮美女图片PHP小偷程序 2.1 修改版
相关合集：
相关热搜：
华军软件园为小伙伴们整理合集了关于改图软件的专区，随着智能手机越来越强大，人们开始习惯把一切事物都往手机上搬，每次拍完照之后，看着没有修饰照片，没有勇气发出去？别怕小编这里为大家挑选了一些优质的图片处理软件，喜欢的小伙伴们快来本站下载应用吧！...
高速下载地址
联通下载地址
电信下载地址
移动及其他下载地址
(您的评论需要经过审核才能显示)
越更新越好用了，之前有些功能我都找不到，现在的必帮美女图片PHP小偷程序太令我惊喜了
爱死华军软件园了！我好久都没找到这个必帮美女图片PHP小偷程序，在这里居然发现它了
ASP源码里我极力推荐这个必帮美女图片PHP小偷程序，本人真实使用感受告诉你不会错的
试了一下这个必帮美女图片PHP小偷程序，感觉还行，在ASP源码里算很好用的了
必帮美女图片PHP小偷程序哪里不好了？不懂的别瞎哔哔，一点素质都没有
必帮美女图片PHP小偷程序的评论不应该这么冷清啊，我来加把力
感觉比必帮美女图片PHP小偷程序上一个版本好用,简体中文版免费软件
必帮美女图片PHP小偷程序有没有破解版的啊，有的朋友麻烦推荐一下
好极了，这个必帮美女图片PHP小偷程序是我用过最好的ASP源码了
必帮美女图片PHP小偷程序在同类软件里，体积已经非常小巧了，才0.1MB
热门关键词变态修改之（一行代码修改支持&MM&放生命之光&传说中的妹子爆血！）
大家可以去试下效果
*(BYTE*)(0x004DAC09)=0xEB;
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。