PHP子程序转换成易语言

公子凯

unction add($d,$t)
{
$dd=date("Y-m-d", strtotime($d));
//$tt=date("h:i:s", strtotime($t));
$time_h = date("h", strtotime($t));
$time_i = date("i", strtotime($t));
$time_s =date("s", strtotime($t));
$time_a =date("a", strtotime($t));
$tt = to_24_hour($time_h,$time_i,$time_s,$time_a);
$n=strtotime($dd . " " . $tt);
$mm=date('Y-m-d H:i:s',strtotime("+15hour",$n));
return $mm;
}

function to_24_hour($hours,$minutes,$seconds,$meridiem){
$hours = sprintf('%02d',(int) $hours);
$minutes = sprintf('%02d',(int) $minutes);
$seconds = sprintf('%02d',(int) $seconds);
$meridiem = (strtolower($meridiem)=='am') ? 'am' : 'pm';
return date('H:i:s', strtotime("{$hours}:{$minutes}:{$seconds}{$meridiem}"));
}

把上面这两个转换成易语言,谁会

小米加鸡蛋

你是PHP写手吗?

by029

就是一些时间格式化

浅黑

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时间方法 (“2023-08-03”, “09:30:30 PM”)

子程序名	返回值类型	公开	备 注
时间方法
参数名	类 型	参考	可空	数组	备 注
日期	文本型
时分秒	文本型

变量名	类 型	静态	数组	备 注
time	日期时间型

time ＝ 到时间 (文本区分_只取数字 (日期 ＋ 时分秒))
如果真 (寻找文本 (时分秒, “pm”, , 假) ≠ -1 或 寻找文本 (时分秒, “PM”, , 假) ≠ -1)
time ＝ 增减时间 (time, 6, 12)

返回 (增减时间 (time, 6, 15))

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> 时间方法 (“2023-08-03”, “09:30:30 PM”)<br /> <br /> <br /> .子程序 时间方法<br /> .参数 日期, 文本型<br /> .参数 时分秒, 文本型<br /> .局部变量 time, 日期时间型<br /> <br /> time ＝ 到时间 (文本区分_只取数字 (日期 ＋ 时分秒))<br /> <br /> .如果真 (寻找文本 (时分秒, “pm”, , 假) ≠ -1 或 寻找文本 (时分秒, “PM”, , 假) ≠ -1)<br />     time ＝ 增减时间 (time, 6, 12)<br /> .如果真结束<br /> <br /> 返回 (增减时间 (time, 6, 15))

你那个php就是先将日期和时间拼在一起格式化，然后在判断一下上午和下午，最后+15个小时


补充内容 (2024-8-3 15:48):
忘记写返回值类型了，返回类型为日期时间型

我很低调

.版本 2

.子程序 __启动窗口_创建完毕



时间方法 (“2023-08-03”, “09:30:30 PM”)


.子程序 时间方法
.参数 日期, 文本型
.参数 时分秒, 文本型
.局部变量 time, 日期时间型

time ＝ 到时间 (文本区分_只取数字 (日期 ＋ 时分秒))

.如果真 (寻找文本 (时分秒, “pm”, , 假) ≠ -1 或 寻找文本 (时分秒, “PM”, , 假) ≠ -1)
    time ＝ 增减时间 (time, 6, 12)
.如果真结束

返回 (增减时间 (time, 6, 15))

公子凯

我很低调 发表于 2024-8-3 15:41
.版本 2

.子程序 __启动窗口_创建完毕

drawDate":"Aug 3, 2024","drawTime":"12:47:30 AM"  这样的时间怎么处理 月份是个英文的

LEOONL

对我的代码这么不满意吗 还在另外找方法

我很低调

公子凯 发表于 2024-8-3 15:53
drawDate":"Aug 3, 2024","drawTime":"12:47:30 AM"  这样的时间怎么处理 月份是个英文的 ...

Ch_Year Varchar2(20); --年度 Ch_Month Varchar2(20); --月份 Ch_Day Varchar2(20); --日期 Ch_Time Varchar2(20); --时间 Loc_Timezone Varchar2(10); --时区 Ch_Week Varchar2(42); --星期 Begin
像这样根据返回的英文 自己做个判断

by029

1.e (958.89 KB, 下载次数: 3)

2024-8-3 16:20 上传

点击文件名下载附件
是不是这样

补充内容 (2024-8-3 16:23):
调试输出 (时间_格式化 (时间方法 (年月日, drawTime), “yyyy-MM-dd ”, “hh:mm:ss”, 真))

禁回忆

啊？不是哥们，滨州哪的？不会就是那几个小工作室写脚本的吧