Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / проверка на стринг / 7 сообщений из 7, страница 1 из 1
28.02.2010, 01:13:44
    #36492957
Sagit
Sagit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на стринг
Код: plaintext
1.
2.
3.
4.
5.
6.
Function fmt(f)
if f isnum
then
 fmt = Round(f* 100 )/ 100 
else fmt=f
end if
End Function
данная функция должа проверять если значения поля есть число то она округляет его до сотой части а если значение поле не число а стринг то не округляет
как прописать уже неделю мучаюсь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2010, 10:26:47
    #36493056
BION
BION
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на стринг
Sagit,

Код: plaintext
1.
if IsNumeric(f) then
    ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2010, 10:43:42
    #36493064
BION
BION
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на стринг
BIONSagit,

Код: plaintext
1.
if IsNumeric(f) then
    ...


Хотя, вернет True, если стринг можно легко преобразовать в число, например "1" или "234" и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2010, 10:49:03
    #36493065
BION
BION
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на стринг
Sagit,

Можно добавить проверку:
Код: plaintext
1.
2.
if VarType(f) = vbString then
    ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2010, 14:01:24
    #36493223
Sagit
Sagit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на стринг
BION, спасибо во вторник попробую отпишусь
это скрипт используется в asp сводках
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2010, 15:33:52
    #36493339
BION
BION
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на стринг
SagitBION, спасибо во вторник попробую отпишусь
это скрипт используется в asp сводках
Если ASP, то:
Код: plaintext
if TypeName(f) = "String" ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2010, 19:35:15
    #36500909
Sagit
Sagit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на стринг
BION,
нет спасибо то что вы сказали первое самое то сработало вот текст полного кода

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
<HTML>

<title>Câîäêà äëÿ ãåîëîãîâ</title>

<body>

<%

Function fmt(f)

	if IsNumeric(f) then

 		fmt = Round(f* 100 )/ 100 

	else 

		fmt=f

	end if

End Function





if Request.form("d")<>"" THEN 		

d=Request.form("d") 			

else d=Date()- 1 

end if

i=Year(d): s=i 				

i=Month(d)    				 

if i< 10  then				  

 s=s&"-0"&i				 

 else s=s&"-"&i 

end if

p=Day(d) 

if i< 10  then  

 s=s&"-0"&i

 else s=s&"-"&i 

end if



sql="SELECT disp_GK_ON.Äàòà FROM disp_GK_ON GROUP BY disp_GK_ON.Äàòà"

set smena1 = Server.CreateObject("ADODB.Recordset")

conns="DSN=rotep;DB=d:\db\rotep\Ðîòýï97.mdb"

smena1.Open sql,conns, 3 , 3 

smena1.MoveFirst

%>

 <FORM NAME=Form1 METHOD=Post ACTION="Geo.asp">

                Äàòà (ÄÄ.ÌÌ.ÃÃ):

		<select name="d">

			<option selected value="<%=d%>"><%=d%></option>

			<%do while not smena1.eof%>

			<option value="<%=smena1.Fields(0)%>"><%=smena1.Fields( 0 )%></option>

			<%smena1.MoveNext: Loop%>

		</select>

		<INPUT type="submit" value="Âûäàòü ñâîòêó çà <%=d%>">

           </FORM>

<%smena1.Close%>



<TABLE border="1" cellspacing="1"><CAPTION><B>Ñâîäêà çà <%=d%></CAPTION>

<TR VALIGN="TOP"> 

<td><TABLE border="1" cellspacing="0"><CAPTION><B>Ñìåíà  1 </CAPTION>

<%

sql="SELECT disp_GK_ON.[¹ Ýêñêàâàòîðà] AS ÝÊÃ, disp_GK_ON.[Íàçâàíèå ñêëàäà], IIf(disp_GK_ON.[ÖÏÒ íà ñåêòîð]>0,disp_GK_ON.[ÖÏÒ íà ñåêòîð],'-') AS CEK, Sum(disp_GK_ON.[Ðåéñû âñåãî]) AS Ðåéñîâ, fmt(Sum(disp_GK_ON.Îáúåì)) AS [Îáúåì ì3], fmt(Sum(disp_GK_ON.Âåñ)/1000) AS [Âåñ â òîííàõ] FROM disp_GK_ON WHERE (((disp_GK_ON.Äàòà)=#"&s&"#) AND ((disp_GK_ON.Ñìåíà)=1)) GROUP BY disp_GK_ON.[¹ Ýêñêàâàòîðà], disp_GK_ON.[Íàçâàíèå ñêëàäà], disp_GK_ON.Äàòà, disp_GK_ON.[ÖÏÒ íà ñåêòîð]"

smena1.Open sql,conns, 3 , 3 

smena1.MoveFirst

%>

<%j= 0 : do while j<smena1.Fields.Count%>

  <th><%=smena1.Fields(j).Name%></th>

<% j=j+ 1 : Loop %>

<%do while not smena1.eof%>

<tr>

<%j= 0 : do while j<smena1.Fields.Count%>

  <td align=right><%=fmt((smena1).Fields(j))%></td>

<% j=j+ 1 : Loop %>

</tr>

<%smena1.MoveNext: loop: smena1.Close%>

</td>

</table>

</td>

<TD valign= "TOP"><TABLE border="1" cellspacing="0"><CAPTION><B>Ñìåíà  2 </CAPTION>

<%

sql="SELECT disp_GK_ON.[¹ Ýêñêàâàòîðà] AS ÝÊÃ, disp_GK_ON.[Íàçâàíèå ñêëàäà], IIf(disp_GK_ON.[ÖÏÒ íà ñåêòîð]>0,disp_GK_ON.[ÖÏÒ íà ñåêòîð],'-') AS CEK, Sum(disp_GK_ON.[Ðåéñû âñåãî]) AS Ðåéñîâ, Int(10*Sum(disp_GK_ON.Îáúåì))/10 AS [Îáúåì ì3], Int(1000*Sum(disp_GK_ON.Âåñ)/1000)/1000 AS [Âåñ â òîííàõ] FROM disp_GK_ON WHERE (((disp_GK_ON.Äàòà)=#"&s&"#) AND ((disp_GK_ON.Ñìåíà)=2)) GROUP BY disp_GK_ON.[¹ Ýêñêàâàòîðà], disp_GK_ON.[Íàçâàíèå ñêëàäà], disp_GK_ON.Äàòà, disp_GK_ON.[ÖÏÒ íà ñåêòîð]"

smena1.Open sql,conns, 3 , 3 

smena1.MoveFirst

%>

<%l= 0 : do while l<smena1.Fields.Count%>

  <th><%=smena1.Fields(l).Name%></th>

<% l=l+ 1 : Loop %>

<%do while not smena1.eof%>

<tr>

<%l= 0 : do while l<smena1.Fields.Count%>

  <td><%=fmt(smena1).Fields(l)%></td>

<% l=l+ 1 : Loop %>

</tr>

<%smena1.MoveNext: loop: smena1.Close%>

</table>

</TD>

</table>

</html>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / проверка на стринг / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 499ms
Закрыть
start [/forum/topic.php?fid=16&tablet=1&tid=1343848]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 217ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 220ms
total:  499ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]