ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: zhangbaor

守柔版主请给翻译一下,精华

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-6-29 06:19 | 显示全部楼层

继续:

变形域代码为: {SET jd{=d+INT((153*c+2)/5)+365*b+INT(b/4)-INT(b/100)+INT(b/400)-32045+Delay}} 变形域代码为: {SET e{=INT((4*(jd+32044)+3)/146097)}} 变形域代码为: {SET f{=jd+32044-INT(146097*e/4)}} 变形域代码为: {SET g{=INT((4*f+3)/1461)}} 变形域代码为: {SET h{=f-INT(1461*g/4)}} 变形域代码为: {SET i{=INT((5*h+2)/153)}} 变形域代码为: {SET dd{=h-INT((153*i+2)/5)+1}} 变形域代码为: {SET mm{=i+3-12*INT(i/10)}} 变形域代码为: {SET yy{=100*e+g-4800+INT(i/10)}} 变形域代码为: {QUOTE {ASK StartDate "What is the starting date, in dd/mm/yyyy format, please?" \d {DATE \@ "d/MM/yyyy"}}{ASK Delay "What is the number of days +/- offset?"} "If the starting date is "{StartDate \@ "dddd, d MMMM yyyy"}" and the offset is {Delay \# ,0} {IF{={Delay}^2}= 1 day days}, then the new date is " {SET a{=INT((14-{StartDate \@ M})/12)}} {SET b{={StartDate \@ yyyy}+4800-a}} {SET c{={StartDate \@ M}+12*a-3}} {SET d{StartDate \@ d}} {SET jd{=d+INT((153*c+2)/5)+365*b+INT(b/4)-INT(b/100)+INT(b/400)-32045+Delay}} {SET e{=INT((4*(jd+32044)+3)/146097)}} {SET f{=jd+32044-INT(146097*e/4)}} {SET g{=INT((4*f+3)/1461)}} {SET h{=f-INT(1461*g/4)}} {SET i{=INT((5*h+2)/153)}} {SET dd{=h-INT((153*i+2)/5)+1}} {SET mm{=i+3-12*INT(i/10)}} {SET yy{=100*e+g-4800+INT(i/10)}} {QUOTE{=dd*10^6+mm*10^4+yy \# "00'-'00'-'0000"} \@ "dddd, d MMMM yyyy"}."} 变形域代码为: {QUOTE {ASK StartDate "What is the starting date, in dd/mm/yyyy format, please?"}{ASK Delay "What is the number of days +/- offset?"} {StartDate \@ "dddd, d MMMM yyyy"}". The offset is {Delay \# ,0} {IF{{Delay}^2}= 1 day days}. The new date is " {SET a{=INT((14-{StartDate \@ M})/12)}} {SET b{={StartDate \@ yyyy}+4800-a}} {SET c{={StartDate \@ M}+12*a-3}} {SET d{StartDate \@ d}} {SET jd{=d+INT((153*c+2)/5)+365*b+INT(b/4)-INT(b/100)+INT(b/400)-32045+Delay}} {SET e{=INT((4*(jd+32044)+3)/146097)}} {SET f{=jd+32044-INT(146097*e/4)}} {SET g{=INT((4*f+3)/1461)}} {SET h{=f-INT(1461*g/4)}} {SET i{=INT((5*h+2)/153)}} {SET dd{=h-INT((153*i+2)/5)+1}} {SET mm{=i+3-12*INT(i/10)}} {SET yy{=100*e+g-4800+INT(i/10)}} {QUOTE{=dd*10^6+mm*10^4+yy \# "00'-'00'-'0000"} \@ "dddd, d MMMM yyyy"}."}变形域代码为: {ASK StartDate "What is the starting date, in dd/mm/yyyy format, please?"}{ASK Delay "What is the number of days +/- offset?"} 变形域代码为: {StartDate \@ "dddd, d MMMM yyyy"}". 变形域代码为: The offset is {Delay \# ,0} {IF{{Delay}^2}= 1 day days}.

非常感谢楼主提供了这份教材!授之精华!

[em23][em23]
[此贴子已经被作者于2005-6-29 6:20:41编辑过]

TA的精华主题

TA的得分主题

发表于 2005-6-29 09:09 | 显示全部楼层

版主辛苦了!

我等不劳而获了。(英语差,想劳都难)

好好学习!天天向上。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-6-29 18:35 | 显示全部楼层
守柔版主,我一看到这篇文章,就感觉是精品,因为文章中许多域嵌套的用法,SET设置变量(相当于编程了),我从没在国内看见过,但因为我英语是很次的,所以发到本论坛,希望有能力翻译的会员,有时间翻译一下,以便大家共同提高,达到国际水平。另请守柔版主能对其中的一些应用详解一下,如{QUOTE {SET a{=INT((14-{DATE \@ M})/12)}} {SET b{={DATE \@ yyyy}+4800-a}} {SET c{={DATE \@ M}+12*a-3}} {SET d{DATE \@ d}} {SET jd{=d+INT((153*c+2)/5)+365*b+INT(b/4)-INT(b/100)+INT(b/400)-32045}} {SET Delay{=IF({DATE \@ HH}>12,1+(MOD(jd,7)=4)*2,0)}} {SET jd{=jd+Delay}} {SET e{=INT((4*(jd+32044)+3)/146097)}} {SET f{=jd+32044-INT(146097*e/4)}} {SET g{=INT((4*f+3)/1461)}} {SET h{=f-INT(1461*g/4)}} {SET i{=INT((5*h+2)/153)}} {SET dd{=h-INT((153*i+2)/5)+1}} {SET mm{=i+3-12*INT(i/10)}} {SET yy{=100*e+g-4800+INT(i/10)}} {=dd*10^6+mm*10^4+yy \# "00'-'00'-'0000"} \@ "dddd, d MMMM yyyy"} 等等,如暂时不便,希望置顶求解!

TA的精华主题

TA的得分主题

发表于 2005-7-4 09:40 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-7-4 16:35 | 显示全部楼层

好厉害啊。。。

我不客气了,,先保存下来。。。

[em04]

TA的精华主题

TA的得分主题

发表于 2005-11-16 10:07 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
哗,厉害

TA的精华主题

TA的得分主题

发表于 2005-11-17 09:55 | 显示全部楼层
谢谢啊[em02],偶也不客气啦,收藏

TA的精华主题

TA的得分主题

发表于 2005-11-17 10:03 | 显示全部楼层
以下是引用chenwintek在2005-6-28 15:18:20的发言: 看不大懂,但是编排倒是标准的WORD应用,请问13页下面的注解是怎么排版的?

btw,光标放到需要插入脚注的地方,然后“插入/引用/脚注和尾注”,本文13页的是脚注。各种选项你可以试一下。

TA的精华主题

TA的得分主题

发表于 2006-8-30 15:46 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
以前看过这篇文章,但是很不留意,现在才发现是一块宝!!!很是太迟了!那也是给“瘦肉”版主害的,因为他给出了那么多密密麻麻看了就讨厌的的代码而又没有什么说明。现在看英文虽然慢一点,但是很有滋味!
[此贴子已经被作者于2006-8-30 15:47:55编辑过]

TA的精华主题

TA的得分主题

发表于 2006-8-30 19:30 | 显示全部楼层

我用Word2003的翻译对标题译了一下,有些文法不通。

只恨洋大人的水平太厉害,只恨自己的脑子不好使,只恨以前学生时代脑子用在废课程上了!

[em06][em06] RhVCKv3L.rar (54.16 KB, 下载次数: 157)
[此贴子已经被作者于2006-8-30 19:30:26编辑过]
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-27 23:31 , Processed in 0.039839 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表