asp posts

I spent some time playing with my Raspberry Pi's this weekend. Continue reading post "#3182"

With the help of Retro Pie's special key setup, I've lost many hours of progress playing Link's Awakening. Continue reading post "#2606"

I got my controllers working on my retro pie. I just had to press random keys on the keyboard until I found one that opened the controller config. Continue reading post "#2597"

I bought myself a new Raspberry Pi, for use as a Retro Pie (video game emulator). Continue reading post "#2595"

Played with my Raspberry Pi a bit more this weekend. I bought another micro-SD…

I bought a rapberry pi with breadboard kit. Going to do some experiments. I ma…

During my internship at RPM, we used classic ASP for server side scripting rather than the PHP I'm more used to. Classic ASP is missing functions for formatting dates, like PHP and *NIX shell have, for instance. SQL Server has the CONVERT function, but only has a limited number of output formats, at least for the older SQL Server version we had: Otherwise, it would be more efficient to format the data as it is coming from the database . I built two functions for date formatting based on the PHP and *NIX "date" formats for use on the HSGA site, where I had to format dates a certain way for a project. I don't remember if I used it on other projects, but I think so.

Both functions take two parameters. The first is a date, as would come from a SQL Server "datetime" field. The second is a string that defines the output format. The first function uses a format string like the php date function. The long function is as follows (tabs are double spaces due to the width and length of the content):

Function PHPFormatDateTime(strDateTime, strFormatString)
	Dim intI, strOutput, strTemp, bolEscape
	bolEscape = 0
	
	For intI = 1 to Len(strFormatString)
		If bolEscape = 0 then
			Select Case Mid(strFormatString, intI, 1)
				' day
				Case "d"
					If DatePart("d", strDateTime) < 10 Then
						strOutput = strOutput & "0" & DatePart("d", strDateTime)  
					Else
						strOutput = strOutput & DatePart("d", strDateTime)
					End If
				Case "j"
					strOutput = strOutput & DatePart("d", strDateTime)
				Case "D"
					Select Case DatePart("w", strDateTime)
						Case 1
							strOutput = strOutput &  "Mon"
						Case 2
							strOutput = strOutput &  "Tue"
						Case 3
							strOutput = strOutput &  "Wed"
						Case 4
							strOutput = strOutput &  "Thu"
						Case 5
							strOutput = strOutput &  "Fri"
						Case 6
							strOutput = strOutput &  "Sat"
						Case 7
							strOutput = strOutput &  "Sun"
					End Select
				Case "l"
					Select Case DatePart("w", strDateTime)
						Case 1
							strOutput = strOutput &  "Monday"
						Case 2
							strOutput = strOutput &  "Tuesday"
						Case 3
							strOutput = strOutput &  "Wednesday"
						Case 4
							strOutput = strOutput &  "Thursday"
						Case 5
							strOutput = strOutput &  "Friday"
						Case 6
							strOutput = strOutput &  "Saturday"
						Case 7
							strOutput = strOutput &  "Sunday"
					End Select
				Case "S"
					strTemp = DatePart("d", strDateTime)
					If strTemp < 10 Then
						strTemp = "0" & strTemp
					End If
					Select Case Left(strTemp, 1)
						Case 1
							strOutput = strOutput & "th"
						Case Else
							Select Case Right(strTemp, 1)
								Case 1
									strOutput = strOutput & "st"
								Case 2
									strOutput = strOutput & "cnd"
								Case 3
									strOutput = strOutput & "rd"
								Case Else
									strOutput = strOutput & "th"
							End Select
					End Select
				Case "w"
					strOutput = strOutput & (DatePart("w", strDateTime) - 1)
				Case "Z"
					strOutput = strOutput & DatePart("y", strDateTime)
				' week
				Case "W"
					strOutput = strOutput & DatePart("ww", strDateTime)
				' month
				Case "B"
					Select Case DatePart("m", strDateTime)
						Case 1
							strOutput = strOutput & "January"
						Case 2
							strOutput = strOutput & "February"
						Case 3
							strOutput = strOutput & "March"
						Case 4
							strOutput = strOutput & "April"
						Case 5
							strOutput = strOutput & "May"
						Case 6
							strOutput = strOutput & "June"
						Case 7
							strOutput = strOutput & "July"
						Case 8
							strOutput = strOutput & "August"
						Case 9
							strOutput = strOutput & "September"
						Case 10
							strOutput = strOutput & "October"
						Case 11
							strOutput = strOutput & "November"
						Case 12
							strOutput = strOutput & "December"
					End Select
				Case "m"
					If DatePart("m", strDateTime) < 10 Then
						strOutput = strOutput & "0" & DatePart("m", strDateTime)  
					Else
						strOutput = strOutput & DatePart("m", strDateTime)
					End If
				Case "M"
					Select Case DatePart("m", strDateTime)
						Case 1
							strOutput = strOutput & "Jan"
						Case 2
							strOutput = strOutput & "Feb"
						Case 3
							strOutput = strOutput & "Mar"
						Case 4
							strOutput = strOutput & "Apr"
						Case 5
							strOutput = strOutput & "May"
						Case 6
							strOutput = strOutput & "Jun"
						Case 7
							strOutput = strOutput & "Jul"
						Case 8
							strOutput = strOutput & "Aug"
						Case 9
							strOutput = strOutput & "Sep"
						Case 10
							strOutput = strOutput & "Oct"
						Case 11
							strOutput = strOutput & "Nov"
						Case 12
							strOutput = strOutput & "Dec"
					End Select
				Case "n"
					strOutput = strOutput & DatePart("m", strDateTime)
				' Case "t" ' number of days in given month
				' year
				' Case "L" ' whether it's a leap year
				' Case "o"
				Case "Y"
					strOutput = strOutput & DatePart("yyyy", strDateTime)
				Case "y"
					strOutput = strOutput & Right(DatePart("yyyy", strDateTime), 2)
				' time
				Case "a"
					If DatePart("h", strDateTime) < 12 Then
						strOutput = strOutput & "am"
					Else 
						strOutput = strOutput & "pm"
					End If
				Case "A"
					If DatePart("h", strDateTime) < 12 Then
						strOutput = strOutput & "AM"
					Else 
						strOutput = strOutput & "PM"
					End If
				' Case "B" ' swatch
				Case "g"
					If DatePart("h", strDateTime) = 0 Then
						strOutput = strOutput & 12
					ElseIf DatePart("h", strDateTime) <= 12 Then
						strOutput = strOutput & DatePart("h", strDateTime)
					Else
						strOutput = strOutput & (DatePart("h", strDateTime) - 12)
					End If
				Case "G"
					strOutput = strOutput & DatePart("h", strDateTime)
				Case "h"
					If DatePart("h", strDateTime) = 0 Then
						strTemp = 12
					ElseIf DatePart("h", strDateTime) <= 12 Then
						strTemp = DatePart("h", strDateTime)
					Else
						strTemp = (DatePart("h", strDateTime) - 12)
					End If
					If strTemp < 10 Then
						strOutput = strOutput & 0 & strTemp
					Else
						strOutput = strOutput & strTemp
					End If
				Case "H"
					If DatePart("h", strDateTime) < 10 Then
						strOutput = strOutput & 0 & (DatePart("h", strDateTime))
					Else
						strOutput = strOutput & (DatePart("h", strDateTime))
					End If
				Case "i"
					If DatePart("n", strDateTime) < 10 Then
						strOutput = strOutput & 0 & (DatePart("n", strDateTime))
					Else
						strOutput = strOutput & (DatePart("n", strDateTime))
					End If
				Case "s"
					If DatePart("s", strDateTime) < 10 Then
						strOutput = strOutput & 0 & (DatePart("s", strDateTime))
					Else
						strOutput = strOutput & (DatePart("s", strDateTime))
					End If
				' Case "u" ' microseconds
				' timezone
				' Case "e" ' timezone identifier
				' Case "I" ' daylight savings time boolean
				' Case "O" ' difference to GMT (0x00)
				'Case "P" ' differenct to GMT (0x:00)
				' Case "T" ' timezone abbreviation
				' Case "Z" ' timezone offset in seconds
				' full
				' Case "c" ' IS0 8601
				' Case "r" ' RFC 2822
				' Case "U" ' seconds since Unix epoch
				Case ""
					bolEscape = 1
				Case Else
					strOutput = strOutput & Mid(strFormatString, intI, 1)
			End Select
		Else
			strOutput = strOutput & Mid(strFormatString, intI, 1)
			bolEscape = 0
		End If
	Next
	
	PHPFormatDateTime = strOutput
End Function