问题[datetime](coding)

给定当前日期，我需要使用 Perl DateTime模块获取昨天的日期。

当天的当前时间并不重要。我只需要昨天的日期，所以我认为我可以在减去一天之前截断当天的时间值。

这看起来应该足够简单，但我最终得到了错误的结果。

use DateTime;
use strict;
use warnings;

my $today = DateTime->now(time_zone => 'local');

# Set time zone to UTC before performing math (see DateTime documentation)
$today->set_time_zone('UTC');
my $yesterday = $today->clone->truncate(to => 'day')->subtract(days => 1);

# Set time zone back to local
$today->set_time_zone('local');
$yesterday->set_time_zone('local');

print "YESTERDAY: ".$yesterday->strftime("%m/%d/%Y")."\n";
print "    TODAY: ".$today->strftime("%m/%d/%Y")."\n";

此代码输出：

YESTERDAY: 11/30/2024
    TODAY: 12/02/2024

请注意，如果我不这样做，->truncate(to => 'day')我似乎会得到正确的结果，但我仍然对截断日期时间会导致结果改变这一事实感到困惑。

有人知道为什么会发生这种情况吗？

在我的一个 MySQL 5.7 表中，有一列具有奇怪的日期时间格式。它看起来像这样：

2024-08-09 20:57:31.4477

我正在尝试使用此查询将其转换为日期格式 m/d/Y。以下是我目前正在尝试的操作：

update table set `column1` = 
CASE column1
    WHEN '' THEN NULL 
    ELSE date_format(str_to_date(`column1`, '%Y-%m-%d %H:%i:%s %P'), '%m/%d/%Y')
END;

但我收到以下错误：

Incorrect datetime value: '2024-08-09 20:57:31.4477' for function str_to_date

当尝试比较日期时间列时，我也使用了这种格式： '%Y-%m-%d %H:%i:%s %p'但我收到了同样的错误。

对于上述日期时间，我应该在 str_to_date 中使用什么格式？

我尝试使用这些格式：

'%Y-%m-%d %H:%i:%s.%P'
'%Y-%m-%d %H:%i:%s.%p'
'%Y-%m-%d %H:%i:%s.%s'

仍然出现同样的错误。

[23] > my $now = DateTime.now
2024-09-29T14:59:10.178051+08:00
[24] > my $eight-hours-later = Date.today.DateTime.later(:8hours)
2024-09-29T08:00:00Z

[25] > $now - $eight-hours-later
-3649.82194842
[26] > $now.timezone
28800
[27] > $eight-hours-later.timezone
0
[28] > Date.today.DateTime.timezone
0
[29] > $now.WHAT
(DateTime)
[30] $eight-hours-later.WHAT
(DateTime)

在上面的 REPL 中，$now和$eight-hours-later都是DateTime，但是为什么$now时区为28800和$eight-hours-later时区为0，导致时区不同。

我的 Raku 版本是：

Welcome to Rakudo v2024.05.1.
Implementing the Raku Programming Language v6.d.
Built on MoarVM version 2024.05

我正在处理一张处理商品未来数据（财务数据，几乎像股票数据，但每月的到期日可以延伸到未来两到三年）的工作表。

我的数据有符号、到期日和收盘价，大约有 600 行。例如，每种商品都有一个两个字符的代码；

商品代码/符号

标普 500 E-迷你 ES

纳斯达克 100 E-迷你 NQ

罗素 2000 E-迷你 RTY

道琼斯期货迷你YM

金牌 GC

玉米ZC

大豆ZS

每种商品都有多个月度到期日，最长可达 3 年或更长时间，但我只想使用两年。每个月都有一个字符代码来表示月份，以及年份的最后两位数字。例如，2024 年 1 月编码为“F24”。

月份：一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月

符号：FGHJKMNQUVXZ

准备数据表的懒惰方法（FIXED SHEET）： [懒惰的到期日历数据：图像]（https://isstatic.askoverflow.dev/nSp9NBQP.png）

在惰性方法四年（48 列“月份”）日历中，表示未来到期月份，在“锚定列 C4”中唯一的动态值是年份。月份列有固定的月份代码，从一月代码“F”开始，依此类推；

   |← Current year - 1 →|← Current year → | ← Current year+1 → |← Current year+2 →|

明显的问题是，例如，当当前月份是八月“Q”时，前8列是空的，而我想在另一张紧凑的表格中显示这个日历的范围，因此空值对表格没有好处！

**动态数据表（动态表）：** 要显示 24 个月的数据（~两年），固定列 B1（用于月份）和 B2（用于月份和年份代码），在第一列中将当前月份作为 MONTH(NOW()) 获取，然后在 C1 到 Z1 中计算接下来的 24 个月我使用这个公式；

=MONTH(EOMONTH(NOW(),0)+30+(IF(MOD(B1,2)=1,1,0)))

后续列将 30、60、90、120..天数固定到 B1 列。如果月份有 31 天，则通过公式 IF(MOD(B1,2)=1,1,0) 添加一天

为了对年份和月份代码的最后两位数字进行编码，我在锚列 B2 中使用了此公式；

=CHOOSE(B1,"F","G","H","J","K","M","N","Q","U","V","X","Z") & RIGHT(YEAR(NOW()),2) 然后后续到期列 C2,D2...Z2 计算如下：

=CHOOSE(C1,"F","G","H","J","K","M","N","Q","U","V","X","Z")&RIGHT(YEAR(EOMONTH(NOW(),0)+30+(IF(MOD(A1,2)=1,1,0))),2)

为了自动计算年份，我添加了额外的天数 30,30..720。

要使用 sheet，请进行复制：

https://docs.google.com/spreadsheets/d/1ThGY8cH0zRTQSWM2k7aHCwZrnVpd88gXXS7jgx9Iy2s/edit?usp=sharing

到目前为止，我的应用程序正在运行，我正在用它来交易期货合约，我想知道我是否可以提高性能或效率。

我知道以前有人问过这个问题，但是我无法处理时区等问题，所以无法理解。

我的 React 应用目前正在渲染日历，但我在处理时区问题时遇到了困难。事件的日期以 UTC 格式存储，我检索事件列表并渲染它们。我想以用户的本地时间显示每个事件的开始时间，但我无法让它工作。我也安装了date-fns-tz，但它似乎没有做任何不同的事情。

目前，对于每个事件，我都有一个startDateUTC，如下所示：2024-08-27T08:30:00.0000000。

如果我使用它来显示format(startDate, "HH:mm")我得到：（08:30正如预期的那样）。

然而，在我的时区（“欧洲/伦敦”），这个活动实际上将于 9.30（我的时间）开始，这就是我想要显示的。

我可以使用从浏览器获取时区const tz = Intl.DateTimeFormat().resolvedOptions().timeZone;，但我不确定如何使用它来转换和显示时间。

我尝试使用 date-fns-tz 版本的格式：format(startDate, "HH:mm", { timeZone: "Europe/London" })但仍然得到 8:30。

我还尝试过toZonedTime：toZonedTime(startDate, "Europe/London")将 startDate 转换为Tue Aug 27 2024 08:30:00 GMT+0100 (British Summer Time)- 我不确定这是否是正确的时间（英国夏令时比 UTC 早 1 小时，因此是 UTC+1）。无论如何，当我将其打印出来时，它仍然显示为 8:30。

有人能帮助我吗？本质上，我的 UTC 开始日期是 8:30；但是，当活动开始时，我的手表将显示 9:30，所以我想要显示 9:30。

我使用了以下公式：

= ArrayFormula(SUM(min(A2:A1294)*(U2:U1294="")))

A列包含时间戳，我得到的结果为“46809654.36”。

我想将其转换为“2020. 5. 1 pm 5:27:01”这样的格式，但它不会改变。我该如何解决这个问题？

以下示例演示了该问题：

var
   fdt, fndt : Double;
   dt, dt2 : TDateTime;
begin
    dt := EncodeDateTime(2023, 12, 31, //
        20, 10, 5, 100);
    dt2 := EncodeTime(20, 10, 5, 100);
    fdt := Frac(dt);
    fndt := Frac(dt2);
    Memo1.Lines.Add('Equal: ' + BoolToStr(fdt = fndt, True) + CRLF + //
        FloatToStr(fdt) + CRLF +  //
        FloatToStr(fndt) + CRLF +  //
        FormatDateTime('HH:NN:SS ZZZ', fdt) + CRLF +  //
        FormatDateTime('HH:NN:SS ZZZ', fndt) + CRLF +  //
        ''
        );
    Exit;

结果是：

 Equal: False 
 0,840336805558763 
 0,840336805555556 
 20:10:05 100
 20:10:05 100

因此，正如您所看到的，时间部分与 Double 不同，但与格式化字符串相同。

为什么它们不同？

据我所知，EncodeDateTime 执行的是 EncodeDate + EncodeTime。并且 Date = Trunc(Date)。因此小数部分必须相同！但事实并非如此。为什么？也许是一些时区信息？

感谢您提供关于此的任何信息。

环境：Win 11，Delphi S10，32 位 Exe。时区：欧洲/布达佩斯 (+2/+1)。

受https://perlmaven.com/datetime的启发，我试图找到 2024-01-03T19:00:00 和 2024-01-07T16:00:00 （93 小时）之间的差异小时数。

#!/usr/bin/env perl

use 5.038;
use warnings FATAL => 'all';
use autodie ':default';
use DDP;
use Devel::Confess 'color';
use DateTime;

sub str_to_date ($date) {
    if ($date =~ m/^(\d+) # year
    \-(\d{1,2})           # month
    \-(\d{1,2})           # day
    T
    (\d+)                        # hour
    :
    (\d+)                        # minutes
    :
    (\d+)                        # seconds                  
    /x) {
        return DateTime -> new(
        year  => $1,
        month => $2,
        day   => $3,
        hour    => $4,
        minute=> $5,
        second=> $6,
    );
    } else {
        die "$date failed regex.";
    }
} # later dates are "greater"
my $wed_date = str_to_date('2024-01-03T19:00:00');
say $wed_date->day;
my $sun_date = str_to_date('2024-01-07T16:00:00');
my $diff = $sun_date - $wed_date; # returns a duration object

p $diff;
say $diff->clock_duration->in_units('hours'); # 21, but should be 93
say $diff->in_units('hours'); # 21 again
say $diff->hours; # 21 again
say $sun_date->delta_days($wed_date)->in_units('hours'); # 0
p $diff->deltas;

我从https://metacpan.org/pod/DateTime::Format::Duration找到的所有方法都给出了错误的答案。

或者，如果我删除解析，

#!/usr/bin/env perl
use 5.038;
use warnings FATAL => 'all';
use autodie ':default';
use DDP;
use Devel::Confess 'color';
use DateTime;

my $wed_date = DateTime->new(
    year => 2024,
    month=>1,
    day=>3,
    hour=>19
);#str_to_date('2024-01-03T19:00:00');
my $sun_date = DateTime->new(
    year=>2024,
    month=>1,
    day=>7,
    hour=>16#my $sun_date = str_to_date('2024-01-07T16:00:00');
);#
say $wed_date->day;

my $diff = $sun_date - $wed_date;

p $diff;
say $diff->clock_duration->in_units('hours'); # 21, but should be 93
say $diff->in_units('hours'); # 21 again
say $diff->hours; # 21 again
say $sun_date->delta_days($wed_date)->in_units('hours'); # 0
p $diff->deltas; # 10

答案是相同的。

DateTime::Duration 对象似乎忽略了中间的天数，而只关注小时之间的差异。

如何获得两个日期之间正确的小时数？

我在 SAS 中有两个不同的字符时间戳，需要将它们转换为日期时间 (24H) 值。
实现这一目标的首选方法是什么？

样品1

01-12-2023 09:51 AM
24-08-2023 02:38 PM

期望的输出：

01-12-2023 09:51:00
24-08-2023 14:38:00

我对示例 1 的解决方案（不确定这是否是最好的）

PROC FORMAT;
    picture dmyhms
        . = ' ' 
        other = '%0d-%0m-%0Y %0H:%0M:%0S' (datatype=datetime);
RUN;

INPUT(CATX(" ", SUBSTR(event, 1, 10), SUBSTR(event, 12, 8)),anydtdtm.) FORMAT dmyhms. AS event_dt

样品2

20240112T000000.000 GMT
20230929T000000.000 GMT

期望的输出：

12-01-2024
29-09-2023

我对示例 2 的解决方案（不确定这是否是最好的）

INPUT(SUBSTR(event, 1, 8), yymmdd8.) FORMAT=ddmmyyd10. as event_d

非常感谢任何帮助！

在 Dataweave 2.0 中使用此命令：

"08:05:30" as DateTime{format: "hh:mm:ss"} as String {format: "hh:mm:ss"}

我有这个错误：

Unable to obtain ZonedDateTime from TemporalAccessor

怎么解决呢？我的整个问题是转变：

"Wed Oct 18 2023 08:05:30 GMT-0000 (GMT)"

到

"2012-10-11T12:30:40-03:00"

我试过 ：

"Wed Oct 18 2023 08:05:30 GMT-0000 (GMT)" as DateTime{format: 'E MMM dd yyyy hh:mm:ss zXX O'} as String {format: "yyyy-MM-dd'T'hh:mm:ssO"}

太感谢了 ！