VBScript - Max vērtība

[NBS]

Sveiki, man ir procedūra/operācija "EXEC tabula"

Atgriež šādas vērtības:

 

 

Es vēlos iegūt lielāko datumu, vārdu sakot pēdējo datumu.

Piem., man tabula nav sakārtota pēc `uptime` un ir šādas vērtības:

 

Uptime:

 

2008-07-24 00:00:00

2008-08-07 00:00:00

2008-02-12 00:00:00

...

 

Vēlētos iegūt vecāko datumu no šiem 3, tas būtu: 2008-08-07 00:00:00

 

Gribētos zināt, kā to var realizēt iekšs VBScript ?

P.S. Paldies, jau iepriekšs.

Edited August 29, 2008 by NBS

[NBS]

Vismaz kādas idejas ?

[bubu]

Visprastākais for cikls.

minimālā = vērtības[0]
for (i=1; i<count; i++)
{
if (vērtības[i] < minimālā)
{
	minimālā = vērtības[i];
}
}
alert(minimālā);

[NBS]

Testēju kaut ko šādu, neizdodas :(

 

uptime = penalty("uptime")
count = penalty.RecordCount

minvalue = uptime[0]
i = 0
while not penalty.eof
 for i = 1; i < count; i++)
{
  if (uptime[0] < minvalue)
  {
	   minvalue = uptime[i]
  }
}

Edited August 29, 2008 by NBS

[Aleksejs]

...
if (uptime[i] < minvalue)
  {
	   minvalue = uptime[i]
  }
...

[NBS]

Kļūda:

 

Microsoft VBScript compilation error '800a03f2' 
Expected identifier 
/lists/penalty_payments.asp, line 36 
for (i = 1; i < count; i++)

`It kā jau i ir nodefinēts i = 0`

 

Pilnais kods: http://paste.php.lv/7919?lang=asp

[bubu]

vbsckriptā vai tad jālieto figūriekavas?

[NBS]

vbsckriptā vai tad jālieto figūriekavas?

Nu jā, es izlaboju tāpat neiet :(

 

http://paste.php.lv/7920?lang=asp

[bubu]

Tad debugo.

[NBS]

Paldies, viss izdevās, izrādās nav tik grūti.