我们来自五湖四海,不为别的,只因有共同的爱好,为中国互联网发展出一分力!
领航时时彩重庆版

新时时彩倍投方法:用VB计算累计时间值

2014年05月09日22:26 阅读: 33612 次

领航时时彩重庆版 www.9nwl5.cn 标签: 用VB计算累计时间值

VB 无 法 在 日 期/ 时 间 字 段 中 存 放 和 测 量 累 计 时 间, 日 期/ 时 间 存 放 成 特 定 的 时 间 点 而 不 是 一 个 时 间 跨 度, 并 且 无 法 在 一 个 日 期/ 时 间 变 量 中 存 放 超 过24 小 时 的 值。 如 输 入9:30, 输 入 的 不 是 某 台 设 备 工 作 的 时 间 长 度, 而 是 一 个 特 定 时 间, 即 是 早 晨9:30。 在 日 期/ 时 间 字 段 中 输 入26:30,VB 会 显 示 出 错 信 息, 认 为 这 不 是 一 个 合 法 的 输 入。VB 不 是 不 能 进 行 日 期/ 时 间 字 段 的 累 加 计 算, 它 在 内 部 以 浮 点 值 的 形 式 存 放, 能 够 进 行 累 加 计 算, 但 结 果 不 是 我 们 希 望 的 那 样。 

---- 笔 者 在 工 作 中 遇 到 计 算 累 计 时 间 问 题, 利 用 所 编 的 两 个 简 短 的 函 数 dhcTime 和 dhcMinutes , 得 到 满 意 的 解 决。 函 数dhcMinutes 接 受 以 字 符 串 值 形 式 输 入 的 累 计 时 间 作 为 参 数, 返 回 的 时 间 值 以 分 钟 数 表 示, 这 样 就 可 以 方 便 地 对 一 系 列 时 间 值 的 分 钟 数 求 和。 然 后 用 函 数dhcTime 将 分 钟 数 和 转 换 成 小 时 和 分 钟, 并 以 相 应 的 格 式HH:MM 字 符 串 输 出 表 示。 

---- 函 数dhcMinutes 程 序 如 下 所 示, 取 出 以 字 符 串 值 形 式 输 入 的 累 计 时 间 的 小 时 值 乘 以60, 再 与 累 计 时 间 的 分 钟 值 相 加, 产 生 长 整 数 表 示 的 分 钟 数。 

Function dhcMinutes(strTime As String) As Long 
intPos = InStr(strTime, ":") 
strHours = Left(strTime, intPos - 1) 
strMinutes = Right(strTime, Len(strTime) - intPos) 
dhcMinutes = Val(strHours) * 60 + Val(strMinutes) 
End Function 

---- 函 数dhcTime 程 序 如 下 所 示, 将 分 钟 数 用"\" 运 算 符 整 除 得 到 小 时 数( 用60 整 除 的 整 数)。 用MOD 运 算 符 得 到 分 钟 数( 用60 整 除 的 余 数)。 然 后 函 数 将 输 出 格 式 化 为 通 常 的 时 间 表 示 样 式。 
Function dhcTime(lngMinutes As Long) As String 
dhcTime = Format(lngMinutes \ 60, "0") & ":" 
& Format(lngMinutes Mod 60, "00") 
End Function 

---- 例 如, 要 求3 个 时 间 长 度100:03、21:15 和0:34 的 和, 可 用 下 列 表 达 式: 
dhcTime (dhcMinutes("100:03") 
+ dhcMinutes("21:15") + dhcMinutes("0:34")) 

---- 表 达 式 结 果 是 字 符 串 值"121:52"。 
---- 再 如 要 求4 个 时 间 长 度11:15、26:06、0:89 和112:55 的 和, 可 用 下 列 表 达 式: 

dhcTime (dhcMinutes("11:15") + dhcMinutes("26:06") 
+ dhcMinutes("0:89")+ dhcMinutes("112:55")) 

---- 表 达 式 结 果 是 字 符 串 值"151:45"。 
---- 至 于 时 间 分 隔 符, 本 文 以 通 常 的 格 式HH:MM 输 出 表 示, 也 可 以 用WINDOWS API 调 用 取 得 本 机 的 时 间 分 隔 符, 这 里 不 再 详 述。
分享到: 更多
©2019 安全焦点 版权所有.

  • 高校“双一流”建设:从美国高校看“四个回归” 2019-06-21
  • 【新时代幸福美丽新边疆】美图赏析:大自然的“奥秘” 2019-06-09
  • 北京百子湾车祸致2死3伤 小客车女司机系无证驾驶 2019-06-09
  • 蔬菜-热门标签-华商生活 2019-06-04
  • 出生打满分 8斤宝宝为何测不出血糖? 2019-06-04
  • 报道新闻记录历史 70载人民日报见证中国发展大事 2019-06-01
  • 习近平两会“典”亮新时代 2019-05-31
  • 马克思报刊批判的理性光辉 2019-05-26
  • “福泽潇湘·共同见证”爱心彩民参与福彩公益金资助项目 2019-05-24
  • 打造“重庆造”的创新升级版 2019-05-24
  • 平昌冬奥会冠军武大靖低调回家乡利辛探亲祭祖 2019-05-21
  • 打房主分房子,而必逼成! 2019-05-21
  • 让人才如“夏花般灿烂” 2019-05-19
  • 湖北治理违规提取公积金 防止用公积金炒房 2019-05-14
  • 2018“文化和自然遗产日”非遗影像展:电影《侗族大歌》观众流泪观影——晋中频道 2019-05-11
  • 上海时时彩下载手机版 河北福利彩票双色球 浙江福彩快乐12开奖走势图百度 重庆幸运农场农场开奖走势图 福彩3d玩法 贵州快3开奖结果查询 安徽25选5在哪个台开奖 极速飞艇开奖记录走势图 什么软件可以买江西快3 图表走势 体彩p3开奖结果 内蒙古十一选五开奖结果查询 2019最新六合图库资料 18选7要多少钱 天津时时彩开奖结果时时彩开奖号码查询