1.Delphi中提取系统时间的函数

2.求PC On&Off Time(系统运行时间统计) V3.1 绿色英文版网盘

3.C# 如何写代码提取电脑开机时间

4.VB编程求助:制作一个提取系统时间并正确走时的时钟

5.c++ 提取系统时间 问题

Delphi中提取系统时间的函数

windows获取时间-提取电脑系统时间

一般用Now函数

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption := TimeToStr(Now); //时间

Label2.Caption := DateToStr(Now); //日期

Label3.Caption := DateTimeToStr(Now); //日期+时间

end;

其他一些有用的时间函数

use DateUtils;(此单元里有许多关于时间的函数)。我今天就只看了这么多了,还有许多读自己去看吧。

里面有太多的关于时间的函数了,如:输入一个时间,可以提取date或time部分,此月有多少天,比较两个时间的’大小’,…..自己看帮助。

function CompareDate(const A, B: TDateTime): TValueRelationship;比较A,B日期哪个时间先发生?还是同时发生?

function CompareDateTime(const A, B: TDateTime): TValueRelationship

function DaysBetween(const ANow, AThen: TDateTime): Integer;两时间相隔多少天?

function DaysInAMonth(const AYear, AMonth: Word): Word;某年某月有多少天

function DaysInAYear(const AYear: Word): Word;某年有多少天。

function DaysInMonth(const AValue: TDateTime): Word;某月有多少天

procedure DecodeDateMonthWeek(const AValue: TDateTime; out AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);对应out参数:哪年,哪月,此月的第几周,是周几。

function EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;输入某年,此年第几天,out得到此天日期。

DayOfWeek(TDateTime)某个时间是星期几?

DayOfTheYear(TDateTime)一年的第几天。

function DayOfTheMonth(const AValue: TDateTime): Word;第几天of the Month.

function DateOf(const AValue: TDateTime): TDateTime;提取时间部分

这个方法可以完成你的要求。用法可见帮助示例。

procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay,

AHour, AMinute, ASecond, AMilliSecond: Word); (注它必须引用DateUtils单元);

它把时间的各个部分都分离出来了。与之对应的函数为:

function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime;

function IncMinute (const AValue: TDateTime; const ANumberOfMinute: Int64 = 1): TDateTime;

例:IncMinute(now,N);增加N分钟在NOW的基础上。可以为负。

求PC On&Off Time(系统运行时间统计) V3.1 绿色英文版网盘

链接:

提取码:ryfs?

软件名称:PCOn&OffTime(系统运行时间统计)V3.1绿色英文版

语言:简体中文

大小:347.35KB

类别:系统工具

介绍:PCOn/OffTime是款简单实用的电脑系统运行时间统计工具,它可以帮助用户记录下电脑系统或者虚拟机系统的运行时间,能够告诉你3周内电脑开关机的时间,并且你无需天天开着它进行统计,因为运行后立刻能够看到,软件界面简洁,操作简单,非常方便。

C# 如何写代码提取电脑开机时间

private void button1_Click(object sender, EventArgs e)

{

int hm = System.Environment.TickCount;

double h = hm / 3600000.0;

double m =double.Parse("0."+h.ToString("F6").Substring(h.ToString().IndexOf(".")+1))*60;

double s = double.Parse("0." + m.ToString("F6").Substring(m.ToString().IndexOf(".") + 1)) * 60;

string h1 = ((int)h).ToString();

string m1 = ((int)m).ToString();

string s1 = ((int)s).ToString();

if ((int)h < 10) h1 = "0"+h1;

if ((int)m < 10) m1 = "0"+m1;

if ((int)s < 10) s1 = "0"+s1;

string nowtime = DateTime.Now.TimeOfDay.ToString().Substring(0,8);

string span = h1 + ":" + m1 + ":" + s1;

TimeSpan spantime = Convert.ToDateTime(nowtime).Suract(Convert.ToDateTime(span));

MessageBox.Show("您的开机时间是: "+spantime.ToString());

}

给分吧,用了我一个多小时才写出来,嘿嘿

VB编程求助:制作一个提取系统时间并正确走时的时钟

Private

Sub

Timer1_Timer()

miao

=

Second(Time)

+

1

miao

=

61

-

miao

fen

=

Minute(Time)

fen

=

60

-

fen

shi

=

Hour(Time)

If

shi

>=

12

Then

shi

=

shi

-

12

'因为一天之内时针要走二十四个钟头,也就是要走两圈,所以将下午和晚上的时间减去十二,就可以确定时针准确的位置

shi

=

(12

-

shi

-

(1

-

fen

/

59))

*

5

Cls

Dim

a

a

=

Form1.ScaleHeight

/

2

Form1.Width

=

Form1.ScaleHeight

+

150

'画刻度

Form1.Circle

(Form1.ScaleHeight

/

2,

a),

a

-

a

*

0.02

Form1.Circle

(Form1.ScaleHeight

/

2,

a),

a

*

0.03

Dim

x

As

Double

Dim

y

As

Double

For

i

=

0

To

60

x

=

(1

-

Sin(i

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.05)

+

a

*

0.05

y

=

(1

-

Cos(i

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.05)

+

a

*

0.05

X1

=

(1

-

Sin(i

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.07)

+

a

*

0.07

Y1

=

(1

-

Cos(i

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.07)

+

a

*

0.07

Line

(x,

y)-(X1,

Y1),

QBColor(3)

Next

i

For

i

=

0

To

11

x

=

(1

-

Sin(i

/

12

*

2

*

3.1415926))

*

(a

-

a

*

0.05)

+

a

*

0.05

y

=

(1

-

Cos(i

/

12

*

2

*

3.1415926))

*

(a

-

a

*

0.05)

+

a

*

0.05

X1

=

(1

-

Sin(i

/

12

*

2

*

3.1415926))

*

(a

-

a

*

0.1)

+

a

*

0.1

Y1

=

(1

-

Cos(i

/

12

*

2

*

3.1415926))

*

(a

-

a

*

0.1)

+

a

*

0.1

Line

(x,

y)-(X1,

Y1),

QBColor(1)

Next

i

'画秒针的线

x

=

(1

-

Sin(miao

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.1)

+

a

*

0.1

y

=

(1

-

Cos(miao

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.1)

+

a

*

0.1

Line

(a,

a)-(x,

y),

QBColor(12)

'画介针的线

x

=

(1

-

Sin(fen

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.2)

+

a

*

0.2

y

=

(1

-

Cos(fen

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.2)

+

a

*

0.2

Line

(a,

a)-(x,

y),

QBColor(5)

'画时针的线

x

=

(1

-

Sin((shi)

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.3)

+

a

*

0.3

y

=

(1

-

Cos((shi)

/

60

*

2

*

3.1415926))

*

(a

-

a

*

0.3)

+

a

*

0.3

Line

(a,

a)-(x,

y),

QBColor(6)

End

Sub

这是写给你的代码,添加个时钟控件,设置好Interval,把代码粘贴进去就可以了。

c++ 提取系统时间 问题

asctime()将参数timeptr所指的tm结构中的信息转换成真实世界所使用的时间日期表示方法,然后将结果以字符串形态返回。此函数已经由时区转换成当地时间,字符串格式为:"Wed Jan 30 21:49:08 1993\n"(这个格式看你当地的设置)

就是说函数将timeptr变成char后,里面存的东西有一定格式。然后你再处理进行字符串解析。你可以通过debug把asctime()返回的char[23]看看里面各是什么值,看了就知道为什么要那么操作了。23不是24小时,是返回的char长度。4 5 6分别是数组下标,通过下标获取每个位置代表的东西。那个公式你看了char[23]里的东西后看看第8 9位置分别表示的什么。而且这不叫公式,别人的代码处理而已。自己设计的,这里应该是判断年份。J很明显是一月的意思。Jan是一月份的简称。他截取出那个表示月份的字符,然后进行比较,判断是几月。而4位置是J,5位置是a,表示一月(January),4是J,5是u,6是n,则表示June六月(June),如果不是,就只可能是七月Jul(July)。此外,5月May,3月March也要额外判断。4月April和八月August要一起判断,其他的2月February,9 September,10 October,11 November,12 December,直接判断第一个字母。

天啊。累死我了。经常听过加悬赏。 从没见过。