Category : Pascal Source Code
Archive   : TPDB311.ZIP
Filename : TPDBDATE.TPU
F ~ Â ù 1÷ *! » Ö \ è x ä Û YTPDBDATE 5âÖ è YSYSTEM aéè YDOS ñ Ö QDAYSTRÎ æ à
à Î QDATETYPEÖ à QDATESTRPÎ æ à à @Î QTIMESTR{Î
æ à à kÎ QSTR9£Î æ à
à Î SCALCDATE v
PÎ PÎ Æ à Æ à Æ à ¯SCDOW ´
Î PÎ SCMONTH
£Î PÎ S COMPDATES ñ
Ö à PÎ PÎ SCTOD ÷
Ö à PÎ VSDTOC '
PÎ Ö à SMON l
¶ à PÎ STIMENOW <
{Î STODAY$
PÎ S VALIDDATE( Y
þ à PÎ SFORMDATE,
à PÎ ~  ù^ 1÷ È *O » Ö \ è x ä * ÷ Û; RMONTHS ëÎ æ à x £Î ÛÎ RTEMP Æ à RMONTH Æ à RDAY Æ à RYEAR Æ à RERRCODE Æ à !RMM
}Î RDD }Î æ à à mÎ RYY ¨Î æ à à Î Ñç RINDATEöÿäPÎ R DAYOFWEEKôÿäÆ à ¾RDOWòÿäÆ à RINDATEôÿVPÎ RJULIANòÿVÖ à 1D RJULIAN xÖ à RLONGTEMPüÿxæ à c RINDATEöÿùPÎ ÜÉ · RINDATEöÿ¯PÎ RDAYS
¯Æ à RMONTHS ¯Æ à ¤RYEARS ¯Æ à RJULIANôÿ¯Ö à RTEMPDATEêÿ¯PÎ û
RDATE1ôÿ*PÎ RDATE2êÿ*PÎ ) RINDATEöÿPÎ ® Ù RHOURþÿ»Ö à RMINUTEüÿ»Ö à FRSECONDúÿ»Ö à jRSEC100øÿ»Ö à }RHHôÿ»ÍÎ WRMMðÿ»ÍÎ RSSìÿ»ÍÎ æ à à ½Î RTEMPâÿ»úÎ æ à à êÎ RCODEàÿ»Æ à EW4 RMMONTHþÿÛÖ à RMDAYüÿÛÖ à !RMYEARúÿÛÖ à RMDAYOFWKøÿÛÖ à v RINDATEöÿPÎ RTEMPõÿ¶ à · RINDATEöÿ PÎ ¤ROUTDATEìÿ ÛÎ æ à à ËÎ ÿÿÿÿ 9 0 ( H 8 @ P @ g0# â°J ³| H H µ ~ ` Å «Ô â ¨ ì i @ ÿ ± h x SYSTEM TPDBDATE DOS & TPDBDATE.PASä 9 T "r6 T
V s "&&&