.


:




:

































 

 

 

 


A. VBS




, ,

Asc Chr & InStr InStrRev Join Lcase Left Len LTrim Mid RTrim Trim Replace Right Space Split String StrComp StrConv StrReverse Tab TypeName Ucase VarType.

 

-, - - , : Asc ( ANSI- ); Chr ( ANSI- ); & InStr ( 2 1 .. (vbBinaryCompare vbTextCompare, , ); InStrRev ( , InStr, ); Join ( , ); Lcase ( ); Left ( - , ); Len ( , ); LTrim ( ); Mid ( - . ); RTrim ( ); Trim ( ); Replace ( , ., - ); Right ( - ); Space ( - -); Split ( , _. - . , ); String ( - ); StrComp ( . 1<2, -1, 1=2, 0, 1>2, 1.); StrReverse ( -); Ucase ( ). -: FIO; FIO = " "; FIO FIO_p = Ucase(FIO); FIO 3 : , - f = Split (FIO) ' f(0) = ' f(1) = ' f(2) = ; F4 = Left(F2,1) & . & Left(F3,1) & . & F1' F4 = . . .

 

73b. / VBS

., , : CDate DateAdd DateDiff DatePart DateSerial DateValue Day FormatDateTime Hour Minute Month MonthName Now Second Time TimeSerial TimeValue TypeName VarType Weekday WeekdayName Year. Now Time. , ., #05-02-2008 18:00# - #05-01-2008 12:00# 1.25 . (, , , , , , ), . DateDiff. . DateAdd, . - DatePart. , , , , . Year, Month, Day, Hour, Minute, Second. ( ). , - , Windows : StrDt = "1 1999" /' / Data1 = CDate(StrDt)/' : ' Data1 #10-01-1999#. DateValue:Date2 = DateValue(StrDt). . Weekday(Data1, vbMonday) . . , , ( ). - FormatDateTime, 5 (vbGeneralDate, vbLongDate, vbShortDate, vbLongTime, vbShortTime). 7- . WeekDayName(7,False,vbUseSystem) .





:


: 2016-10-30; !; : 870 |


:

:

- - , .
==> ...

1841 - | 1791 -


© 2015-2024 lektsii.org - -

: 0.007 .