|
|
 |
|
时 间：每周三六日下午13：30
|
|
地 点：本中心总部
|
|
主 讲：资深职业规划师
|
|
内 容：职业规划、沟通技巧、面试技巧、时间管理、目标管理、行业前景分析、商务礼仪
|
|
|
|
|
|
|
|
|
|
|
vb农历的算法 |
|
时间：2008/05/29作者/转载自：admin
|
|
Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay, curWeekday Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate Private Sub Form_Load() 获取当前系统时间 curTime = Now() 星期名 WeekName(0) = * WeekName(1) = 星期日 WeekName(2) = 星期一 WeekName(3) = 星期二 WeekName(4) = 星期三 WeekName(5) = 星期四 WeekName(6) = 星期五 WeekName(7) = 星期六 天干名称 TianGan(0) = 甲 TianGan(1) = 乙 TianGan(2) = 丙 TianGan(3) = 丁 TianGan(4) = 戊 TianGan(5) = 己 TianGan(6) = 庚 TianGan(7) = 辛 TianGan(8) = 壬 TianGan(9) = 癸 地支名称 DiZhi(0) = 子 DiZhi(1) = 丑 DiZhi(2) = 寅 DiZhi(3) = 卯 DiZhi(4) = 辰 DiZhi(5) = 巳 DiZhi(6) = 午 DiZhi(7) = 未 DiZhi(8) = 申 DiZhi(9) = 酉 DiZhi(10) = 戌 DiZhi(11) = 亥 属相名称 ShuXiang(0) = 鼠 ShuXiang(1) = 牛 ShuXiang(2) = 虎 ShuXiang(3) = 兔 ShuXiang(4) = 龙 ShuXiang(5) = 蛇 ShuXiang(6) = 马 ShuXiang(7) = 羊 ShuXiang(8) = 猴 ShuXiang(9) = 鸡 ShuXiang(10) = 狗 ShuXiang(11) = 猪 农历日期名 DayName(0) = * DayName(1) = 初一 DayName(2) = 初二 DayName(3) = 初三 DayName(4) = 初四 DayName(5) = 初五 DayName(6) = 初六 DayName(7) = 初七 DayName(8) = 初八 DayName(9) = 初九 DayName(10) = 初十 DayName(11) = 十?quot; DayName(12) = 十二 DayName(13) = 十三 DayName(14) = 十四 DayName(15) = 十五 DayName(16) = 十六 DayName(17) = 十七 DayName(18) = 十八 DayName(19) = 十九 DayName(20) = 二十 DayName(21) = 廿一 DayName(22) = 廿二 DayName(23) = 廿三 DayName(24) = 廿四 DayName(25) = 廿五 DayName(26) = 廿六 DayName(27) = 廿七 DayName(28) = 廿八 DayName(29) = 廿九 DayName(30) = 三十 农历月份名 MonName(0) = * MonName(1) = 正 MonName(2) = 二 MonName(3) = 三 MonName(4) = 四 MonName(5) = 五 MonName(6) = 六 MonName(7) = 七 MonName(8) = 八 MonName(9) = 九 MonName(10) = 十 MonName(11) = 十一 MonName(12) = 腊 公历每月前面的天数 MonthAdd(0) = 0 MonthAdd(1) = 31 MonthAdd(2) = 59 MonthAdd(3) = 90 MonthAdd(4) = 120 MonthAdd(5) = 151 MonthAdd(6) = 181 MonthAdd(7) = 212 MonthAdd(8) = 243 MonthAdd(9) = 273 MonthAdd(10) = 304 MonthAdd
|
|
|
|
|
|
 |
|
