Opret dato format

Måske du kan bruge denne til noget

http://activedeveloper.dk/aspdigital/2003052201.asp

eller er der dette ?

MyDate = "October 19, 1962"  ' Define date.
MyShortDate = CDate(MyDate)  ' Convert to Date data type.
MyTime = "4:35:47 PM"        ' Define time.
MyShortTime = CDate(MyTime)  ' Convert to Date data type.

Jeg har samlet lidt forskelligt omkring dato og tid herunder.

Læg mærke til at du kan binde en tid til en dato, ved at benytte:

MyTimeAndDate = #03/12/2003 12:05:34#

WScript.Echo Time
h = 13
m = 45
s = 22
MyTime = h & ":" & m & ":" & s
WScript.Echo MyTime
convertedTime = TimeValue(MyTime)
WScript.Echo Hour(convertedTime)
MyDate1 = #5/11/2003 22:43:12#
WScript.Echo MyDate1
WScript.Echo DateSerial(2003, 12, 31)
WScript.Echo TimeSerial(13, 45, 22)
WScript.Echo Now

Jeg vil anbefale dig at downloade Windows Script V5.6 Documentation
herfra http://msdn.microsoft.com/library/default.asp?url=/downloads/list/webdev.asp

Her er alle funktioner defineret og beskrevet!

jjust: Det er også helt fint, men dette er VBScript. Selvom din kode meget vel kunne laves om til at blive brugt i VBScript, så burde du skrive din kode i dette sprog og ikke i Windows Script ;o)

soda: Øhm, alle funktionerne jeg bruger er native vbscript!!

Ovenstående dokumentation beskriver både jscript, vbscript og windows script host.

Dvs., lige bortset fra WScript.Echo, men det skulle være til at abstrahere fra :)

Ok. VBScript er relativt nyt til mig, men har stor baggrundsviden i andre programmeringssprog. Det var, som du nok har regnet ud, WScript.Echo der trickede min kommentar.

soda: Jeg vil gerne samle både tid og dato i et dato-format. Det du fandt på http://activedeveloper.dk/aspdigital/2003052201.asp, er noget unix halløj. Det kan vel ikke gå på en windows server?

Hvis jeg kan bygge følgende op:  #03/12/2003 12:05:34#, så kan jeg vel også konvertere denne streng om til et VBscript dato format?

MyDate = #5/11/2003 22:43:12#
MinDato = CDate(MyDate)

Dette må kunne gøre det, måske...

Yepzer det kan det oxo!

MyDate = Day(Date()) & "/" & Month(Date()) & "/" & Year(Date()) & " " & Time(Now()) & ":" & Minuts(Now()) & ":" & Secounds(Now())

MyDate = CDate(MyDate)

Så er det i en Dateværdiformat!

//>Rune

Det er ikke UNIX. Hvis du læser artiklen igennem vil du forstå det.

Jeg ville have gjort noget lignende det du selv lige har foreslået, men var usikker på om det kunne lade sig gøre.

Lukketid?

//>Rune

Lukketid