ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / проверка на стринг
7 сообщений из 7, страница 1 из 1
проверка на стринг
    #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, 01:13:44
| Ответить | Цитировать | Написать  
проверка на стринг
    #36493056
Фотография BION
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BION
Участник
Sagit,

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

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


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

Можно добавить проверку:
Код: plaintext
1.
2.
if VarType(f) = vbString then
    ...
...
Рейтинг: 0 / 0
28.02.2010, 10:49:03
| Ответить | Цитировать | Написать  
проверка на стринг
    #36493223
Sagit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sagit
Гость
BION, спасибо во вторник попробую отпишусь
это скрипт используется в asp сводках
...
Рейтинг: 0 / 0
28.02.2010, 14:01:24
| Ответить | Цитировать | Написать  
проверка на стринг
    #36493339
Фотография BION
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BION
Участник
SagitBION, спасибо во вторник попробую отпишусь
это скрипт используется в asp сводках
Если ASP, то:
Код: plaintext
if TypeName(f) = "String" ...
...
Рейтинг: 0 / 0
28.02.2010, 15:33:52
| Ответить | Цитировать | Написать  
проверка на стринг
    #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
03.03.2010, 19:35:15
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / проверка на стринг
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=16&msg=36493056&tid=1343848]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 444ms
get topic data:
 15ms
get forum data:
 3ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 205ms
total:  761ms
созд. / загр.: 761ms
x
x
Закрыть


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