Asp Function ile Benzersiz Kod isteyenlere Hakkında;
FUNCTION Benzersiz_Kod
IF Len(Month(date)) = 1 THEN
ay = ”0” & Month(date)
else
ay = Month(date)
END IF
IF Len(day(date)) = 1 THEN
gun = ”0” & day(date)
else
gun = day(date)
END IF
IF Len(hour(time)) = 1 THEN
saat = ”0” & hour(time)
else
saat = hour(time)
END IF
IF Len(minute(time)) = 1 THEN
dakika = ”0” & minute(time)
else
dakika = minute(time)
END IF
IF Len(second(time)) = 1 THEN
saniye = ”0” & second(time)
else
saniye = second(time)
END IF
Benzersiz_Kod = Cstr(year(date)&ay &gun&saat&dakika&saniye)
END FUNCTION
IF Len(Month(date)) = 1 THEN
ay = ”0” & Month(date)
else
ay = Month(date)
END IF
IF Len(day(date)) = 1 THEN
gun = ”0” & day(date)
else
gun = day(date)
END IF
IF Len(hour(time)) = 1 THEN
saat = ”0” & hour(time)
else
saat = hour(time)
END IF
IF Len(minute(time)) = 1 THEN
dakika = ”0” & minute(time)
else
dakika = minute(time)
END IF
IF Len(second(time)) = 1 THEN
saniye = ”0” & second(time)
else
saniye = second(time)
END IF
Benzersiz_Kod = Cstr(year(date)&ay &gun&saat&dakika&saniye)
END FUNCTION
