北京到长滩岛的价格:主图日历。星期

来源：百度文库编辑：偶看新闻时间：2024/04/29 07:59:49

yy1:=WEEKDAY;
IF BARSTATUS=2 and (yy1=5) THEN BEGIN DRAWTEXTREL(10,950,'■星期五■'),LINETHICK2,Color191970;end;
IF BARSTATUS=2 and (yy1=4) THEN BEGIN DRAWTEXTREL(10,950,'■星期四■'),LINETHICK2,ColorEEE8AA;end;
IF BARSTATUS=2 and (yy1=3) THEN BEGIN DRAWTEXTREL(10,950,'■星期三■'),LINETHICK2,ColorBA55D3;end;
IF BARSTATUS=2 and (yy1=2) THEN BEGIN DRAWTEXTREL(10,950,'■星期二■'),LINETHICK2,Color0000CD;end;
IF BARSTATUS=2 and (yy1=1) THEN BEGIN DRAWTEXTREL(10,950,'■星期一■'),LINETHICK2,ColorADFF2F;end;
IF BARSTATUS=2 and (yy1=6) THEN BEGIN DRAWTEXTREL(10,950,'■星期六■'),LINETHICK2,Color00008B;end;
IF BARSTATUS=2 and (yy1=0) THEN BEGIN DRAWTEXTREL(10,950,'■星期日■'),LINETHICK2,ColorFF0000;end; 年1:=YEAR;
月1:=MONTH;
日1:=DAY;
星期:=WEEKDAY;
时:=HOUR;
分:=MINUTE;
秒:=TIME;
DRAWTEXTREL(5,10,NUMTOSTR(年1)+'年'+NUMTOSTR(月1)+'月'+NUMTOSTR(日1)+'日星期'+NUMTOSTR(星期)+
' 北京时间 '+STRLEFT(NUMTOSTRN(IF(CURRENTTIME<10000,0,CURRENTTIME),0),IF(CURRENTTIME>=10000 AND
CURRENTTIME<100000,1,2))+'点 '+STRMID(NUMTOSTRN(CURRENTTIME,0),IF(CURRENTTIME<10000,1,IF(CURRENTTIME>=10000 AND
CURRENTTIME<100000,2,3)),2)+'分 '+STRRIGHT(NUMTOSTRN(CURRENTTIME,0),2)+'秒'),LINETHICK2,COLORyellow;

为什么日历上的星期格式都是从星期日开始的？为什么日历上的星期格式都是从星期日开始的? 知道了几月几日,如果不看日历就知道那天是星期几?? 怎样通过农历查新历多少号，星期几，（好久以前的时间来得，找不到日历了）任务栏的时间鼠标一放就显示一张日历，上面有日期，星期，农历，这是怎么设置的？我今天遇到个难题，我看日历的时候发现昨天是星期四，明天是星期五，那今天是星期几？我只想看看 M-ZONE 2005 日历封面图怎样保存日历图(类型是ACDSee6 GIF Image) 谁有翼年代记的全套日历套图？？谁有翼年代记的全套日历套图？关于日历日历方程日历方程日历方程万年日历 1956日历问问日历~~! word日历桌面日历打印日历 FLASH日历网页,日历日历壁纸 2006火影忍者日历图需要6`7`8`9`10`11`12 的