Erik Vullings erikvullings

## cachify.ts
/**
 * Create a cached version of a function.
 *
 * @example cachedCalcArea = cachify(calcArea);
 * @param fn Function whose results you want to cache
 * @see TypeScript version of https://dev.to/kepta/javascript-underdogs-part-1---the-weakmap-4jih
 */
export const cachify = <T extends object, R>(fn: (arg: T) => R) => {
  const cache = new WeakMap(); // Use Map() when dealing with non-object arguments
  return (arg: T) => {

## utils.ts
/**
 * Create a GUID
 * @see https://stackoverflow.com/a/2117523/319711
 *
 * @returns RFC4122 version 4 compliant GUID
 */
export const uuid4 = () => {
  return 'xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx'.replace(/[xy]/g, (c) => {
    // tslint:disable-next-line:no-bitwise
    const r = (Math.random() * 16) | 0;

## deep-copy.ts
/**
 * Deep copy function for TypeScript.
 * @param T Generic type of target/copied value.
 * @param target Target value to be copied.
 * @see Source project, ts-deepcopy https://github.com/ykdr2017/ts-deepcopy
 */
export const deepCopy = <T>(target: T): T => {
  if (target === null) {
    return target;
  }

## deep-copy.ts
/**
 * Deep copy function for TypeScript.
 * @param T Generic type of target/copied value.
 * @param target Target value to be copied.
 * @see Source project, ts-deepcopy https://github.com/ykdr2017/ts-deepcopy
 * @see Code pen https://codepen.io/erikvullings/pen/ejyBYg
 */
export const deepCopy = <T>(target: T): T => {
  if (target === null) {
    return target;

## guid.ts
/**
 * Create a GUID
 * @see https://stackoverflow.com/a/2117523/319711
 *
 * @returns RFC4122 version 4 compliant GUID
 */
export const uuid4 = () => {
  return 'xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx'.replace(/[xy]/g, (c) => {
    // tslint:disable-next-line:no-bitwise
    const r = (Math.random() * 16) | 0;

## message-bus-service.ts
export type ICallback<T> = (data: T, envelope: IEnvelope<T>) => void;

/** Message enveloppe */
export interface IEnvelope<T> {
  /* Uses DEFAULT_CHANNEL if no channel is provided */
  channel?: string;
  /** Topic name */
  topic: string;
  /** Payload */
  data?: T;

## Excel_time_to_UTC_time.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              2 stars
            
          
                erikvullings
                / Excel_time_to_UTC_time.md
            
            
              Last active
              November 29, 2021 21:03
            
              
                Convert Excel time to UTC time
              
          
    The problem

I had a CSV file that needed to be processed on a web page. So I had to convert the Excel time to UTC time.
The solution

According to this answer on StackOverflow:

The Excel number for a modern date is most easily calculated as the number of days since 12/30/1899 on the Gregorian calendar.
Excel treats the mythical date 01/00/1900 (i.e., 12/31/1899) as corresponding to 0, and incorrectly treats year 1900 as a leap year. So for dates before 03/01/1900, the Excel number is effectively the number of days after 12/31/1899.


## toEnglish.vba
'Change the language of your PowerPoint
'In newer PowerPoint version, you need to first save your PowerPoint with macros enabled.
'Go to the VIEW tab, select MACROS (at the right), enter a name, e.g. toEnglish, and press create to enter below text.
'Now you can run the macro from the same menu.
'Alternatively, but less complete, go to the VIEW tab, select OUTLINE, select all slides (using CTRL-A).
'Now go to the REVIEW tab, select Language, and change the proofing language.
'Also make sure that you set the WINDOWS Language (taskbar, bottom right) to the preferred language, otherwise all new text
'will have the same problem (Press CTRL + WINDOWS + SPACE to switch the Keyboard input language).
Option Explicit
Sub toEnglish()

## copy-to-clipboard.js
const copyToClipboard = str => {
  const el = document.createElement('textarea');
  el.value = str;
  el.setAttribute('readonly', '');
  el.style.position = 'absolute';
  el.style.left = '-9999px';
  document.body.appendChild(el);
  const selected =
    document.getSelection().rangeCount > 0 ? document.getSelection().getRangeAt(0) : false;
  el.select();

## pdok.html
<!DOCTYPE html>
<html>
  <head>
    <title>PDOK achtergrondkaarten</title>
    <!-- https://www.pdok.nl/introductie/-/article/basisregistratie-topografie-achtergrondkaarten-brt-a-

      Zie ook de wizard hier:
      https://nlmaps.nl/

      PDOK biedt 4 base maps aan van NL: standaard, grijs, water, en pastel. Deze kun je gratis gebruiken
	/**
	* Create a cached version of a function.
	*
	* @example cachedCalcArea = cachify(calcArea);
	* @param fn Function whose results you want to cache
	* @see TypeScript version of https://dev.to/kepta/javascript-underdogs-part-1---the-weakmap-4jih
	*/
	export const cachify = <T extends object, R>(fn: (arg: T) => R) => {
	const cache = new WeakMap(); // Use Map() when dealing with non-object arguments
	return (arg: T) => {
	/**
	* Create a GUID
	* @see https://stackoverflow.com/a/2117523/319711
	*
	* @returns RFC4122 version 4 compliant GUID
	*/
	export const uuid4 = () => {
	return 'xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx'.replace(/[xy]/g, (c) => {
	// tslint:disable-next-line:no-bitwise
	const r = (Math.random() * 16) \| 0;
	/**
	* Deep copy function for TypeScript.
	* @param T Generic type of target/copied value.
	* @param target Target value to be copied.
	* @see Source project, ts-deepcopy https://github.com/ykdr2017/ts-deepcopy
	*/
	export const deepCopy = <T>(target: T): T => {
	if (target === null) {
	return target;
	}
	export type ICallback<T> = (data: T, envelope: IEnvelope<T>) => void;

	/** Message enveloppe */
	export interface IEnvelope<T> {
	/* Uses DEFAULT_CHANNEL if no channel is provided */
	channel?: string;
	/** Topic name */
	topic: string;
	/** Payload */
	data?: T;
	'Change the language of your PowerPoint
	'In newer PowerPoint version, you need to first save your PowerPoint with macros enabled.
	'Go to the VIEW tab, select MACROS (at the right), enter a name, e.g. toEnglish, and press create to enter below text.
	'Now you can run the macro from the same menu.
	'Alternatively, but less complete, go to the VIEW tab, select OUTLINE, select all slides (using CTRL-A).
	'Now go to the REVIEW tab, select Language, and change the proofing language.
	'Also make sure that you set the WINDOWS Language (taskbar, bottom right) to the preferred language, otherwise all new text
	'will have the same problem (Press CTRL + WINDOWS + SPACE to switch the Keyboard input language).
	Option Explicit
	Sub toEnglish()
	const copyToClipboard = str => {
	const el = document.createElement('textarea');
	el.value = str;
	el.setAttribute('readonly', '');
	el.style.position = 'absolute';
	el.style.left = '-9999px';
	document.body.appendChild(el);
	const selected =
	document.getSelection().rangeCount > 0 ? document.getSelection().getRangeAt(0) : false;
	el.select();
	<!DOCTYPE html>
	<html>
	<head>
	<title>PDOK achtergrondkaarten</title>
	<!-- https://www.pdok.nl/introductie/-/article/basisregistratie-topografie-achtergrondkaarten-brt-a-

	Zie ook de wizard hier:
	https://nlmaps.nl/

	PDOK biedt 4 base maps aan van NL: standaard, grijs, water, en pastel. Deze kun je gratis gebruiken