查看完整版本: pocketstudio　2.1的星期函数怎么使用？自己算星期，上传小时钟

pocketstudio　2.1的星期函数怎么使用？自己算星期，上传小时钟

好像有Weekofday的Function，但偶用不起来，想处理成中文的，不知道如何定义？

想把[url=http://bbs.tompda.com/thread-2060398-1-1.html][color=#000000]pocketstudio　2.1[/color][/url]自带的Clock改成中文版的，可是操作不了，:(::" />:" />:" />

[[i] 本帖最后由 sea2003 于 2007-12-22 23:11 编辑 [/i]]

函数本身不可能直接显示中文，需要自己人为的将输出字符串修改，加入中文，无外乎是一些字符串操作，字符串函数很多，完全够用，使用方法也和C语言库函数基本一致，应该没什么大问题，如果楼主有一些编程经验的话。

主要是偶的编程经验有限，能力也有限，能告诉一下这些个函数的实际用法吗？

能把你的程序代码流露出一些吗？偶真想好好学习学习。

还有程序的能够调用的各类函数帮助及自带的函数库在哪里能够查到？我按F1出来的函数很多都找不到。

[[i] 本帖最后由 sea2003 于 2007-12-20 12:03 编辑 [/i]]

var
  G_Date1:DateTimeType;
  CaptionDateStr1:array[0..14] of Char;
  tmpbuf:array[0..2] of Char;

  G_Date1.Year:=DateTimeP.Year;
  G_Date1.Month:=DateTimeP.Month;
  G_Date1.Day:=DateTimeP.Day;

  StrIToA(CaptionDateStr1,G_Date1.Year);
  StrCat(CaptionDateStr1,'年');

  StrIToA(tmpBuf,G_Date1.Month);
  StrCat(CaptionDateStr1,tmpBuf);
  StrCat(CaptionDateStr1,'月');

  StrIToA(tmpBuf,G_Date1.Day);
  StrCat(CaptionDateStr1,tmpBuf);
  StrCat(CaptionDateStr1,'日');

//输出 CaptionDateStr1 即可

  没经过测试，基本思路就是这样

谢谢兄弟，你的代码我已经写出来了，我是想求个显示星期的，找不到星期函数就自己写了一个。

C是年份的前2位，Y是年份的后2位，M是月份，D是日期。不过这个有局限，只有一百年左右的是准的。[code]
  w:=Trunc(c/4)-2*c+y+Trunc(y/4)+Trunc(13*(m+1)/5)+d-1 ;
  w:=w mod 7;
          case w of
            0:
  PSField.SetText(FieldWeek, '星期日');
            1:
  PSField.SetText(FieldWeek, '星期一');
            2:
  PSField.SetText(FieldWeek, '星期二');
            3:
  PSField.SetText(FieldWeek, '星期三');
            4:
  PSField.SetText(FieldWeek, '星期四');
            5:
  PSField.SetText(FieldWeek, '星期五');

            else
  PSField.SetText(FieldWeek, '星期六');
            end;[/code]

[[i] 本帖最后由 sea2003 于 2007-12-22 23:11 编辑 [/i]]

顺便发一个简单的CLOCK， 中文版本的。效果图在首页。

与[url=http://bbs.tompda.com/space-uid-64337.html][color=#000000]palmdev[/color][/url]兄弟的万年历相差实在太多了。:H: :F:

[[i] 本帖最后由 sea2003 于 2007-12-22 23:13 编辑 [/i]]

谢LZ，了解了