8 digit verification format like this 12:30:27 %hh:%ii:%ss
12:30:27 true
a9:10:22 false
1:44:53 false..
Code: Select all
Procedure isInt(n.s)
Protected.i p,l,ok
For l= 1 To Len(n)
For p='0' To '9'
If Chr(p)=Mid(n,l,1)
ok+1
EndIf
Next p
Next l
If ok=Len(n)
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure
Procedure isTime(time.s)
If isInt(Mid(time,1,2)) And isInt(Mid(time,4,2)) And isInt(Mid(time,7,2)) And Mid(time,3,1)=":" And Mid(time,6,1)=":" And Len(time)=8
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure
CompilerIf #PB_Compiler_IsMainFile
Debug isTime("22:10:00")
Debug isTime("02:03:aa")
CompilerEndIf