精易论坛

标题: PHP子程序转换成易语言 [打印本页]

作者: 公子凯    时间: 2024-8-3 14:54
标题: 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}"));
}

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


作者: 小米加鸡蛋    时间: 2024-8-3 14:58
你是PHP写手吗?
作者: by029    时间: 2024-8-3 14:59
就是一些时间格式化
作者: 浅黑    时间: 2024-8-3 15:39
  
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
时间方法 (“2023-08-03”, “09:30:30 PM”)
子程序名返回值类型公开备 注
时间方法  
参数名类 型参考可空数组备 注
日期文本型
时分秒文本型
变量名类 型静态数组备 注
time日期时间型 
time = 到时间 (文本区分_只取数字 (日期 + 时分秒))
如果真 (寻找文本 (时分秒, “pm”, , ) ≠ -1 寻找文本 (时分秒, “PM”, , ) ≠ -1)
time = 增减时间 (time, 6, 12)

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



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


补充内容 (2024-8-3 15:48):
忘记写返回值类型了,返回类型为日期时间型
作者: 我很低调    时间: 2024-8-3 15:41
.版本 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:53
我很低调 发表于 2024-8-3 15:41
.版本 2

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

drawDate":"Aug 3, 2024","drawTime":"12:47:30 AM"  这样的时间怎么处理 月份是个英文的
作者: LEOONL    时间: 2024-8-3 15:53
对我的代码这么不满意吗 还在另外找方法
作者: 我很低调    时间: 2024-8-3 16:10
公子凯 发表于 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    时间: 2024-8-3 16:20
1.e (958.89 KB, 下载次数: 3)
是不是这样

补充内容 (2024-8-3 16:23):
调试输出 (时间_格式化 (时间方法 (年月日, drawTime), “yyyy-MM-dd ”, “hh:mm:ss”, 真))
作者: 禁回忆    时间: 2024-8-3 20:25
啊?不是哥们,滨州哪的?不会就是那几个小工作室写脚本的吧
作者: 禁回忆    时间: 2024-8-3 20:25
啊?不是哥们,滨州哪的?不会就是那几个小工作室写脚本的吧
作者: 勉勉    时间: 2024-8-3 23:09
LEOONL 发表于 2024-8-3 15:53
对我的代码这么不满意吗 还在另外找方法

哥们你们几个写的已经够好的了,鬼知道他怎么想的~




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4