如何画时钟？

nbzzh

http://club.excelhome.net/viewthread.php?tid=118032

snood

http://club.excelhome.net/viewFile.asp?Boardid=6&ID=61300

nbzzh

谢谢2楼，我是想具体如何作图？

[em04]

micky829

嘻嘻，这个偶知道。。

主要就是4个数据系列－－时针、分针、秒针、点数，都是折线散点图类型。

时针、分针和秒针这3个数据系列都只有两个数据点——起始点和终止点，起始点就是时钟的中心，可以将X和Y值都设置成0，至于终止点：

时针X=0.5*SIN((HOUR(NOW())+MINUTE(NOW())/60)*2*PI()/12)

时针Y=0.5*COS((HOUR(NOW())+MINUTE(NOW())/60)*2*PI()/12)

分针X=0.85*SIN(((MINUTE(NOW())+SECOND(NOW())/60))*2*PI()/60)

分针Y=0.85*COS(((MINUTE(NOW())+SECOND(NOW())/60))*2*PI()/60)

秒针X=SIN((SECOND(NOW()))*2*PI()/60)

秒针Y=COS((SECOND(NOW()))*2*PI()/60)

至于点数X和Y值也可以用简单的SIN和COS函数表示出来，最后的动态就用一个简单的刷新屏幕VBA来实现。

york888

以下是引用micky829在2005-8-25 18:02:35的发言：

嘻嘻，这个偶知道。。

主要就是4个数据系列－－时针、分针、秒针、点数，都是折线散点图类型。

时针、分针和秒针这3个数据系列都只有两个数据点——起始点和终止点，起始点就是时钟的中心，可以将X和Y值都设置成0，至于终止点：

时针X=0.5*SIN((HOUR(NOW())+MINUTE(NOW())/60)*2*PI()/12)

时针Y=0.5*COS((HOUR(NOW())+MINUTE(NOW())/60)*2*PI()/12)

分针X=0.85*SIN(((MINUTE(NOW())+SECOND(NOW())/60))*2*PI()/60)

分针Y=0.85*COS(((MINUTE(NOW())+SECOND(NOW())/60))*2*PI()/60)

秒针X=SIN((SECOND(NOW()))*2*PI()/60)

秒针Y=COS((SECOND(NOW()))*2*PI()/60)

至于点数X和Y值也可以用简单的SIN和COS函数表示出来，最后的动态就用一个简单的刷新屏幕VBA来实现。

学习了，不错很详细！能否一个实例上传， 这样不用在思考了！

micky829

偶做好了一个，不过动态效果没加，我也不大懂VBA。。

yBVhTheo.rar (17.2 KB, 下载次数: 284)

2005-8-26 08:07 上传

点击文件名下载附件
如何画时钟？

[此贴子已经被作者于2005-8-26 10:27:29编辑过]

winky516

哗，好神奇呀，要学会些什么功能才能做出这样的时钟？我可是新手excel应当有很多功能，很多技巧吧．

haibin_haina

收藏了，来到这里才知EXCEL还有很多功能，佩服呀

nbzzh

不错，谢谢。

sryks

好帖!