求助：如何对word进行日期赋值

[duronshi]

Word数据类型如何进行按位赋值？
比如定义一个ve:Word类型
1-5(5位) 表示日期中的天数：11100 表示日期里的28号
6-9(4位) 表示日期中的月份 0101 表示日期里的5月份
10-13(4位) 表示日期中的年份(位) 1011 表示日期里的11年(2000+)
其它位补0

如何对ve进行赋值？谢谢

[Oraclers]

可以用16進制先直接賦一個值，然後根據需要按位“與”或 “或”就可。

[duronshi]

能再详细点吗？谢谢

[蓝色光芒]

ve := (Year-2000) SHL 9 + Month SHL 5 + Day;
适合Year>=2000

[山东蓝鸟贵薪]

[Quote=引用楼主 duronshi 的回复:]
Word数据类型如何进行按位赋值？
比如定义一个ve:Word类型
1-5(5位) 表示日期中的天数：11100 表示日期里的28号
6-9(4位) 表示日期中的月份 0101 表示日期里的5月份
10-13(4位) 表示日期中的年份(位) 1011 表示日期里的11年(2000+)
其它位补0

如何对ve进行赋值？谢谢
[/Quote]
那你就自己做个“字典”吧

[duronshi]

非常感谢两位的回答， kiboisme 的回答基本上已经解决我的问题，是用左移来解决，我想按位进行操作，要如何做呢？谢谢

[天涯倦客]

[Quote=引用 3 楼 kiboisme 的回复:]

ve := (Year-2000) SHL 9 + Month SHL 5 + Day;
适合Year>=2000
[/Quote]

uses 
   DateUtils

 ve:=  ( YearOf(Now)-2000) shl 9 + MonthOf(now)SHL 5 +  DayOf(now);