两个TDateTime类型的数据相减

最新推荐文章于 2021-09-04 17:01:33 发布
原创 最新推荐文章于 2021-09-04 17:01:33 发布 · 2.2k 阅读 · 2 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#TDateTime #相减

本文介绍了一种通过将时间字符串转换为TDateTime类型，并利用encodedate()和encodetime()函数来计算两个时间点间有效时长的方法。计算结果以天数形式返回，便于进行进一步的时间数据分析。

程序中用到两个时间数据相减得到有效时长的功能，在网上查询后得到如下结论：
1.首先将两个时间字符串转换为TDateTime类型，这里可以使用encodedate()和encodetime()函数。
2.得到的两个数据相减后是double类型的数据，而且表示的是天数。
如2015081815-2015081709得到的就是1.25天。

Delphi TDateTime类，如何计算两个时间的差
zxm8513优快云博客
11-04 2852
X:=Date2-Date1; //x是相差的天数 Y:=x*24; //Y是相差的小时数 z:=x*24*60; //Z就是相差的分钟数
Delphi 计算两个日期之间的时间差（天数）.rar
07-10
1. **声明变量**：首先，声明两个TDateTime类型的变量，分别存储你要比较的两个日期。例如： ```delphi var Date1, Date2: TDateTime; ``` 2. **赋值**：将用户输入或程序中获取的日期值赋给这两个变量。这可以...
mysql设置两个日期格式相减的方式
热门推荐
07-10 4万+
select (atime - btime) sec from abc 相减得到的并不是秒，特别需要注意！ mysql中计算两个Datetime类型的时间间隔(单位为秒)，需要转换： 1.跨天，月，年都无问题 select (UNIX_TIMESTAMP(atime) - UNIX_TIMESTAMP(btime)) sec from abc 2.只能用在Time类型
mysql两个日期相减得到秒、分、天
cqrf2006的专栏
12-22 2万+
一、MySQL中两个DateTime字段相减 假定表名为tblName，两个DateTime字段名分别为beginDateTime，endDateTime，以下是相关两个mysql日期字段相减的SQL语句，这种方式两字段跨天，月，年都无问题。 得到两个日期字段之间的秒数 selec t (UNIX_TIMESTAMP(endDateTime) - UNIX_TIMESTAMP(beginDa
java实现两个日期相减得到中间的年份和月份日期改进版
07-02
上个实例改进 java实现两个日期相减得到中间的年份和月份日期
mysql datetime 类型字段相减
xiaoyaotan_111的博客
04-27 3200
mysql时间相减的问题(bug)     今天看到宁青同学的一条微博，提到MySQL日期相减的错误结果，以前没有怎么注意，于是测试了一下，发现确实很坑爹，很容易踩雷，于是整理博客提醒一下大家。 先看一下错误的现象如下，第1条正确，第2，3条的t2-t1不正确： [sql] view plain copy mysql> select t1,t2,t2
得到两个DateTime变量相减的以秒为单位的结果
yemeilang的专栏
06-05 1602
TimeSpan   sp   =   new   TimeSpan();     DateTime   dt   =   DateTime.Now;     sp   =   DateTime.Now   -   dt;     Label1.Text=sp.Seconds.ToString();    
bcb中如何获取两个TDateTime相差的年月日时分秒
11-30
首先，创建两个`TDateTime`类型的变量表示你需要计算的时间点，然后通过减法运算得到时间间隔。以下是基本步骤： 1. 定义两个`TDateTime`变量，例如 `var startDate` 和 `var endDate`。 2. 计算时间差：`TDateTime...
c++中如何获取两个TDateTime相差的年月日时分秒
11-30
在 C++ 中，你可以使用 `TDateTime` 类型提供的差值操作来获取两个日期时间之间的年、月、日、时、分和秒。`TDateTime` 是 Borland Delphi 和 Free Pascal 的日期时间类型，假设你正在使用 VCL 或 FreePascal。 ...
delphi 两个ServerTime相减得到的秒
12-11
在Delphi中，如果你有两个`TDateTime`类型的变量分别存储了服务器时间（`ServerTime1`和`ServerTime2`），想要计算它们之间的差值（以秒为单位），你可以通过以下步骤： 1. 首先，你需要将`TDateTime`转换成`TInt64...
西门子博途1200 时间相减
07-30
西门子博途1200 时间相减
C# 两个日期相减得到天数
LuckyJoey的博客
03-04 1万+
两个日期相减，所得结果是一个“时间间隔“TimeSpan，TimeSpan类型的一个属性Days可以表示此时间间隔对应的天数。 1 2 3 4 5 DateTimedt1=DateTime.Now; DateTimedt2=DateTime.Parse("2019-3-614:20:45"); TimeS...
【Java日期时间】使用SimpleDateFormat和LocalDateTime(推荐)对两个日期做减法
qq_43783527的博客
07-09 5731
使用SimpleDateFormat对两个日期做减法 1.背景 实际项目开发中，经常遇到对两个Date类型的时间进行相减，得到一个时间差，这个时间差的类型可能是"HH:mm:ss"、“dd HH:mm:ss”。 2.代码示例 String start = "2010-2-2 01:01:01"; String end = "2010-2-2 03:03:03"; SimpleDateFormat simpleDateFormat = new SimpleDat
两个datetime类型相减的方法转成多少秒
Areigninhell的博客
03-01 2056
import time import datetime finished = datetime.datetime.strptime(result["finished"][:19], "%Y-%m-%dT%H:%M:%S") used_time = time.mktime(finished.timetuple()) - time.mktime(created.timetuple()) print(...
python 自定义时间 加减天数
sinat_35645479的博客
04-16 4223
import datetime # 现在的时间 setTime ='2015-04-16' now=datetime.datetime.strptime(setTime,'%Y-%m-%d') print(now) # 递增的时间 delta = datetime.timedelta(days=1) # 88天后的时间 endnow = now + datetime.timedelta(d...
datetime的timedelta对象
weixin_30569153的博客
11-15 814
datetime.timedelta对象代表两个时间之间的时间差，两个date或datetime对象相减就可以返回一个timedelta对象。 如果有人问你昨天是几号，这个很容易就回答出来了。但是如果问你200天前是几号，就不是那么容易答出来。而在Python中datetime模块中的timedelta就可以很轻松给出答案。 函数原型： class datetime.timedelta([days...
如何让两个时间相减得到相应的差值（可得到相差的时分秒，年月日）
liqingdxy的专栏
07-31 6912
有时候我们需要知道某一个时间差具体是多少，比如：  2012-7-9 1:18:07  和 2012-7-11 3:25:04相差了多少时间，那么怎么解决这个问题呢？ 在C++ Builder里面有这样一个专门处理时间差的函数库，里面有可以计算年差，月差，周差，日差，时差，分差，秒差的函数，函数如下所示： YearsBetween  (const System::TDateTime ANow,
Python时间和日期处理_datetime模块
feizuiku0116的博客
09-04 1604
datetime模块提供了datetime和timedelta两个内置类，前者表示日期时间，后者表示一个时间段的长度。两个datetime对象相减，即可得到一个timedelta对象。两个timedelta对象，或datetime对象和timedelta对象，可以做加减运算 一.datetime类 Datetime类是一个包含来自date对象和time对象所有信息的单一对象。datetime类提供的以下方法可以直接调用，无序实例化 now()：返回当前的本地datetime对象 utcnow()：返回当前
c# 计算时间间隔的方法
fangyuan621的专栏
04-04 6368
c# 计算时间间隔的方法 一、计算两个DateTime的时间间隔，有两种方法： 1、两个DateTime直接相减，得到一个TimeSpan，表示两个时间的间隔 2、用DateTime.Subtract(DateTime) 方法进行计算，其结果与方法1相同，表示用当前时间减去参数所代入的时间，返回一个TimeSpan 二、TimeSpan结构表示一个时间间隔，按正负天数、小时数、分钟...
在PowerBuilder中如何正确使用OleVariant类型
最新发布
07-20
<think>我们正在讨论的是如何在PowerBuilder中正确使用OleVariant类型。OleVariant是PowerBuilder中用于OLE自动化操作的特殊数据类型，它可以表示多种类型的数据，并且能够自动处理与COM对象之间的数据类型转换。以下将详细说明其使用方法。 ### 1. **OleVariant类型概述** - OleVariant是一种可变数据类型，可以存储各种类型的数据（如整数、字符串、日期、对象引用等）[^3]。 - 在调用COM对象的方法时，OleVariant能够自动匹配COM方法所需的参数类型（如VT_BSTR, VT_I4等）[^3]。 - 使用OleVariant可以避免常见的OLE调用错误（如错误35：参数类型不匹配）[^1]。 ### 2. **基本使用方法** #### 2.1 声明与赋值 ```powerbuilder OleVariant lv_var // 赋值字符串 lv_var = "PowerBuilder字符串" // 自动转为VT_BSTR // 赋值整数 lv_var = 100 // 自动转为VT_I4 // 赋值浮点数 lv_var = 3.14 // 自动转为VT_R8 // 赋值布尔值 lv_var = TRUE // 自动转为VT_BOOL // 赋值日期 lv_var = DateTime(Today(), Now()) // 自动转为VT_DATE ``` #### 2.2 调用COM方法 ```powerbuilder OLEObject ole_excel ole_excel = CREATE OLEObject // 连接Excel IF ole_excel.ConnectToNewObject("Excel.Application") <> 0 THEN MessageBox("错误", "无法启动Excel") RETURN END IF // 使用OleVariant传递参数 OleVariant lv_visible lv_visible = TRUE ole_excel.Visible = lv_visible // 设置Excel可见 // 调用带参数的方法 OleVariant lv_workbook, lv_worksheet lv_workbook = ole_excel.Workbooks.Add() lv_worksheet = lv_workbook.Worksheets(1) // 写入单元格(A1) OleVariant lv_cell lv_cell = lv_worksheet.Cells(1, 1) // 行号、列号 lv_cell.Value = "Hello from PB" // 自动转为VT_BSTR ``` ### 3. **处理特殊值** #### 3.1 空值（Null）与未定义（Empty） - **`OLENull()`**: 表示COM中的`VT_NULL`（空值） - **`OLEEmpty()`**: 表示COM中的`VT_EMPTY`（未初始化值） ```powerbuilder // 传递空值 ole_object.Method(OLENull()) // 传递未定义值（如可选参数） ole_object.OptionalParam(OLEEmpty()) ``` #### 3.2 错误值处理 使用`Try-Catch`捕获OLE调用异常： ```powerbuilder TRY ole_excel.ActiveWorkbook.SaveAs("C:\\test.xlsx") CATCH (RuntimeError err) MessageBox("OLE错误", "错误代码: " + String(err.Number)) END TRY ``` ### 4. **数组传递（重点）** COM方法可能要求传递数组参数（如`VT_ARRAY | VT_VARIANT`），需使用`OleVariant`数组： ```powerbuilder // 创建一维数组 OleVariant lv_array lv_array = OleVariant(1, 2, 3, 4, 5) // 静态初始化 // 动态创建二维数组 long ll_rows = 3, ll_cols = 2 lv_array = OleVariant(0, ll_rows, ll_cols) // 初始化3行2列数组 // 填充数组 lv_array[1, 1] = "姓名" lv_array[1, 2] = "年龄" lv_array[2, 1] = "张三" lv_array[2, 2] = 30 lv_array[3, 1] = "李四" lv_array[3, 2] = 28 // 传递给COM方法（如Excel的Range.Value） OleVariant lv_range lv_range = ole_worksheet.Range("A1:B3") lv_range.Value = lv_array // 批量写入数据 ``` ### 5. **类型转换注意事项** - **隐式转换风险**：PowerBuilder自动转换基础类型，但复杂类型需手动处理。 ```powerbuilder // 错误示例：直接传递PowerBuilder的Decimal类型 DECIMAL ld_val = 123.45 OleVariant lv_val = ld_val // 可能丢失精度（应使用Double） ``` - **显式转换最佳实践**： ```powerbuilder // 显式转换为Double OleVariant lv_safe = Double(ld_val) // 字符串处理（避免Ansi字符串问题） string ls_unicode = "Unicode文本" OleVariant lv_text = ls_unicode // PB自动转为宽字符串(VT_BSTR) ``` ### 6. **释放资源** OleVariant变量在超出作用域时会自动释放，但及时释放COM对象可避免内存泄漏： ```powerbuilder // 手动释放 ole_excel.Quit() DESTROY ole_excel // OleVariant清空 lv_array = OleVariant() // 重置为未初始化状态 ``` ### 7. **调试技巧** - **查看实际类型**：使用`ClassName()`函数（返回`olevariant`） - **获取值类型代码**：通过`OleVariant`的`VarType`属性（需调用COM API） ```powerbuilder // 扩展：获取变量类型的VB代码（需借助ScriptControl） OLEObject ole_script ole_script = CREATE OLEObject ole_script.ConnectToNewObject("ScriptControl") ole_script.Language = "VBScript" string ls_type = ole_script.Eval("VarType(" + lv_var + ")") // 返回类型代码 ``` > **关键点总结**： > 1. 始终使用`OleVariant`传递COM方法的参数[^3]； > 2. 复杂数据（如数组）需显式构造； > 3. 空值/未定义值使用`OLENull()`/`OLEEmpty()`； > 4. 及时释放COM对象避免资源泄漏[^1]。 §§相关问题§§ 1. PowerBuilder中如何传递结构体（Struct）到COM对象？ 2. 如何处理OleVariant返回的数组数据？ 3. PowerBuilder调用Excel时如何避免进程残留？ 4. OleVariant与PowerBuilder的Any类型有何区别？</think>### PowerBuilder 中 OleVariant 类型的正确使用方法 OleVariant 是 PowerBuilder 中处理 OLE/COM 调用的核心数据类型，它能自动处理 COM 对象所需的数据类型转换。以下是详细使用指南： #### 1. **基础声明与赋值** ```powerbuilder OleVariant lv_var // 字符串赋值（自动转为 VT_BSTR） lv_var = "PowerBuilder字符串" // 数值赋值（自动转为 VT_I4 或 VT_R8） lv_var = 100 // 整数 lv_var = 3.14 // 浮点数 // 布尔值赋值（自动转为 VT_BOOL） lv_var = TRUE // 日期赋值（自动转为 VT_DATE） lv_var = DateTime(Today(), Now()) ``` #### 2. **COM 方法调用中的参数传递** ```powerbuilder OLEObject ole_excel ole_excel = CREATE OLEObject ole_excel.ConnectToNewObject("Excel.Application") // 使用 OleVariant 传递参数 OleVariant lv_visible, lv_workbook lv_visible = TRUE ole_excel.Visible = lv_visible // 设置属性 lv_workbook = ole_excel.Workbooks.Add() // 调用方法 ``` #### 3. **特殊值处理** ```powerbuilder // 空值处理（VT_EMPTY） ole_excel.MethodName(OLEEmpty()) // 无参数方法 // Null 值处理（VT_NULL） ole_excel.MethodName(OLENull()) // 显式传递空值 ``` #### 4. **数组传递（关键技巧）** ```powerbuilder // 创建一维数组 OleVariant lv_array lv_array = OleVariant(1, 2, 3, 4, 5) // 静态初始化 // 动态创建二维数组（Excel 范围写入示例） long ll_rows = 3, ll_cols = 2 lv_array = OleVariant(0, ll_rows, ll_cols) // 初始化3行2列数组 // 填充数组 lv_array[1, 1] = "姓名" lv_array[1, 2] = "年龄" lv_array[2, 1] = "张三" lv_array[2, 2] = 30 // 传递给 COM 方法 ole_excel.Range("A1:B3").Value = lv_array ``` #### 5. **类型转换注意事项** ```powerbuilder // 显式类型转换（避免隐式转换错误） DECIMAL ld_val = 123.45 OleVariant lv_safe = Double(ld_val) // 显式转为 Double // 字符串处理（支持 Unicode） string ls_unicode = "中文文本" OleVariant lv_text = ls_unicode // 自动转为宽字符串(VT_BSTR) ``` #### 6. **返回值处理** ```powerbuilder // 接收 COM 方法返回值 OleVariant lv_result lv_result = ole_excel.ActiveWorkbook.Name // 类型判断与转换 if IsNumber(lv_result) then integer li_val = Integer(lv_result) end if ``` #### 7. **资源释放** ```powerbuilder // 显式释放 COM 对象 ole_excel.Quit() DESTROY ole_excel // OleVariant 清空 lv_array = OleVariant() // 重置为未初始化状态 ``` > **关键原则**： > 1. 所有 COM 调用参数都应使用 OleVariant 包装[^3] > 2. 数值类型需显式转换避免精度丢失 > 3. 数组必须通过 OleVariant 特殊语法构造 > 4. 及时释放 COM 对象防止内存泄漏[^1] #### 调试技巧 ```powerbuilder // 启用详细 OLE 日志 SetOLELog(1) // 日志输出到 PBODBxxx.log // 错误捕获 TRY ole_object.Method(OleVariant(参数)) CATCH (RuntimeError err) MessageBox("OLE 错误", "代码: " + String(err.Number)) END TRY ```
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值