请教大侠们,android 如何系统日期和时间的变化?
Private Const ERROR_ACCESS_DENIED = 8先在manifest里面注册一个广播接受者
android获取当前时间 android获取当前进程名
android获取当前时间 android获取当前进程名
SystemClock.setCurrentTimeMillis(millTime);
RegCloseKey (hKey)
@Override
public void onReceive(Context context, Intent intent) {
}}
android 怎么从时间字符串中取出月和日
这里有三个TextClock需要解析的日期字符串
DateString
sValue = vValuedateStr
="2015-09-27
12:15:31";
mm,小写,表示分钟,ss表示秒
SimpleDateFormat
format
SimpleDateFormat("yyyy-MM-dd
HH:mm:ss");
try
{//
用parse方法,可能会异常,所以要try-catch
date
=format.parse(dateStr);
获取日期实例
Calendar
calendar
=Calendar.getInstance();
将日历设置为指定的时间
calendar.setTime(date);
获取年
year
=calendar.get(Calendar.YEAR);
这里要注意,月份是从0开始。
month
=calendar.get(Calendar.MONTH);
day
=calendar.get(Calendar.DAY_OF_MONTH);
}catch
(ParseException
e)
{e.printStackTrace();
}
Android TextClock时间格式
public class Receiver extends BroadcastReceiver {注::EEEE :是星期的
Case REG_SZ:1.format12Hour :当设备是12小时制时的显示格式
3.timeZone :指定时区,与当前设备的时区比较之后,显示指定时区的时间
当前时区就是上海的时区,所以1跟2是一样的,3是东京时间如何使Android应用程序获取系统权限来修改系统时间,比时间快一个小时,
效果图如下:
在android sqlite中 存储时间用current_timestamp与时间8个时间,请问如何写才是正确时间
Dim lRetVal As Long一般sqlite存时间要么是直接存string型 要么是long型,主要看你对时间类int型的作是否复杂,如果只是展示,就存String,如果需要进行时间比较、取时间段内数据等查询作,就存long~
SetKeyValue HKEY_CURRENT_USER, "Softwarejilu", "off", "0", REG_SZandroid使用sqlite存储一个时间,字段为datetime,怎么取得年、月、日啊?
SetKeyValue HKEY_CURRENT_USER, "Softwarejilu", "on", "1", REG_SZ存储时间的时候存long型,就是date.getTime();的值,然后取出来之后再用Date d = new Date(time);回复就好了,而如果你存储的时候如果是类似“2014-07-09 12:23:66”这样的字符串,那个你就需要使用dateFormatter,我习惯用SimpleDateFormatter,然后初始化的时候就用"yyyy-MM-dd hh:mm:ss"来作为格式化字符串,你可以百度下android SimpleDateFormatter
可以//直接存成字符串啊android开发 怎么把秒转换成时间
Private Declare Function RegQueryValueExString Lib "aapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long直接传入毫秒数作为参数,给Date对象就可以得到普通的时间了,然后通过getHours,getFullYear等方法获取年月日,Dim hKey As Long时分秒:
Date newTime = new Date(“传入毫秒”); //就得到普通的时间了
int hour = newTi获取天me.getHours();//就得到了小时
android sqlite 怎么写入存储时间
手机设置,时间与日期里这个比较简单
Log.d("ok", "broadcast!");SimpleDateFormat formatter = new SimpleDateFormat ("yyyy-MM-dd");
ContentValues values1 = new ContentValues();Date curDate = new Date(System.currentTimeMillis());//获取当前时间
String str = formatter.format(curDate);
这样str里就是年月日字符型记录
db.execSQL("create table date(date1 varchar(20)");
DatabaseHelper dbHelper1 = new DatabaseHelper(MainActivity.this,"date",null,1);
SQLiteDatabase db1 = dbHelper2.getReadableDatabase();
values1.put("date1",str);//将str内容存入date1中
db1.insert("date", null, values1);//把values1内容加入数据库
db1.close();//关闭数据库
存放数据就完成了
安卓手机上的时间怎么调啊?
定义=new一个数据库vivo手机可进入设置--系统管理/更多设置--日期与时间,可打开自动设置,联网后会自动对时。也可以关闭自动设置然后在代码中实现你的逻辑:,设置时间,手动输入时间和日期。
怎样设置安卓手机时间
lRetVal = QueryValueEx(hKey, sValueName, vValue)vivo手机时间设置:进入手机设置--系统管理/更多设置--日期与时间,可打开自动设置,联网后会自动对时,也可以关闭自动设置,设置时间,手动输入时间和日期。
手机会通过网络获得正确的时间,并根据您所在的时区来更新时间。If App.PrevInstance = True Then如果您使用的是华为手机, 以华为Mate 30手机为例:
您可以根据需要,手动调整日期、时间、End Function时区。
进入设置 > 系统和更新 > 日期和时间,按需设置。
1、修改时区
开启自动设置开关,手机将与当前网络上的时区同步。
关闭自动设置开关您可以手动修改时区。
2、自动获取或手动设置日期和时间
开启自动设置开关,手机将与当前网络上的时间同步。
或关闭自动设置开关手动调整日期和时间。
3、设置 12 小时制或 24 小时制
开启24小时制开关,时间将以 24 小时格式显示。
关闭24小时制开关,时间将以 12 小时格式显示。
Android:怎样在代码中获得平板的开关机时间?
在 android 的API中有提供 SystemClock.setCurrentTimeMillis()函数来修改系统时间,可惜无论你怎么调用这个函数都是没用的,无论模拟器还是真机,在logcat中总会得到"Unable to open alarm driver: Permission denied ".这个函数需要root权限或者运行与系统进程中才可以用。 本来以为就没有办法在应用程序这一层改系统时间了,后来在网上搜了好久,知道这个目的还是可以达到的。 个方法简单点,不过需要在Android系统源码的环境下用make来编译: 1. 在应用程序的AndroidManifest.xml中的manifest中加入 "android:sharedUserId="android.uid."这个属性。 2. 修改Android.mk文件,加入LOCAL_CERTIFICATE := platform这一行 3. 使用mm命令来编译,生成的apk就有修改系统时间的权限了。 第二个方法麻烦点,不过不用开虚拟机跑到源码环境下用make来编译: 1. 同上,加入"android:sharedUserId="android.uid."这个属性。 2. 使用eclipse编译出apk文件,但是这个apk文件是不能用的。 3. 用压缩软件打开apk文件,删掉META-INF目录下的CERT.SF和CERT.RSA两个文件。 4. 使用目标系统的platform密钥来重新给apk文件签名。这步比较麻烦, 首先找到密钥文件,在我的Android源码目录中的位置是"build argetproductsecurity",下面的platform.pk8和platform.x509.pem两个文件。 然后用Android提供的Signapk工具来签名,signapk的源代码是在"build oolssignapk"下,用法为"signapk platform.x509.pem platform.pk8 input.apk output.apk",文件名使用路径防止找不到,也可以修改源代码直接使用。这样得到的apk和个方法是一样的。 解释一下原理,首先加入android:sharedUserId="android.uid."这个属性。通过Shared User id,拥有同一个User id的多个APK可以配置成运行在同一个进程中。那么把程序的UID配成android.uid.,也就是要让程序运行在系统进程中,这样就有权限来修改系统时间了。 只是加入UID还不够,如果这时候安装APK的话发现无法安装,提示签名不符,原因是程序想要运行在系统进程中还要有目标系统的platform key,就是上面第二个方法提到的platform.pk8和platform.x509.pem两个文件。用这两个key签名后apk才真正可以放入系统进程中。个方法中加入LOCAL_CERTIFICATE := platform其实就是用这两个key来签名。 这也有一个问题,就是这样生成的程序只有在原始的Android系统或者是自己编译的系统中才可以用,因为这样的系统才可以拿到 platform.pk8和platform.x509.pem两个文件。要是别家公司做的Android上连安装都安装不了。试试原始的Android 中的key来签名,程序在模拟器上运行OK,不过放到G3上安装直接提示"Package ... has no signatures that match those in shared user android.uid.",这样也是保护了系统的安全。这个代码分为三个功能,一是让程序随系统自启动、二是在关机时(即退出本程序时)记录关机时间、三是本程序启动时显示前三次的关机时间。
一:让程序随系统自启动应该就不用说了吧,简单
二:关机记录时间可以在本程序的unload模块中写下记录过程,即 时间变量=time 即可,当然还要同时保存到某个文件或注册表的三个固定容器中,保存时注意三个位置的替换即可(删除个时间、将第二个移到个、第三个移到第二个、将本次记录的时间写到第三个位置)。
三:启动程序显示前三次关机时间也非常简单,显示时就将三个显示控件的caption等于上面第二条的这三个时间即可。
明白了吗,你这个代码实现起来确是非常简单的,一点都不难哦。
代码如下,自己注意安排控件哦【在默认form1窗体上加载Label1(0)、Label1(1)、Label1(2)、text1(0)、text1(1)、text1(2)、text2 、timer1 】
Dim a As String, b As String, c As String
Private Const REG_SZ As Long = 1
Private Const REG_DWORD As Long = 4
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch)= &H80000002
Private Const HKEY_USERS = &H80000003
Private Const ERROR_NONE = 0
Private Const ERROR_BADDB = 1
Private Const ERROR_BADKEY = 2
Private Const ERROR_CANTOPEN = 3
Private Const ERROR_CANTREAD = 4
Private Const ERROR_CANTWRITE = 5
Private Const ERROR_OUTOFMEMORY = 6
Private Const ERROR_INVALID_PARAMETER = 7
Private Const ERROR_INVALID_PARAMETERS = 87
Private Const ERROR_NO_MORE_ITEMS = 259
Private Const KEY_ALL_ACCESS = &H3F
Private Const REG_OPTION_NON_VOLATILE = 0
Private Declare Function RegCloseKey Lib "aapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKeyEx Lib "aapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisition As Long) As Long
Private Declare Function RegOpenKeyEx Lib "aapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueExLong Lib "aapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Private Declare Function RegQueryValueExNULL Lib "aapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Private Declare Function RegSetValueExString Lib "aapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Private Declare Function RegSetValueExLong Lib "aapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Private Declare Function RegDeleteKey& Lib "aapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
Private Declare Function RegDeleteValue& Lib "aapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)
Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As Long
Dim lValue As Long
Dim sValue As String
Select Case lType
Case REG_SZ
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue) 2)
Case REG_DWORD
lValue = vValue
SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)
End Select
Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long
Dim cch As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String
On Error GoTo QueryValueExError
lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
If lrc <> ERROR_NONE Then Error 5
Select Case lType
sValue = String(cch, 0)
If lrc = ERROR_NONE Then
vValue = Left(sValue, cch - 1)
Else
vValue = Empty
End If
Case REG_DWORD:
lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, cch)
If lrc = ERROR_NONE Then vValue = lValue
Case Else
End Select
QueryValueExExit:
Exit Function
QueryValueExError:
Resume QueryValueExExit
Private Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)
Dim hNewKey As Long
lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
RegCloseKey (hNewKey)
Private Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
Private Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
Dim vValue As Variant
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
QueryValue = vValue
Private Sub Form_Load()
SetKeyValue HKEY_LOCAL_MACHINE, "softwaremicrosoftwindowscurrentversionrun", "jilu", App.Path & App.EXEName & ".exe", REG_SZ
Text2.Visible = False
If QueryValue(HKEY_CURRENT_USER, "Softwarejilu", "on") = "" Then
Text2.Visible = True
End If
End
End If
If QueryValue(HKEY_CURRENT_USER, "Softwarejilu", "2") <> "" Then b = QueryValue(HKEY_CURRENT_USER, "Softwarejilu", "2") Else b = "没有记录"
If QueryValue(HKEY_CURRENT_USER, "Softwarejilu", "3") <> "" Then c = QueryValue(HKEY_CURRENT_USER, "Softwarejilu", "3") Else c = "没有记录"
Text1(0).Text = a: Text1(1).Text = b: Text1(2).Text = c
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SetKeyValue HKEY_CURRENT_USER, "Softwarejilu", "off", "1", REG_SZ
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim d As String, x As String, y As String
d = CStr(Now())
If QueryValue(HKEY_CURRENT_USER, "Softwarejilu", "2") <> "" Then x = QueryValue(HKEY_CURRENT_USER, "Softwarejilu", "2") Else x = "没有记录"
If QueryValue(HKEY_CURRENT_USER, "Softwarejilu", "3") <> "" Then y = QueryValue(HKEY_CURRENT_USER, "Softwarejilu", "3") Else y = "没有记录"
SetKeyValue HKEY_CURRENT_USER, "Softwarejilu", "1", x, REG_SZ
SetKeyValue HKEY_CURRENT_USER, "Softwarejilu", "2", y, REG_SZ
SetKeyValue HKEY_CURRENT_USER, "Softwarejilu", "3", d, REG_SZ
End Sub
Private Sub Timer1_Timer()
If QuCancel = 1: Me.HideeryValue(HKEY_CURRENT_USER, "Softwarejilu", "off") = "0" Then Me.Show
End Sub