{"id":25415,"date":"2020-11-16T08:56:36","date_gmt":"2020-11-16T01:56:36","guid":{"rendered":"https:\/\/tom.ji42.com\/?p=25415"},"modified":"2020-11-16T08:56:36","modified_gmt":"2020-11-16T01:56:36","slug":"%e0%b8%a7%e0%b8%b1%e0%b8%99%e0%b8%97%e0%b8%b5%e0%b9%88","status":"publish","type":"post","link":"https:\/\/tom.tomwork.net\/?p=25415","title":{"rendered":"\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48"},"content":{"rendered":"

\u0e2b\u0e25\u0e32\u0e22\u0e46\u0e17\u0e48\u0e32\u0e19\u0e04\u0e07\u0e08\u0e30\u0e1e\u0e1a\u0e1b\u0e30\u0e2a\u0e31\u0e07\u0e2a\u0e23\u0e23\u0e04\u0e4c\u0e1b\u0e31\u0e0d\u0e2b\u0e32\u0e40\u0e01\u0e35\u0e48\u0e22\u0e27\u0e01\u0e31\u0e1a\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e01\u0e31\u0e19\u0e1a\u0e49\u0e32\u0e07\u0e1e\u0e2d\u0e2a\u0e21\u0e04\u0e27\u0e23 \u0e44\u0e21\u0e48\u0e27\u0e48\u0e32\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e40\u0e23\u0e37\u0e48\u0e2d\u0e07\u0e02\u0e2d\u0e07 Y2K \u0e0b\u0e36\u0e48\u0e07\u0e1d\u0e23\u0e31\u0e48\u0e07\u0e15\u0e32\u0e19\u0e49\u0e33\u0e02\u0e49\u0e32\u0e27\u0e21\u0e31\u0e19\u0e2b\u0e25\u0e2d\u0e01\u0e0a\u0e32\u0e27\u0e42\u0e25\u0e01\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e25\u0e32\u0e22\u0e43\u0e2b\u0e49\u0e2b\u0e25\u0e07\u0e04\u0e32\u0e23\u0e21\u0e21\u0e32\u0e41\u0e25\u0e49\u0e27 \u0e41\u0e15\u0e48 \u0e1a\u0e48 \u0e21\u0e35\u0e2d\u0e30\u0e43\u0e19\u0e01\u0e2d \u0e44\u0e01\u0e48 \u0e02\u0e2d \u0e44\u0e02\u0e48 \u0e21\u0e35\u0e41\u0e15\u0e48\u0e40\u0e2a\u0e35\u0e22\u0e15\u0e31\u0e07 \u0e42\u0e14\u0e22\u0e2a\u0e48\u0e27\u0e19\u0e15\u0e31\u0e27 Y2K \u0e2b\u0e23\u0e37\u0e2d\u0e2d\u0e30\u0e44\u0e23\u0e1e\u0e27\u0e01\u0e19\u0e35\u0e49\u0e16\u0e49\u0e32\u0e40\u0e23\u0e32\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e01\u0e32\u0e23\u0e1b\u0e49\u0e2d\u0e19 \u0e1b\u0e35 \u0e40\u0e1b\u0e47\u0e19\u0e41\u0e1a\u0e1a 4 \u0e2b\u0e25\u0e31\u0e01\u0e41\u0e25\u0e49\u0e27\u0e1b\u0e31\u0e0d\u0e2b\u0e32\u0e01\u0e47\u0e44\u0e21\u0e48\u0e21\u0e35 \u0e40\u0e23\u0e32\u0e08\u0e30\u0e43\u0e0a\u0e49\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e01\u0e33\u0e2b\u0e19\u0e14 \u0e1b\u0e35\u0e40\u0e1b\u0e47\u0e19 4 \u0e2b\u0e25\u0e31\u0e01 \u0e14\u0e31\u0e07\u0e19\u0e35\u0e49<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0 SET CENTURY ON<\/span><\/p>\n

\u0e41\u0e15\u0e48\u0e1b\u0e23\u0e30\u0e40\u0e14\u0e47\u0e19\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e08\u0e30\u0e21\u0e32\u0e14\u0e39\u0e01\u0e31\u0e19\u0e04\u0e37\u0e2d \u0e08\u0e30\u0e17\u0e33\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23\u0e01\u0e31\u0e1a\u0e1f\u0e34\u0e25\u0e14\u0e4c\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e14\u0e35 \u0e41\u0e25\u0e49\u0e27\u0e2d\u0e22\u0e32\u0e01\u0e08\u0e30\u0e43\u0e2b\u0e49\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e40\u0e1b\u0e47\u0e19\u0e41\u0e1a\u0e1a\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23 (\u0e1c\u0e39\u0e49\u0e40\u0e02\u0e35\u0e22\u0e19\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e15\u0e48\u0e32\u0e07\u0e2b\u0e32\u0e01)<\/p>\n

\u0e2d\u0e22\u0e32\u0e01\u0e43\u0e2b\u0e49\u0e1f\u0e34\u0e25\u0e14\u0e4c\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48 \u0e41\u0e2a\u0e14\u0e07\u0e40\u0e1b\u0e47\u0e19 \u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e41\u0e1a\u0e1a \u0e44\u0e17\u0e22\u0e46 \u0e40\u0e0a\u0e48\u0e19 10 \u0e01\u0e31\u0e19\u0e22\u0e32\u0e22\u0e19 2543 (\u0e27\u0e31\u0e19\u0e04\u0e23\u0e1a\u0e23\u0e2d\u0e1a 2 \u0e02\u0e27\u0e1a \u0e02\u0e2d\u0e07 web site\u00a0 \u0e44\u0e27\u0e40\u0e2b\u0e21\u0e37\u0e2d\u0e19\u0e43\u0e08\u0e19\u0e36\u0e01)
\n\u0e40\u0e21\u0e37\u0e48\u0e2d\u0e40\u0e02\u0e49\u0e32\u0e44\u0e1b\u0e1b\u0e49\u0e2d\u0e19\u0e2d\u0e22\u0e32\u0e01\u0e1b\u0e49\u0e2d\u0e19\u0e2a\u0e31\u0e49\u0e19\u0e46 \u0e41\u0e04\u0e48 10\/09\/2543
\n\u0e41\u0e25\u0e49\u0e27\u0e16\u0e49\u0e32\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e1b\u0e49\u0e2d\u0e19 \u0e40\u0e1b\u0e47\u0e19 2000 \u0e01\u0e47\u0e43\u0e2b\u0e49\u0e41\u0e1b\u0e25\u0e07\u0e21\u0e32\u0e40\u0e1b\u0e47\u0e19 2543 \u0e43\u0e2b\u0e49\u0e14\u0e49\u0e27\u0e22\u0e01\u0e47\u0e14\u0e35
\n\u0e1e\u0e2d\u0e1b\u0e49\u0e2d\u0e19\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e01\u0e47\u0e43\u0e2b\u0e49\u0e41\u0e2a\u0e14\u0e07\u0e01\u0e25\u0e31\u0e1a\u0e40\u0e1b\u0e47\u0e19\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e40\u0e01\u0e48\u0e32 10 \u0e01\u0e31\u0e19\u0e22\u0e32\u0e22\u0e19 2543
\n\u0e41\u0e25\u0e30\u0e2a\u0e34\u0e48\u0e07\u0e17\u0e35\u0e48\u0e02\u0e32\u0e14\u0e21\u0e34\u0e44\u0e14\u0e49\u0e04\u0e37\u0e2d\u0e15\u0e23\u0e27\u0e08\u0e2a\u0e2d\u0e1a\u0e01\u0e32\u0e23\u0e1b\u0e49\u0e2d\u0e19\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e27\u0e48\u0e32\u0e16\u0e39\u0e01\u0e15\u0e49\u0e2d\u0e07\u0e2b\u0e23\u0e37\u0e2d\u0e40\u0e1b\u0e25\u0e48\u0e32<\/span><\/p>\n

\u0e40\u0e23\u0e32\u0e21\u0e32\u0e40\u0e23\u0e34\u0e48\u0e21\u0e01\u0e31\u0e19\u0e40\u0e25\u0e22\u0e25\u0e30\u0e01\u0e31\u0e19\u0e04\u0e23\u0e31\u0e1a<\/span><\/p>\n

\u0e43\u0e2b\u0e49\u0e04\u0e38\u0e13\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e15\u0e48\u0e32\u0e07\u0e46\u0e14\u0e31\u0e07\u0e19\u0e35\u0e49\u0e01\u0e48\u0e2d\u0e19\u0e04\u0e23\u0e31\u0e1a<\/span><\/p>\n

*BC2BE.PRG
\n***************************************************************
\n* Function Convert date from BC to BE
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…… \u0e41\u0e1b\u0e25\u0e07\u0e04\u0e48\u0e32\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e08\u0e32\u0e01 \u0e04.\u0e28. \u0e40\u0e1b\u0e47\u0e19 \u0e1e.\u0e28.
\n* —\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07…… cTDATE=BC2BE(DATE())
\n***************************************************************
\nFUNC BC2BE
\nPARA BCDATE && \u0e04.\u0e28.
\nIF TYPE(‘BCDATE’)#’D’
\nRETURN ”
\nENDIF
\nLOCAL cDD,cMM
\ncDD = ALLT(STR(DAY(BCDATE),2))
\ncDD = IIF(LEN(cDD)=1,”0″+cDD,cDD)
\ncMM = ALLT(STR(MONTH(BCDATE),2))
\ncMM = IIF(LEN(cMM)=1,”0″+cMM,cMM)
\nRETU cDD+’\/’+cMM+’\/’+STR(YEAR(BCDATE)+543,4)<\/p>\n

*BE2BC.PRG
\n***************************************************************
\n* Function Convert date from BE to BC
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…… \u0e41\u0e1b\u0e25\u0e07\u0e04\u0e48\u0e32\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e08\u0e32\u0e01 \u0e1e.\u0e28. \u0e40\u0e1b\u0e47\u0e19 \u0e04.\u0e28.
\n*– \u0e19\u0e33\u0e44\u0e1b\u0e43\u0e0a\u0e49…… dEDATE=BE2BC(’25\/03\/2543′)
\n***************************************************************
\nFUNC BE2BC
\nPARA BEDATE && DD\/MM\/YYYY \u0e1e.\u0e28.
\nLOCAL nDD,nMM,nYYYY
\nIF TYPE(‘BEDATE’)#’C’
\nRETURN ”
\nENDIF
\nnDD = VAL(SUBST(BEDATE,1,2))
\nnMM = VAL(SUBST(BEDATE,4,2))
\nnYYYY = VAL(SUBST(BEDATE,7,4))-543
\nIF TYPE(‘nDD’)#’N’ .OR. TYPE(‘nMM’)#’N’ .OR. TYPE(‘nYYYY’)#’N’
\nRETURN ”
\nELSE
\nIF nDD > 0 .AND. nMM > 0 .AND. nYYYY > 0
\nRETURN DATE(nYYYY,nMM,nDD)
\nENDIF
\nENDIF
\nRETURN ”<\/p>\n

*BE2TD.PRG
\n***************************************************************
\n* —FUNCTION BE2TD
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…… \u0e41\u0e1b\u0e25\u0e07\u0e04\u0e48\u0e32\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e44\u0e17\u0e22\u0e40\u0e1b\u0e47\u0e19\u0e41\u0e1a\u0e1a\u0e20\u0e32\u0e29\u0e32\u0e44\u0e17\u0e22\u0e40\u0e15\u0e47\u0e21\u0e22\u0e28
\n*– \u0e19\u0e33\u0e44\u0e1b\u0e43\u0e0a\u0e49…… cTdate=BE2TD(’12\/01\/2543′)
\n***************************************************************
\nFUNC BE2TD
\nPARA cTDATE
\nIF TYPE(‘cTDATE’)#’C’
\nRETURN ”
\nENDIF
\nRETURN SUBST(cTDATE,1,2) + ‘ ‘ + ;
\nTCMONTH(BE2BC(cTDATE)) + ‘ ‘ + ;
\nSUBST(cTDATE,7,4)<\/p>\n

*TD2BE.PRG
\n***************************************************************
\n* —FUNCTION TD2BE
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…… \u0e41\u0e1b\u0e25\u0e07\u0e04\u0e48\u0e32\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e44\u0e17\u0e22\u0e40\u0e15\u0e47\u0e21\u0e40\u0e1b\u0e47\u0e19\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e44\u0e17\u0e22
\n*– \u0e19\u0e33\u0e44\u0e1b\u0e43\u0e0a\u0e49…… cTdate=TD2BE(’12 \u0e21\u0e01\u0e23\u0e32\u0e04\u0e21 2543’)
\n***************************************************************
\nFUNC TD2BE
\nPARA cTDATE
\nLOCAL cMM,nMM
\nSTOR SPACE(2) TO nMM
\nIF TYPE(‘cTDATE’)#’C’
\nRETURN ”
\nENDIF
\nDO CASE
\nCASE AT(‘\u0e21\u0e01\u0e23\u0e32\u0e04\u0e21’, cTDATE) > 0
\ncMM = ‘\u0e21\u0e01\u0e23\u0e32\u0e04\u0e21’
\nnMM = ’01’
\nCASE AT(‘\u0e01\u0e38\u0e21\u0e20\u0e32\u0e1e\u0e31\u0e19\u0e18\u0e4c’, cTDATE) > 0
\ncMM = ‘\u0e01\u0e38\u0e21\u0e20\u0e32\u0e1e\u0e31\u0e19\u0e18\u0e4c’
\nnMM = ’02’
\nCASE AT(‘\u0e21\u0e35\u0e19\u0e32\u0e04\u0e21’, cTDATE) > 0
\ncMM = ‘\u0e21\u0e35\u0e19\u0e32\u0e04\u0e21’
\nnMM = ’03’
\nCASE AT(‘\u0e40\u0e21\u0e29\u0e32\u0e22\u0e19’, cTDATE) > 0
\ncMM =’\u0e40\u0e21\u0e29\u0e32\u0e22\u0e19’
\nnMM = ’04’
\nCASE AT(‘\u0e1e\u0e24\u0e29\u0e20\u0e32\u0e04\u0e21’, cTDATE) > 0
\ncMM = ‘\u0e1e\u0e24\u0e29\u0e20\u0e32\u0e04\u0e21’
\nnMM = ’05’
\nCASE AT(‘\u0e21\u0e34\u0e16\u0e38\u0e19\u0e32\u0e22\u0e19’, cTDATE) > 0
\ncMM = ‘\u0e21\u0e34\u0e16\u0e38\u0e19\u0e32\u0e22\u0e19’
\nnMM = ’06’
\nCASE AT(‘\u0e01\u0e23\u0e01\u0e0e\u0e32\u0e04\u0e21’, cTDATE) > 0
\ncMM = ‘\u0e01\u0e23\u0e01\u0e0e\u0e32\u0e04\u0e21’
\nnMM = ’07’
\nCASE AT(‘\u0e2a\u0e34\u0e07\u0e2b\u0e32\u0e04\u0e21’, cTDATE) > 0
\ncMM = ‘\u0e2a\u0e34\u0e07\u0e2b\u0e32\u0e04\u0e21’
\nnMM = ’08’
\nCASE AT(‘\u0e01\u0e31\u0e19\u0e22\u0e32\u0e22\u0e19’, cTDATE) > 0
\ncMM = ‘\u0e01\u0e31\u0e19\u0e22\u0e32\u0e22\u0e19’
\nnMM = ’09’
\nCASE AT(‘\u0e15\u0e38\u0e25\u0e32\u0e04\u0e21’, cTDATE) > 0
\ncMM = ‘\u0e15\u0e38\u0e25\u0e32\u0e04\u0e21’
\nnMM = ’10’
\nCASE AT(‘\u0e1e\u0e24\u0e28\u0e08\u0e34\u0e01\u0e32\u0e22\u0e19’, cTDATE) > 0
\ncMM = ‘\u0e1e\u0e24\u0e28\u0e08\u0e34\u0e01\u0e32\u0e22\u0e19’
\nnMM = ’11’
\nCASE AT(‘\u0e18\u0e31\u0e19\u0e27\u0e32\u0e04\u0e21’, cTDATE) > 0
\ncMM = ‘\u0e18\u0e31\u0e19\u0e27\u0e32\u0e04\u0e21’
\nnMM = ’12’
\nENDCASE
\nIF !EMPTY(nMM)
\nRETURN ALLT(LEFT(cTDATE,ATC(cMM,cTDATE)-1))+ ;
\n‘\/’+nMM+’\/’ + RIGHT(cTDATE,LEN(cTDATE)- ;
\n(ATC(cMM,cTDATE)+LEN(cMM)))
\nENDIF
\nRETURN ”<\/p>\n

*CHKTD.PRG
\n***************************************************************
\n* —FUNCTION CHKTD
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…… \u0e15\u0e23\u0e27\u0e08\u0e2a\u0e2d\u0e1a\u0e01\u0e32\u0e23\u0e1b\u0e49\u0e2d\u0e19\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e44\u0e17\u0e22
\n*– \u0e19\u0e33\u0e44\u0e1b\u0e43\u0e0a\u0e49…… LDate=CHKTD(’22\/01\/2543′) return .T. or .F.
\n***************************************************************
\nFUNC CHKTD
\nPARA BEDATE && \u0e1e.\u0e28.
\nIF TYPE(‘BEDATE’)#’C’
\nRETURN .F.
\nENDIF
\nON ERROR mABC= ERROR()
\nLOCAL nDD,nMM,nYYYY,XXX,mABC
\nmABC=0
\nnDD = VAL(SUBSTR(BEDATE,1,2))
\nnMM = VAL(SUBSTR(BEDATE,4,2))
\nnYYYY = VAL(SUBSTR(BEDATE,7,4))-543
\nXXX=DATE(nYYYY,nMM,nDD)
\nON ERROR
\nIF mABC # 0 .OR. EMPTY(XXX)
\nRETURN .F.
\nENDIF
\nRETURN .T.<\/span><\/p>\n

*TCMONTH.PRG
\n***************************************************************
\n* —FUNCTION TCMONTH
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…… \u0e41\u0e1b\u0e25\u0e07\u0e04\u0e48\u0e32\u0e40\u0e14\u0e37\u0e2d\u0e19\u0e40\u0e1b\u0e47\u0e19\u0e20\u0e32\u0e29\u0e32\u0e44\u0e17\u0e22
\n*– \u0e19\u0e33\u0e44\u0e1b\u0e43\u0e0a\u0e49…… mMONTH=TCMONTH(DATE())
\n***************************************************************
\nFUNC TCMONTH
\nPARA dDATE
\nIF TYPE(‘dDATE’)#’D’
\nRETURN ”
\nENDIF
\nDO CASE
\nCASE MONTH(dDATE)=1
\nRETURN ‘\u0e21\u0e01\u0e23\u0e32\u0e04\u0e21’
\nCASE MONTH(dDATE)=2
\nRETURN ‘\u0e01\u0e38\u0e21\u0e20\u0e32\u0e1e\u0e31\u0e19\u0e18\u0e4c’
\nCASE MONTH(dDATE)=3
\nRETURN ‘\u0e21\u0e35\u0e19\u0e32\u0e04\u0e21’
\nCASE MONTH(dDATE)=4
\nRETURN ‘\u0e40\u0e21\u0e29\u0e32\u0e22\u0e19’
\nCASE MONTH(dDATE)=5
\nRETURN ‘\u0e1e\u0e24\u0e29\u0e20\u0e32\u0e04\u0e21’
\nCASE MONTH(dDATE)=6
\nRETURN ‘\u0e21\u0e34\u0e16\u0e38\u0e19\u0e32\u0e22\u0e19’
\nCASE MONTH(dDATE)=7
\nRETURN ‘\u0e01\u0e23\u0e01\u0e0e\u0e32\u0e04\u0e21’
\nCASE MONTH(dDATE)=8
\nRETURN ‘\u0e2a\u0e34\u0e07\u0e2b\u0e32\u0e04\u0e21’
\nCASE MONTH(dDATE)=9
\nRETURN ‘\u0e01\u0e31\u0e19\u0e22\u0e32\u0e22\u0e19’
\nCASE MONTH(dDATE)=10
\nRETURN ‘\u0e15\u0e38\u0e25\u0e32\u0e04\u0e21’
\nCASE MONTH(dDATE)=11
\nRETURN ‘\u0e1e\u0e24\u0e28\u0e08\u0e34\u0e01\u0e32\u0e22\u0e19’
\nCASE MONTH(dDATE)=12
\nRETURN ‘\u0e18\u0e31\u0e19\u0e27\u0e32\u0e04\u0e21’
\nENDCASE
\nRETURN ”<\/p>\n

*TM2M.PRG
\n***************************************************************
\n* —FUNCTION TM2M
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…… \u0e41\u0e1b\u0e25\u0e07\u0e04\u0e48\u0e32\u0e40\u0e14\u0e37\u0e2d\u0e19\u0e44\u0e17\u0e22\u0e40\u0e15\u0e47\u0e21\u0e40\u0e1b\u0e47\u0e19\u0e40\u0e14\u0e37\u0e2d\u0e19
\n* —\u0e1c\u0e39\u0e49\u0e40\u0e02\u0e35\u0e22\u0e19…….. Kasem K.
\n* —\u0e27\u0e31\u0e19\u0e41\u0e01\u0e49\u0e44\u0e02……. 12.08.99
\n*– \u0e19\u0e33\u0e44\u0e1b\u0e43\u0e0a\u0e49…… nMonth=TM2M(‘\u0e21\u0e01\u0e23\u0e32\u0e04\u0e21’)
\n***************************************************************
\nFUNCTION TM2M
\nPARAMETER cTMONTH
\nnMM = 0
\nDO CASE
\nCASE AT(‘\u0e21\u0e01\u0e23\u0e32\u0e04\u0e21’, cTMONTH) > 0
\nnMM = 01
\nCASE AT(‘\u0e01\u0e38\u0e21\u0e20\u0e32\u0e1e\u0e31\u0e19\u0e18\u0e4c’, cTMONTH) > 0
\nnMM = 02
\nCASE AT(‘\u0e21\u0e35\u0e19\u0e32\u0e04\u0e21’, cTMONTH) > 0
\nnMM = 03
\nCASE AT(‘\u0e40\u0e21\u0e29\u0e32\u0e22\u0e19’, cTMONTH) > 0
\nnMM = 04
\nCASE AT(‘\u0e1e\u0e24\u0e29\u0e20\u0e32\u0e04\u0e21’, cTMONTH) > 0
\nnMM = 05
\nCASE AT(‘\u0e21\u0e34\u0e16\u0e38\u0e19\u0e32\u0e22\u0e19’, cTMONTH) > 0
\nnMM = 06
\nCASE AT(‘\u0e01\u0e23\u0e01\u0e0e\u0e32\u0e04\u0e21’, cTMONTH) > 0
\nnMM = 07
\nCASE AT(‘\u0e2a\u0e34\u0e07\u0e2b\u0e32\u0e04\u0e21’, cTMONTH) > 0
\nnMM = 08
\nCASE AT(‘\u0e01\u0e31\u0e19\u0e22\u0e32\u0e22\u0e19’, cTMONTH) > 0
\nnMM = 09
\nCASE AT(‘\u0e15\u0e38\u0e25\u0e32\u0e04\u0e21’, cTMONTH) > 0
\nnMM = 10
\nCASE AT(‘\u0e1e\u0e24\u0e28\u0e08\u0e34\u0e01\u0e32\u0e22\u0e19’, cTMONTH) > 0
\nnMM = 11
\nCASE AT(‘\u0e18\u0e31\u0e19\u0e27\u0e32\u0e04\u0e21’, cTMONTH) > 0
\nnMM = 12
\nENDCASE
\nRETURN nMM
\n<\/span><\/p>\n

\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e41\u0e25\u0e49\u0e27 \u0e15\u0e48\u0e2d\u0e21\u0e32\u0e01\u0e47\u0e40\u0e23\u0e34\u0e48\u0e21\u0e2a\u0e23\u0e49\u0e32\u0e07 \u0e04\u0e25\u0e32\u0e2a\u0e22\u0e48\u0e2d\u0e22 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e40\u0e01\u0e47\u0e1a\u0e40\u0e2d\u0e32\u0e44\u0e1b\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e43\u0e19\u0e42\u0e2d\u0e01\u0e32\u0e2a\u0e15\u0e48\u0e2d\u0e44\u0e1b\u0e43\u0e19\u0e20\u0e32\u0e22\u0e20\u0e32\u0e04\u0e2b\u0e19\u0e49\u0e32\u00a0<\/span><\/p>\n

\u0e1e\u0e34\u0e21\u0e1e\u0e4c\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e17\u0e35\u0e48 Command Windows \u0e14\u0e31\u0e48\u0e07\u0e19\u0e35\u0e49<\/span><\/p>\n

CLEATE CLASS<\/span><\/p>\n

\u0e08\u0e32\u0e01\u0e19\u0e31\u0e49\u0e19\u0e1b\u0e49\u0e2d\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e14\u0e31\u0e07\u0e20\u0e32\u0e1e<\/span><\/p>\n

<\/p>\n

\u0e41\u0e25\u0e49\u0e27\u0e01\u0e47\u0e04\u0e25\u0e34\u0e01\u0e1b\u0e38\u0e48\u0e21 OK \u0e08\u0e32\u0e01\u0e19\u0e31\u0e49\u0e19\u0e17\u0e48\u0e32\u0e19\u0e01\u0e47\u0e08\u0e30\u0e40\u0e02\u0e49\u0e32\u0e2a\u0e39\u0e48 Class Designer<\/span><\/p>\n

\u0e01\u0e33\u0e2b\u0e19\u0e14 Property \u0e02\u0e2d\u0e07 Object \u0e14\u0e31\u0e07\u0e19\u0e35\u0e49<\/span><\/p>\n

Alignment\u00a0 = 2-Center
\nFontName = MS Sans Serif
\nFormat = K
\nWidth = 130<\/span><\/p>\n

\u0e17\u0e35\u0e48 Object: txtdateth\u00a0\u00a0\u00a0 Procedure: Valid\u00a0 \u0e1b\u0e49\u0e2d\u0e19\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07<\/span><\/p>\n

LOCAL nYEAR
\nIF This.Value#’ \/ \/ ‘
\nIF SUBSTR(This.Value,7,4) > ‘1800’ AND SUBSTR(This.Value,7,4) < ‘2200’
\nnYEAR=VAL(SUBSTR(This.Value,7,4))+543
\nThis.Value=SUBSTR(This.Value,1,6)+ALLT(STR(nYEAR))
\nENDIF
\nIF SUBSTR(This.Value,7,4) <= ‘1800’ OR SUBSTR(This.Value,7,4) > ‘2743’
\n=MESSAGEBOX(‘\u0e1b\u0e49\u0e2d\u0e19\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e44\u0e21\u0e48\u0e16\u0e39\u0e01\u0e15\u0e49\u0e2d\u0e07’,64,”)
\nRETURN 0
\nENDIF
\nIF !CHKTD(This.Value)
\n=MESSAGEBOX(‘\u0e1b\u0e49\u0e2d\u0e19\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e44\u0e21\u0e48\u0e16\u0e39\u0e01\u0e15\u0e49\u0e2d\u0e07’,64,”)
\nRETURN 0
\nENDIF
\nENDIF<\/span><\/p>\n

\u0e17\u0e35\u0e48 Object: txtdateth\u00a0\u00a0\u00a0 Procedure: LostFocus\u00a0 \u0e1b\u0e49\u0e2d\u0e19\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07<\/span><\/p>\n

IF This.Value#’ \/ \/ ‘
\nThis.Value = BE2TD(This.Value)
\nELSE
\nThis.Value = ”
\nENDIF
\nThis.InputMask = ”<\/span><\/p>\n

\u0e17\u0e35\u0e48 Object: txtdateth\u00a0\u00a0\u00a0 Procedure: GotFocus\u00a0 \u0e1b\u0e49\u0e2d\u0e19\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07<\/span><\/p>\n

IF This.Value#’ \/ \/ ‘
\nThis.Value = TD2BE(This.Value)
\nThis.InputMask = ’99\/99\/9999’
\nENDIF<\/span><\/p>\n

\u0e08\u0e32\u0e01\u0e19\u0e31\u0e49\u0e19\u0e01\u0e47\u0e17\u0e33\u0e01\u0e32\u0e23 \u0e1a\u0e31\u0e19\u0e17\u0e36\u0e01\u0e40\u0e01\u0e47\u0e1a\u0e44\u0e27\u0e49\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e44\u0e14\u0e49\u0e40\u0e25\u0e22\u0e04\u0e23\u0e31\u0e1a\u0e17\u0e48\u0e32\u0e19 \u0e42\u0e14\u0e22\u0e01\u0e14\u0e1b\u0e38\u0e48\u0e21 Ctrl + W<\/span><\/p>\n

Down Load \u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e01\u0e32\u0e23\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19<\/b><\/a><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"

\u0e2b\u0e25\u0e32\u0e22\u0e46\u0e17\u0e48\u0e32\u0e19\u0e04\u0e07\u0e08\u0e30\u0e1e\u0e1a\u0e1b\u0e30\u0e2a\u0e31\u0e07\u0e2a\u0e23\u0e23\u0e04\u0e4c\u0e1b\u0e31\u0e0d\u0e2b\u0e32\u0e40\u0e01\u0e35\u0e48\u0e22\u0e27\u0e01\u0e31\u0e1a\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e01\u0e31\u0e19\u0e1a\u0e49\u0e32\u0e07\u0e1e\u0e2d\u0e2a\u0e21\u0e04\u0e27\u0e23 \u0e44\u0e21\u0e48\u0e27\u0e48\u0e32\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e40\u0e23\u0e37\u0e48\u0e2d\u0e07\u0e02\u0e2d\u0e07 Y2K \u0e0b\u0e36\u0e48\u0e07\u0e1d\u0e23\u0e31\u0e48\u0e07\u0e15\u0e32\u0e19\u0e49\u0e33\u0e02\u0e49\u0e32\u0e27\u0e21\u0e31\u0e19\u0e2b\u0e25\u0e2d\u0e01\u0e0a\u0e32\u0e27\u0e42\u0e25\u0e01\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e25\u0e32\u0e22\u0e43\u0e2b\u0e49\u0e2b\u0e25\u0e07\u0e04\u0e32\u0e23\u0e21\u0e21\u0e32\u0e41\u0e25\u0e49\u0e27 \u0e41\u0e15\u0e48 \u0e1a\u0e48 \u0e21\u0e35\u0e2d\u0e30\u0e43\u0e19\u0e01\u0e2d \u0e44\u0e01\u0e48 \u0e02\u0e2d \u0e44\u0e02\u0e48 \u0e21\u0e35\u0e41\u0e15\u0e48\u0e40\u0e2a\u0e35\u0e22\u0e15\u0e31\u0e07 \u0e42\u0e14\u0e22\u0e2a\u0e48\u0e27\u0e19\u0e15\u0e31\u0e27 Y2K \u0e2b\u0e23\u0e37\u0e2d\u0e2d\u0e30\u0e44\u0e23\u0e1e\u0e27\u0e01\u0e19\u0e35\u0e49\u0e16\u0e49\u0e32\u0e40\u0e23\u0e32\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e01\u0e32\u0e23\u0e1b\u0e49\u0e2d\u0e19 \u0e1b\u0e35 \u0e40\u0e1b\u0e47\u0e19\u0e41\u0e1a\u0e1a 4 \u0e2b\u0e25\u0e31\u0e01\u0e41\u0e25\u0e49\u0e27\u0e1b\u0e31\u0e0d\u0e2b\u0e32\u0e01\u0e47\u0e44\u0e21\u0e48\u0e21\u0e35 \u0e40\u0e23\u0e32\u0e08\u0e30\u0e43\u0e0a\u0e49\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e01\u0e33\u0e2b\u0e19\u0e14 \u0e1b\u0e35\u0e40\u0e1b\u0e47\u0e19 4 \u0e2b\u0e25\u0e31\u0e01 \u0e14\u0e31\u0e07\u0e19\u0e35\u0e49 \u00a0\u00a0\u00a0\u00a0 SET CENTURY ON \u0e41\u0e15\u0e48\u0e1b\u0e23\u0e30\u0e40\u0e14\u0e47\u0e19\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e08\u0e30\u0e21\u0e32\u0e14\u0e39\u0e01\u0e31\u0e19\u0e04\u0e37\u0e2d \u0e08\u0e30\u0e17\u0e33\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23\u0e01\u0e31\u0e1a\u0e1f\u0e34\u0e25\u0e14\u0e4c\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e14\u0e35 \u0e41\u0e25\u0e49\u0e27\u0e2d\u0e22\u0e32\u0e01\u0e08\u0e30\u0e43\u0e2b\u0e49\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e40\u0e1b\u0e47\u0e19\u0e41\u0e1a\u0e1a\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23 (\u0e1c\u0e39\u0e49\u0e40\u0e02\u0e35\u0e22\u0e19\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e15\u0e48\u0e32\u0e07\u0e2b\u0e32\u0e01) \u0e2d\u0e22\u0e32\u0e01\u0e43\u0e2b\u0e49\u0e1f\u0e34\u0e25\u0e14\u0e4c\u0e27\u0e31\u0e19\u0e17\u0e35\u0e48 \u0e41\u0e2a\u0e14\u0e07\u0e40\u0e1b\u0e47\u0e19 \u0e27\u0e31\u0e19\u0e17\u0e35\u0e48\u0e41\u0e1a\u0e1a \u0e44\u0e17\u0e22\u0e46 \u0e40\u0e0a\u0e48\u0e19 10 \u0e01\u0e31\u0e19\u0e22\u0e32\u0e22\u0e19 2543 (\u0e27\u0e31\u0e19\u0e04\u0e23\u0e1a\u0e23\u0e2d\u0e1a 2 \u0e02\u0e27\u0e1a \u0e02\u0e2d\u0e07 web site\u00a0 \u0e44\u0e27\u0e40\u0e2b\u0e21\u0e37\u0e2d\u0e19\u0e43\u0e08\u0e19\u0e36\u0e01) \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e40\u0e02\u0e49\u0e32\u0e44\u0e1b\u0e1b\u0e49\u0e2d\u0e19\u0e2d\u0e22\u0e32\u0e01\u0e1b\u0e49\u0e2d\u0e19\u0e2a\u0e31\u0e49\u0e19\u0e46 \u0e41\u0e04\u0e48 10\/09\/2543 \u0e41\u0e25\u0e49\u0e27\u0e16\u0e49\u0e32\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e1b\u0e49\u0e2d\u0e19 \u0e40\u0e1b\u0e47\u0e19 2000 \u0e01\u0e47\u0e43\u0e2b\u0e49\u0e41\u0e1b\u0e25\u0e07\u0e21\u0e32\u0e40\u0e1b\u0e47\u0e19 2543 \u0e43\u0e2b\u0e49\u0e14\u0e49\u0e27\u0e22\u0e01\u0e47\u0e14\u0e35 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[13],"tags":[],"class_list":["post-25415","post","type-post","status-publish","format-standard","hentry","category-13"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p6cOVM-6BV","_links":{"self":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts\/25415","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=25415"}],"version-history":[{"count":1,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts\/25415\/revisions"}],"predecessor-version":[{"id":25416,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts\/25415\/revisions\/25416"}],"wp:attachment":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=25415"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=25415"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=25415"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}