时间戳与日期的相互转换 pb

1、日期转时间戳-->获取时间戳

//==============================================================================
// 函数: date2timestamp()
//------------------------------------------------------------------------------
// 描述: 获取时间戳
//------------------------------------------------------------------------------
// 参数: 
//		value	integer		
//------------------------------------------------------------------------------
// 返回值:  string
//------------------------------------------------------------------------------
// 作者:	chenzj		日期: 2021.09.02
//------------------------------------------------------------------------------
// 修改历史: 
//	
//==============================================================================

datetime ldt_dtime
date ld_today
time lt_nowtime
//ldt_dtime = today()  //gf_server_date()
ld_today =today()  // date(ldt_dtime)
lt_nowtime =now() // time(ldt_dtime)
//return String(DaysAfter( Date(1970,1,1) , Today()) *86400 +secondsafter(Time("08:00:00") ,Now()))
return String(DaysAfter( Date(1970,1,1) , ld_today) *86400 +secondsafter(Time("08:00:00") ,lt_nowtime))

2、时间戳转日期-->根据时间戳反推出时间

//==============================================================================
// 函数: timestamp2date()
//------------------------------------------------------------------------------
// 描述: 根据时间戳反推出时间
//------------------------------------------------------------------------------
// 参数: 
//		value	long al_timestamp		
//------------------------------------------------------------------------------
// 返回值:  datetime
//------------------------------------------------------------------------------
// 作者:	chenzj		日期: 2021.09.02
//------------------------------------------------------------------------------
// 修改历史: 
//	
//==============================================================================
Long ll_seconds,ll_days,ll_timestamp
ll_timestamp =al_timestamp
//判断是否为毫秒，2286年秒为10位
If Len(String(ll_timestamp)) >= 13 Then
	ll_seconds = ll_timestamp/1000
Else
	ll_seconds = ll_timestamp
End If
//天 +8 *3600,因为北京时间是从上午8点计算的
ll_days = (ll_seconds +28800 )/86400
//秒
ll_seconds = ll_seconds - ll_days * 86400
return DateTime(RelativeDate(Date(1970,1,1),ll_days),RelativeTime(Time("08:00:00"),ll_seconds))

如何对你有用，请点赞支持