请教下各位大大：有没有体育项目秒表时间的加减算法?

CLEAR
t1 = "0:10:10.123"
t2 = "+1:1.123"
?ALINES(a1, t1, 5, ":", ".")
LIST MEMORY LIKE a1
?ALINES(a2, t2, 5, "+", ":", ".")
LIST MEMORY LIKE a2

1秒=1000毫秒

你只需要从传入参数中分解出时、分、秒、毫秒的值，加减运算交给vfp去处理，例如：
datetime(1900,1,2,3,4,5)    结果是 1900-01-02 3:04:05
datetime(1900,1,2,3,4,5)+6  结果是 1900-01-02 3:04:11
ttoc(datetime(1900,1,2,3,4,5)+6, 2)  结果是 3:04:11
你对毫秒进行些处理即可

楼主是想这样
HH:MM:SS.SSS的格式显示，加减也是按照HH:MM:SS.SSS的格式

你先这样，标准化你的参数，其他的，就容易了
HMSX = "1:2.1234"

*!* 取HHMMSS.SSS的.后面的前面3位
SSS = SUBSTR(IIF(RAT(".",HMSX)>0,SUBSTR(HMSX,RAT(".",HMSX)+1),"000"),1,3)

*!* 分别取HHMMSS中的SS,MM,HH
HMS = IIF(RAT(".",HMSX)=0,HMSX,SUBSTR(HMSX,1,RAT(".",HMSX)-1))
HMS = CHRTRAN(HMS,".","") && 防止HMS中还有"点"
SS = PADL(SUBSTR(IIF(RAT(":",HMS)>0,SUBSTR(HMS,RAT(":",HMS)+1),HMS),1,2),2,"0")
HM = IIF(RAT(":",HMS)=0,"00",SUBSTR(HMS,1,RAT(":",HMS)-1))
MM = PADL(SUBSTR(IIF(RAT(":",HM)>0,SUBSTR(HM,RAT(":",HM)+1),HM),1,2),2,"0")
HH = PADL(SUBSTR(IIF(RAT(":",HM)=0,"00",SUBSTR(HM,1,RAT(":",HM)-1)),1,2),2,"0")

?"前=",HMSX
?"后="+HH+";"+MM+";"+SS+"."+SSS

看似是时间加减运算，要求精确到1/1000秒（毫秒），结果用时间格式显示。

是的，吹版

平常输入除了完整格式HH:MM:SS.SSS外，为加快输入效率，设定如：+1.123、+1.11.123、-11：1.123、-0.123 。这样的输入格式？

[此贴子已经被作者于2022-7-8 13:26编辑过]

正式应用确实还有很多需要考虑的问题，光是容错就够折腾的，例如：
1. 录入数据包含全角字符
2. 时间分隔符（冒号）多于 2
3. 加减数大于被操作数：秒表('12.345', -13.678)
4. 1:67:89
...
当然也不能用于巴黎达喀尔拉力赛这种距离上万时间半月的比赛，时间差大于24小时的都没考虑

[此贴子已经被作者于2022-7-8 14:03编辑过]

不知有无理解错，觉得先要定义这个“时间”的含义
如果是时点，如“+”时间是时点之后，“-”时间是时点之前。
如：3时+20时==>23时；3时+21时==>0时；3时-3时==>0时；3时-4时==>23时
如果是时间累计是时差累计
如：3个小时+21个小时==24个小时；3个小时-4个小时==-1个小时

结果看似时点数
试试：
? 秒表('3:00:00', '-4:00:00')
? 秒表('3:00:00', '+21:00:00')
是你想要的结果吗?

所以，不只是time的问题，是datetime的问题吧?
in/out格式"hh:mm:ss"可能达不到要求
最好将问题要求详细点说说，对日期、时间有什么限制，例举最好能涉及问题所在。

[此贴子已经被作者于2022-7-8 16:55编辑过]

楼主的问题，处理后的结果，可以大于24小时，但不能小于0

mywisdom88版主理解正确，体育项目一般都是以增加时间为主，一些长时间的项目会跨天，如我上面说的100KM越野，清早5点出发，好多人完赛都要隔天的中午了，跨度十几小时至三十小时不等。也有些体育项目会轻微的减少时间作为奖励，一般是减少分、秒、毫秒。

校对了一下好象有点问题
试试：
? x_秒表加减('2022-07-09T23:59:08.999', '+11:1.124')  && 输出 2022-07-10T01:49:10.123
或简化点：
? x_秒表加减('2022-07-09T23:59:00', '+1:00')  && 输出 2022-07-10T00:09:00.000

土方法，硬拼

CLEAR
c当前 = "32:20:9.419"
c加减 = "-1:8.412"
?c当前
?c加减
?秒表(c当前,c加减)

FUNCTION 秒表(c当前成绩,c加减成绩)
LOCAL c加减,c变动成绩
c当前成绩 = 标准格式(c当前成绩)

IF  OCCURS(".",c加减成绩) > 1
    MESSAGEBOX("加减成绩格式错误，最少包含2个“.”以上!",48,"提示")
    RETURN c当前成绩
ELSE
  
   c加减 = SUBSTR(c加减成绩,1,1)
   
   IF c加减 = "-" && 第一个字符是 -
      c变动成绩 = SUBSTR(c加减成绩,2)
      c变动成绩 = 标准格式(c变动成绩)
      RETURN 减少加时间(c当前成绩,c变动成绩)
   ELSE
      IF INLIST(c加减 , "+" ,":") && 第一个字符是 +或者:
         c变动成绩 = SUBSTR(c加减成绩,2)
      ELSE
         c变动成绩 = c加减成绩
      ENDIF
      c变动成绩 = 标准格式(c变动成绩)
      RETURN 增加时间(c当前成绩,c变动成绩)
   ENDIF
ENDIF   

ENDFUNC

FUNCTION 标准格式(HMSX)
*!* 标准格式 HH:MM:SS.SSS 格式
LOCAL FH,HH,MM,SS,SSS
IF INLIST(SUBSTR(HMSX,1,1),"+","-")
   FH = SUBSTR(HMSX,1,1)
   HMSX = SUBSTR(HMSX,2)
ELSE
   FH = ""
ENDIF      
*!* 取HHMMSS.SSS的.后面的前面3位   
SSS = PADL(SUBSTR(IIF(RAT(".",HMSX)>0,SUBSTR(HMSX,RAT(".",HMSX)+1),"000"),1,3),3,"0")

*!* 分别取HHMMSS中的SS,MM,HH
HMS = IIF(RAT(".",HMSX)=0,HMSX,SUBSTR(HMSX,1,RAT(".",HMSX)-1))
SS = PADL(SUBSTR(IIF(RAT(":",HMS)>0,SUBSTR(HMS,RAT(":",HMS)+1),HMS),1,2),2,"0")
HM = IIF(RAT(":",HMS)=0,"00",SUBSTR(HMS,1,RAT(":",HMS)-1))
MM = PADL(SUBSTR(IIF(RAT(":",HM)>0,SUBSTR(HM,RAT(":",HM)+1),HM),1,2),2,"0")
HH = PADL(SUBSTR(IIF(RAT(":",HM)=0,"00",SUBSTR(HM,1,RAT(":",HM)-1)),1,2),2,"0")

RETURN FH + HH + ":" + MM + ":" + SS + "." + SSS
ENDFUNC

FUNCTION 增加时间(c当前成绩,c变动成绩)
LOCAL HH,HH1,HH2,MM,MM1,MM2,SS,SS1,SS2,SSS,SSS1,SS2
HH1 = INT(VAL(SUBSTR(c当前成绩,1,2)))
MM1 = INT(VAL(SUBSTR(c当前成绩,4,2)))
SS1 = INT(VAL(SUBSTR(c当前成绩,7,2)))
SSS1 = INT(VAL(SUBSTR(c当前成绩,10,3)))

HH2 = INT(VAL(SUBSTR(c变动成绩,1,2)))
MM2 = INT(VAL(SUBSTR(c变动成绩,4,2)))
SS2 = INT(VAL(SUBSTR(c变动成绩,7,2)))
SSS2 = INT(VAL(SUBSTR(c变动成绩,10,3)))

SSS = SSS1 + SSS2
IF SSS >= 1000
   SSS = SSS - 1000
   SS1 = SS1 + 1
ENDIF
SS = SS1 + SS2
IF SS>=60
   SS = SS - 60
   MM1 = MM1 + 1
ENDIF
MM = MM1 + MM2
IF MM>=60
   MM = MM - 60
   HH1 = HH1 + 1
ENDIF   
HH = HH1 + HH2

RETURN PADL(HH,2,"0") + ":" + PADL(MM,2,"0") + ":" + PADL(SS,2,"0") + "." + PADL(SSS,3,"0")
ENDFUNC

FUNCTION 减少加时间(c当前成绩,c变动成绩)
LOCAL HH,HH1,HH2,MM,MM1,MM2,SS,SS1,SS2,SSS,SSS1,SS2
HH1 = INT(VAL(SUBSTR(c当前成绩,1,2)))
MM1 = INT(VAL(SUBSTR(c当前成绩,4,2)))
SS1 = INT(VAL(SUBSTR(c当前成绩,7,2)))
SSS1 = INT(VAL(SUBSTR(c当前成绩,10,3)))

HH2 = INT(VAL(SUBSTR(c变动成绩,1,2)))
MM2 = INT(VAL(SUBSTR(c变动成绩,4,2)))
SS2 = INT(VAL(SUBSTR(c变动成绩,7,2)))
SSS2 = INT(VAL(SUBSTR(c变动成绩,10,3)))

IF SSS1 >= SSS2
   SSS = SSS1 - SSS2
ELSE
   SSS = SSS1 - SSS2 + 1000
   SS1 = SS1 - 1
ENDIF
   
IF SS1 >= SS2
   SS = SS1 - SS2
ELSE
   SS = SS1 - SS2 + 60
   MM1 = MM1 - 1
ENDIF

IF MM1 >= MM2
   MM = MM1 - MM2
ELSE
   MM = MM1 - MM2 + 60
   HH1 = HH1 - 1
ENDIF

HH = HH1 - HH2
IF HH < 0
   MESSAGEBOX("减少变动成绩大于当前成绩，成绩不变！",48,"提示")
   RETURN c当前成绩
ELSE
RETURN PADL(HH,2,"0") + ":" + PADL(MM,2,"0") + ":" + PADL(SS,2,"0") + "." + PADL(SSS,3,"0")
ENDIF
ENDFUNC

通常是转换成数值（秒）进行加减运算后再转换成显示格式

相关 windows API 有：

typedef struct _FILETIME {
    DWORD dwLowDateTime;
    DWORD dwHighDateTime;
} FILETIME, *PFILETIME, *LPFILETIME;
 
typedef struct _SYSTEMTIME {
    WORD wYear;
    WORD wMonth;
    WORD wDayOfWeek;
    WORD wDay;
    WORD wHour;
    WORD wMinute;
    WORD wSecond;
    WORD wMilliseconds;
} SYSTEMTIME, *LPSYSTEMTIME;

FILETIME和SYSTEMTIME都只是记录时间的结构。
GetLocalTime能够得到本地电脑设置时区的时间，得到的类型是SYSTEMTIME的类型。
常用转换函数：
LONG WINAPI CompareFileTime(const FILETIME *lpft1, const FILETIME *lpft2);
BOOL WINAPI FileTimeToSystemTime(const FILETIME *lpft, LPSYSTEMTIME lpst);
BOOL WINAPI SystemTimeToFileTime(const SYSTEMTIME *lpst, LPFILETIME lpft);
BOOL WINAPI FileTimeToLocalFileTime(const FILETIME *lpft, LPFILETIME lpftLocal);
BOOL WINAPI LocalFileTimeToFileTime(const FILETIME *lpftLocal, LPFILETIME lpft);

FILETIME 涉及到64位数值运算，可惜VFP不支持。

简单写个模拟64位加减法，可以用来处理 FILETIME 的加减运算

[此贴子已经被作者于2022-7-14 17:00编辑过]